求高手编一个画指引线的程序，用于引线标注的增加

fire9527

求高手编一个画指引线的程序，用于引线标注的增加操作提示如下:
1.选择指引原点(如果选择空白点，画出直线所在图层为当前层，如果选择某图元的捕捉点，则画出直线所在层为被捕捉图元所在图层)
2.左键点选多个目标点，右键确定选完
3.在原点和目标点画直线。直线要求为第1条括号里面的内容
如果程序能适应各种坐标系就更好，不好实现也无所谓

bori

试试看。

fl202

最好给个原图、完成图的dwg图纸。配上文字说明后，这样比较清晰明确。

fire9527

fl202 发表于 2015-11-12 14:13
最好给个原图、完成图的dwg图纸。配上文字说明后，这样比较清晰明确。

已上传附件，谢谢

bori

试试看，可行？？？？

yoyoho

感谢 bori 分享学习!

xyp1964

fire9527

bori 发表于 2015-11-13 11:05
试试看。

老大，很接近了，我画的那些白色的圆圈只是为了标明目标点，实际上目标点可能是各种图元，如录像所示，希望得到录像的效果，录像中是用“kwok”朋友写的程序，怕干扰老大思路之前没有贴出来，希望在以下程序的基础上增加“自动切换图层”的效果，请老大原谅我的后知后觉
;;; -------------------------------------------------------------------------------------------------------------------
;;;     By  kwok   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)
  )

carrot1983

了解客户真正的需求，才能从根本解决问题。

2. ;;多引线 作者：蔡建伟 QQ：95818608
   
3. (defun C:FF (/ E ELIST LAYER PT1 PT2)
   
4.   (setvar "OSMODE" 577)
   
5.   (setq PT1 (getpoint "\n定原始点:"))
   
6.   (while (setq PT2 (getpoint PT1 "\n请指定点连线:"))
   
7.     (if        (setq E (car (nentselp PT2)))
   
8.       (setq LAYER (cdr (assoc 8 (entget E))))
   
9.       (setq LAYER (getvar "CLAYER"))
   
10.     )
    
11.     (command "._LINE" "NON" PT1 "NON" PT2 "")
    
12.     (setq ELIST (entget (entlast)))
    
13.     (entmod (subst (cons 8 LAYER) (assoc 8 ELIST) ELIST))
    
14.   )
    
15.   (setvar "OSMODE" 183)
    
16.   (princ)
    
17. )

;;多引线 作者：蔡建伟 QQ：95818608<br /> (defun C:FF (/ E ELIST LAYER PT1 PT2)<br />   (setvar "OSMODE" 577)<br />   (setq PT1 (getpoint "\n定原始点:"))<br />   (while (setq PT2 (getpoint PT1 "\n请指定点连线:"))<br />     (if        (setq E (car (nentselp PT2)))<br />       (setq LAYER (cdr (assoc 8 (entget E))))<br />       (setq LAYER (getvar "CLAYER"))<br />     )<br />     (command "._LINE" "NON" PT1 "NON" PT2 "")<br />     (setq ELIST (entget (entlast)))<br />     (entmod (subst (cons 8 LAYER) (assoc 8 ELIST) ELIST))<br />   )<br />   (setvar "OSMODE" 183)<br />   (princ)<br /> )

bori

fire9527 发表于 2015-11-14 21:52
老大，很接近了，我画的那些白色的圆圈只是为了标明目标点，实际上目标点可能是各种图元，如录像所示，希 ...

我那个只是跟你动画里面的反过来而已，我是先选目标点，在点注释，目标点也是随便你点哪里哪种图元的呀。
切换图层的效果不是有么？