CAD VBA编程程序输入角画一条直线,是怎么写的?word打印自动编号,我复制粘贴宏以后,为什么他一直提示语法错误?急~求大神解救?
首先你要会基本的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 = ThisDrawing.ModelSpace. _ AddLightWeightPolyline(points) ThisDrawing.Application.ZoomAllEnd Sub
word打印自动编号,我复制粘贴宏以后,为什么他一直提示语法错误?急~求大神解救?你的文件绝对损坏了,我不是吃一两次亏了,很理解你的状况,好消息就是 你又有了一个锻炼技术与心境的机会。淡定啊,慢慢重做吧,我重做过几个 文件,全是我花一个多月排的画册呀,几十个P 废了,那个心痛,直接想撞墙,后来看到雪白的墙壁,不忍污染,。哎~~~下次这些文件较大,较复杂的文件,做完些后备份一份到别的地方吧,这样是避免万一出问题了,可以将损失降到最低。