photo_cup 发表于 2014-10-23 10:20:16

不错。。。

我爱lisp 发表于 2014-10-24 17:43:05

上来就要钱，不太好哦

dingtiedt 发表于 2015-9-4 23:00:01

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

★飞飛★ 发表于 2015-9-18 19:35:31

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

早就没有收币了

freeok 发表于 2015-9-20 22:46:35

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

669423907 发表于 2017-10-10 22:59:27

麻烦哪位大师帮改进一下如图所示，谢谢了
(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)
)

蓝盾设计 发表于 2019-7-13 11:53:52

你好!是否可以修改画引线PT3时自动设置为正交模式?每次画引线都要调整正交模式
页: 1 [2]
查看完整版本: 引线端部快捷文字标注。引线与文字自动分层，且文字能自适应引线比例大小、高宽比