void CPICDlg::DrawLine(CDC pDC/绘图DC/,CPoint pStart/起点/,CPoint pEnd/终点/,int LineWidth/线宽/)
{
CPen thePen1;
thePen1CreatePen(PS_SOLID,LineWidth,RGB( 0, 0, 0) );//黑色
CPen lOldPen=NULL;
pDC->SetROP2( R2_COPYPEN );
lOldPen = pDC ->SelectObject(&thePen1);
// 开始画图
pDC->MoveTo(pStart);
pDC->LineTo(pEnd);
pDC->SelectObject(lOldPen); // 恢复原先的画笔
thePen1DeleteObject();
}
(defun c:hx ( / int1 y0)
(setq int1 (getint "\n输入指定绘制数目:"))
(if (= int1 nil) (setq int1 1))
(setq y0 0)
(repeat int1
(command "line" (list 0 y0) (list 30 y0) "");绘制长度为30的直线
(princ "\nOK")
(setq y0 (+ y0 10))
);end repeat int1
(princ)
);end defun
——仅供参考。。。
建议:
1、你去学习下VB连接串口的方法
2、在单片机上面写好与电脑上位机相连接的程序
3、单片机控制直流电机,当接收到上位机的指令后,单片机调用对应的函数。直接控制电机。
%
O1234
(PROGRAM NAME - 铣直线程序)
N100G21
N102G0G17G40G49G80G90
N104T1M6
N106G0G90G54X-86824Y6A0S5500M3
N108G43H1Z50M8
N110Z1
N112G1Z-1875F1200
N114Y55
N116G3X-86324Y5R5
N118G1X44983
N120G3X45483Y55R5
N122G1Y6
N124X-86824
N126Z-375
N128Y55
N130G3X-86324Y5R5
N132G1X44983
N134G3X45483Y55R5
N136G1Y6
N138X-86824
N140Z-5625
N142Y55
N144G3X-86324Y5R5
N146G1X44983
N148G3X45483Y55R5
N150G1Y6
N152X-86824
N154Z-75
N156Y55
N158G3X-86324Y5R5
N160G1X44983
N162G3X45483Y55R5
N164G1Y6
N166X-86824
N168Z-9375
N170Y55
N172G3X-86324Y5R5
N174G1X44983
N176G3X45483Y55R5
N178G1Y6
N180X-86824
N182Z-1125
N184Y55
N186G3X-86324Y5R5
N188G1X44983
N190G3X45483Y55R5
N192G1Y6
N194X-86824
N196Z-13125
N198Y55
N200G3X-86324Y5R5
N202G1X44983
N204G3X45483Y55R5
N206G1Y6
N208X-86824
N210Z-15
N212Y55
N214G3X-86324Y5R5
N216G1X44983
N218G3X45483Y55R5
N220G1Y6
N222Z-14F3500
N224G0Z50
N226M5
N228G91G28Z0M9
N230G28X0Y0A0
N232M30
%
望采纳!
首先你要会基本的cad编程啊 画线的代码 帮助里面都有了!
随便给你找一个
直线是 AutoCAD
中最基本的对象。用户可以创建各种直线—单一直线、带圆弧和不带圆弧的多线段。通常,可以通过指定坐标点来绘制直线。默认线型是
CONTINUOUS(即连续的线),但还有许多线型使用点和短划。
要创建直线,请使用以下方法之一:
AddLine
通过两点创建直线。
AddLightweightPolyline
从顶点列表创建二维优化多段线。
AddMLine
创建多线。
AddPolyline
创建二维或三维多段线。
标准直线和多线都是在世界坐标系的 XY 平面上创建的,而多段线与优化多段线则是在对象坐标系 (OCS) 中创建的。关于转换 OCS 坐标的信息,请参见转换坐标。
本例使用
AddLightweightPolyline 方法创建一条分为两段的简单多段线,其端点坐标值分别是 (2,4)、(4,2) 和 (6,4)。
Sub Ch4_AddLightWeightPolyline()
Dim plineObj As AcadLWPolyline
Dim points(0 To 5) As Double
' 定义二维多段线的点
points(0) = 2: points(1) = 4
points(2) = 4: points(3) = 2
points(4) = 6: points(5) = 4
' 在模型空间中创建一个优化多段线对象
Set plineObj = ThisDrawingModelSpace _
AddLightWeightPolyline(points)
ThisDrawingApplicationZoomAll
End Sub
#include "graphicsh"
int main()
{
int gdriver=DETECT, gmode; /图形变量/
initgraph(&gdriver, &gmode, "c:\\caic\\bgi"); /自动初始化图形模式/
line(100,300,300,300);
line(100,300,150,150);
line(150,150,250,150);
line(250,150,300,300);
getch();
closegraph();
return 0;
}
以上就是关于跪求高手 基于vc++的画直线程序设计编写一画直线的程序 要求可以设置线的宽度如1像素、5像素等; 要求可以全部的内容,包括:跪求高手 基于vc++的画直线程序设计编写一画直线的程序 要求可以设置线的宽度如1像素、5像素等; 要求可以、编写一个AutoLISP程序,画出一条直线,并生成给定数目(N条)的与其平行的直线。、直线电机怎么编程的等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)