即显引线标注程序

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
看着好牛啊，捧场，虽然不是这个专业。

大师有空吗，即显引线标注的序号字体宽度因子总是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
跟http://bbs.mjtd.com/forum.php?mod=viewthread&tid=107993合并，可以改字宽

留个爪印。。，，

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

很好的工具，谢谢你!

账号		自动登录	找回密码
密码			注册

[源码] 即显引线标注程序