引线端部快捷文字标注。引线与文字自动分层，且文字能自适应引线比例大小、高宽比

photo_cup

不错。。。

我爱lisp

上来就要钱，不太好哦

dingtiedt

基本上现在不用leader，而改用multileader。但支持你原创的精神，分享的美德。关于要收币，可以先发个图示，或是象别人发个fas让人测试，觉得值得买就买

★飞飛★

dingtiedt 发表于 2015-9-4 23:00
基本上现在不用leader，而改用multileader。但支持你原创的精神，分享的美德。关于要收币，可以先发个图示， ...

早就没有收币了

freeok

搞个复杂点的画云线  出箭头引线 写文字，先预设图层/当前层。。。

669423907

麻烦哪位大师帮改进一下如图所示，谢谢了
(defun c:`w()
  (setq pt1 (getpoint "\n引线起点:")
        pt2 (getpoint pt1 "\n下一点:")
        pt3 (getpoint pt2 "\n终点:"))
  (command "Leader" pt3 pt2 pt1 "a" "" "n" );;;绘引线 pt3
;  (setq wz (getstring "\n请输入标注文字:"))

(setq osmode (getvar 'osmode)) ;记录捕捉
(setvar 'osmode 0)             ;关闭捕捉

(setq zigao (* (getvar "dimtxt") (getvar "dimscale")))
(if (= wz nil) (setq wz "A"))
  (command "text" pt3 zigao "0" wz "chprop" (entlast) "" "p" "la" "4标注" "c" "2" "")
  (if (> (car pt3) (car pt2))
    (progn
      (command "justifytext" (entlast) "" "ML" )
      (setq ss (cdr (assoc 11 (entget (entlast)))))
      (command "move" (entlast) "" ss pt3)
      (setq pt4 (polar pt3 0 (* 0.3 zigao))) )
    (progn
      (command "justifytext" (entlast) "" "MR" )
      (setq ss (cdr (assoc 11 (entget (entlast)))))
      (command "move" (entlast) "" ss pt3)
      (setq pt4 (polar pt3 pi (* 0.3 zigao))) )
  )
  (command "move" (entlast) "" pt3 pt4 )
(setvar 'osmode osmode)        ;恢复捕捉
(setq ss (ssadd))
(setq ss (ssadd (entlast) ss))
(sssetfirst nil ss)
(command "ddedit" "")
  (princ)
)

蓝盾设计

你好!是否可以修改画引线PT3时自动设置为正交模式?每次画引线都要调整正交模式