cad二维轮廓线vba怎么写 _轮廓线

1.CAD VBA编程程序输入角画一条直线,是怎么写的首先你要会基本的cad编程啊画线的代码帮助里面都有了！
随便给你找一个
直线是 AutoCAD
中最基本的对象。用户可以创建各种直线—单一直线、带圆弧和不带圆弧的多线段。通常，可以通过指定坐标点来绘制直线。默认线型是
CONTINUOUS（即连续的线），但还有许多线型使用点和短划。
要创建直线，请使用以下方法之一：
AddLine
通过两点创建直线。
从顶点列表创建二维优化多段线。
AddMLine
创建多线。
AddPolyline
创建二维或三维多段线。
标准直线和多线都是在世界坐标系的 XY 平面上创建的，而多段线与优化多段线则是在对象坐标系（OCS）中创建的。关于转换 OCS 坐标的信息，请参见转换坐标。
本例使用
【cad二维轮廓线vba怎么写】 方法创建一条分为两段的简单多段线，其端点坐标值分别是（2,4）、（4,2）和（6,4）。
Sub Ch4_()
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. _
(points)
ThisDrawing.Application.ZoomAll
End Sub
2.autocad利用vba怎么画双行线,求源码写了一个，代码如下，偏移对象：
(defun s1605191 (ent1 / &dis1 &ob1)
(vl-load-com)
(if (setq &dis1 (getdist "\n请输入偏移距离")）
(progn
(setq &ob1 (vlax-ename->vla-object ent1))
(vla-offset &ob1 &dis1)；多段线有方向，偏移也有方向，如果是圆没有方向
)
)
)
3.怎么利用EXCEL vba 在CAD上画多段线1、复制计算出的坐标到excel中，分为X、Y两列坐标
2、把X、Y坐标用逗号（英文状态）连接在一起， excel里用公式&" ， "&连接
3、选中坐标组，复制（这样数据暂时都保存在粘贴板里）
4、打开cad软件，新建文件或者在你需要绘制的文件里，输入spl命令（或者点击工具栏图标『样条曲线』）
5、直接Ctrl+V粘贴（或者在命令行右键菜单“粘贴”）刚才复制的坐标组，然后回车确定
6、双击滚轮显示全部对象，可以看到曲线已经画好了
4.CAD中怎样为自己写的VBA程序添加自定义命令不知你用的是哪个CAD版本？我用CAD2004多年，我的做法是：
1、打开ACAD.PGP ，这个文件里你要插入一行：LYJ,*LYJ ，保存文件
2、打开ACAD2004DOC.LSP文件（我这里是2004版本），添加你需要的命令，我这里示例下我添加的一个命令：
；；箭头改形
(defun c:CA()
(setvar "cmdecho" 0)
(command "-VBARUN" "CA.dvb!mCA.CA")
(setvar "cmdecho" 1)
(princ)
)
保存文件，重新启动cad ，在命令行输入命令，看看成功了吗？
这里："CA.dvb!mCA.CA" ，要注意下， .dvb前面的是工程名， MCA是这个工程里的模块名，最后面的CA是MCA模块中的函数名。

文章插图