s678z 发表于 2014-1-22 15:38:13

大师，程序中的序号文字宽度总是1.0，和cad文字样式设置不一致，序号数字高度宽度可否参考下面的程序修改，(defun c:n (/ p1 p2 p3 txt)
(setq sc (getvar "dimscale"))
(setq etxt(getvar "textstyle"))
(setq txt (getstring "\nNumber: "))
(while (and (setvar "OSMODE" 0)
            (setq p1 (getpoint "\nInput P1: "))
            (setvar "OSMODE" 512)
            (setq p2 (getpoint p1 "\nInput P2: "))
         (setvar "OSMODE" 0)
         (setq p3 (getpoint p2 "\nInput P3: ")))
(setq angle1 (angle p2 p3))
(if (< (/ pi 2) angle1 (* 1.5 pi)) (progn
   (command "pline" p1 p2 (polar p2 pi (* 7 sc )) "")
   (command "text" "j" "bc" (polar p2 2.737 (* 3.5 sc )) (* 5 sc ) 0 txt "")
)
(progn
   (command "pline" p1 p2 (polar p2 0 (* 7 sc )) "")
(command "text" "j" "bc" (polar p2 0.4 (* 3.5 sc )) (* 5 sc ) 0 txt "")
))
(command "change" "l" "" "p" "la" "文字标注层" "")
(setq txt (itoa (1+ (atoi txt))))
)
(princ)
(setvar "OSMODE" 167)
)

s678z 发表于 2014-2-24 11:23:02

tianyi1230 发表于 2013-12-24 22:00 static/image/common/back.gif
看着好牛啊，捧场，虽然不是这个专业。

大师有空吗，即显引线标注的序号字体宽度因子总是1，做出的字体太大，再帮忙动点脑筋，使序号字体改成随cad文字样式-宽度因子设置的数字，而且可以取消(setq etxt(getvar "textstyle"))这句程序，有这种式样的其它程序的

somefuture 发表于 2014-3-10 14:42:03

不知本程序是否可以实现多一个折线，有时需要标注的东西太多了，
源头到文字标注是只有一个折线，不够用。。。
可能我表述的不清楚，其实也就是天正里的那个箭头引注的效果
（不过箭头引注只能标注两行，让人郁闷）

开心的凡情 发表于 2014-7-16 09:46:50

好东西啊，标注序号是最头疼的一件事了，现在可以提高效率了

wuzhan220 发表于 2015-1-22 15:38:10

很厉害                     很厉害      

timmy521 发表于 2015-1-22 18:05:10

好。程序 谢谢你了。

nishuihanjian 发表于 2015-4-29 19:58:38

箭头样式可以改成点吗

陈君1945 发表于 2015-6-14 15:43:32

好东西，顶一个，感谢分享！

冒个烟圈 发表于 2015-6-14 18:41:26

菜卷鱼 发表于 2013-12-26 08:20 static/image/common/back.gif
跟http://bbs.mjtd.com/forum.php?mod=viewthread&tid=107993合并，可以改字宽

留个爪印。。，，

yoyoho 发表于 2015-10-28 22:10:33

很好的工具，谢谢你!
页: 1 2 [3] 4 5 6
查看完整版本: 即显引线标注程序