求高手编一个画指引线的程序，用于引线标注的增加
本帖最后由 fire9527 于 2015-11-12 15:31 编辑求高手编一个画指引线的程序，用于引线标注的增加操作提示如下:
1.选择指引原点(如果选择空白点，画出直线所在图层为当前层，如果选择某图元的捕捉点，则画出直线所在层为被捕捉图元所在图层)
2.左键点选多个目标点，右键确定选完
3.在原点和目标点画直线。直线要求为第1条括号里面的内容
如果程序能适应各种坐标系就更好，不好实现也无所谓 本帖最后由 bori 于 2015-11-13 11:27 编辑
试试看。
最好给个原图、完成图的dwg图纸。配上文字说明后，这样比较清晰明确。 fl202 发表于 2015-11-12 14:13 static/image/common/back.gif
最好给个原图、完成图的dwg图纸。配上文字说明后，这样比较清晰明确。
已上传附件，谢谢
试试看，可行？？？？
感谢 bori 分享学习!
bori 发表于 2015-11-13 11:05 static/image/common/back.gif
试试看。
老大，很接近了，我画的那些白色的圆圈只是为了标明目标点，实际上目标点可能是各种图元，如录像所示，希望得到录像的效果，录像中是用“kwok”朋友写的程序，怕干扰老大思路之前没有贴出来，希望在以下程序的基础上增加“自动切换图层”的效果，请老大原谅我的后知后觉
;;; -------------------------------------------------------------------------------------------------------------------
;;; Bykwok http://bbs.mjtd.com/thread-99771-1-1.html
;;; -------------------------------------------------------------------------------------------------------------------
(defun c:ff ()
(setvar "osmode" 577)
(setq pt1 (getpoint "\n定原始点:"))
(while
(and
(setq pt2 (getpoint pt1 "\n请指定点连线:"))
)
(command "_line" pt1 pt2 "")
)
(setvar "osmode" 183)
(princ)
)
了解客户真正的需求，才能从根本解决问题。;;多引线 作者：蔡建伟 QQ：95818608
(defun C:FF (/ E ELIST LAYER PT1 PT2)
(setvar "OSMODE" 577)
(setq PT1 (getpoint "\n定原始点:"))
(while (setq PT2 (getpoint PT1 "\n请指定点连线:"))
(if (setq E (car (nentselp PT2)))
(setq LAYER (cdr (assoc 8 (entget E))))
(setq LAYER (getvar "CLAYER"))
)
(command "._LINE" "NON" PT1 "NON" PT2 "")
(setq ELIST (entget (entlast)))
(entmod (subst (cons 8 LAYER) (assoc 8 ELIST) ELIST))
)
(setvar "OSMODE" 183)
(princ)
) fire9527 发表于 2015-11-14 21:52 static/image/common/back.gif
老大，很接近了，我画的那些白色的圆圈只是为了标明目标点，实际上目标点可能是各种图元，如录像所示，希 ...
我那个只是跟你动画里面的反过来而已，我是先选目标点，在点注释，目标点也是随便你点哪里哪种图元的呀。
切换图层的效果不是有么？
页:
[1]
2