(defun c:tt ()
(xyp-Start)
(setq s1 (car (entsel "\n选择: ")))
(foreach pt (xyp-Vertexs s1 0)
(command "insert" "要插入的块名" pt 1 1 0)
)
(xyp-End)
)
将需要插入的块先建好，用记事本将以上文字另存为后缀名为lsp文件，在CAD中依次点击工具---加载应用程序---内容---添加，选择保存的lsp文件，关闭，重新打开CAD，随便画一条多段线，在CAD中插入一个想插的图块，输入tt，鼠标成四方形后点击多段线就OK了。
我也在找答案，有人知道吗，一条多段线，各段距离不一样，需要在各定点插入一个块，怎么弄啊
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024