引线端部快捷文字标注。引线与文字自动分层，且文字能自适应引线比例大小、高宽比
本帖最后由 ★飞飛★ 于 2014-10-21 20:09 编辑;;------------------------------------------------------------------
(defun c:yy () ;;画引线（文字在引线端头）,★飞飛★2012.7.15编写
(setvar "cmdecho" 0)
(setq pt1 (getpoint "\n引线起点:")
pt2 (getpoint pt1 "\n下一点:")
pt3 (getpoint pt2 "\n终点:"))
(command "-layer" "m" "DIM" "c" "1" "" "" )
(command "Leader" pt1 pt2 pt3 "a" "" "n" );;;绘引线
(setq wz (getstring "\n请输入标注文字:"))
(setvar 'osmode 0)
(setq zg (* 3 (getvar "dimscale")))
(command "-style" "hztxt" "hzasc.shx,hztxt.shx" 0 0.7 0 "" "" "")
(command "-layer" "m" "TEXT" "c" "7" "" "" )
(command "text" pt3 zg "0" wz)
(if (> (car pt3) (car pt2))
(progn
(command "justifytext" (entlast) "" "ML" )
(setq ss (cdr (assoc 11 (entget (entlast)))))
(command "move" (entlast) "" ss pt3 )
(setq ss1 (polar pt3 0 (* zg 0.2))) )
(progn
(command "justifytext" (entlast) "" "MR" )
(setq ss (cdr (assoc 11 (entget (entlast)))))
(command "move" (entlast) "" ss pt3 )
(setq ss1 (polar pt3 pi (* zg 0.2))) )
)
(command "move" (entlast) "" pt3 ss1 )
(setvar 'osmode 6907)
(setvar "cmdecho" 1)
(princ)
) 麻烦哪位大师帮改进一下如图所示，谢谢了
(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时自动设置为正交模式?每次画引线都要调整正交模式 有点贵。。。。 看一看，谢谢。 本帖最后由 ★飞飛★ 于 2014-10-21 20:51 编辑
aisr花园 发表于 2014-10-21 09:07 static/image/common/back.gif
有点贵。。。。
呵呵，我也想降点下来，对于我们这类穷人来说，一个是有点贵啊，但明经里面最低就是一个呢。虽然这里做这种引线的程序也不少，但各有特点，因为原创，相信对学习源码思路的童鞋还是有一定帮助的。这论坛里面有一个我回复别人的同样的源代码，如果像我一样的穷人，建议去搜索一下，呵呵，这个要一个币是对于有钱钱的童鞋来说请给点个赞，给点辛苦费用哦（但这个小程序很简洁实用，相信一定会物超所值的），自己有了币也才能学习一些别人的代码，然后相互学习共同提高嘛 ★飞飛★ 发表于 2014-10-21 18:45 static/image/common/back.gif
呵呵，我也想降点下来，对于我们这类穷人来说，一个是有点贵啊，但明经里面最低就是一个呢。虽然这里做这 ...
楼主,来个演示吧! 强烈建议取消浏览收币功能 本帖最后由 ★飞飛★ 于 2014-10-21 20:11 编辑
lrd1861 发表于 2014-10-21 19:32 static/image/common/back.gif
强烈建议取消浏览收币功能
好吧，那币比较多的朋友，记得下载完之后给赏一个半个币的吧，希望本人的劳动能得到大家的肯定和认可，哈哈，看个人大方了，当然和我一样比较穷的人，币不多的朋友就不要了，如果给我了，你就没有了哦
标注效果
本帖最后由 ★飞飛★ 于 2014-10-21 20:35 编辑标注演示如附图所示： ★飞飛★ 发表于 2014-10-21 20:28 static/image/common/back.gif
标注演示如附图所示：
这个演示 用qleader 也可以做到啊 本帖最后由 ★飞飛★ 于 2014-10-27 23:28 编辑
lucas_3333 发表于 2014-10-21 20:41 static/image/common/back.gif
这个演示 用qleader 也可以做到啊
没研究过，有个效果截图就行了吧，当然重点不在这个，在内容上面。当然，愿意帮忙的童鞋可以用本程序做一个动态演示的出来，方便大家，呵呵
qleader做出来效果看似一样，但我这个是有很大区别的，一般大家都是用qleader命令，我当然也是用过的，如果qleader好用的话我也不会费心思再搞一个的啊，呵呵。
页:
[1]
2