标注线段长度【文字方式】

zyj0063 · 发表于 2012-11-19 19:47:15

本帖最后由 zyj0063 于 2012-11-19 19:47 编辑

测试了一下，运行时必须关闭“对象捕捉”。确实有待完善。

freeok · 发表于 2012-11-19 21:14:49

这个必须得顶。。。谢谢两位

bai2000 · 发表于 2012-12-14 17:24:13

楼主，字体还是乱飞啊，调整一下

nuts26173802 · 发表于 2012-12-16 10:25:10

赞~\(≧▽≦)/~ 利器啊

谢谢楼主无私

楚留香 · 发表于 2012-12-16 11:33:12

桁架挑檐的钢架吧！建议输入杆件自身截面后，自行计算每种杆件（图层区分）的角度和长度，就能生成加工图了！三维图支持到三维加工图那真是苦逼了！呵呵！

linheyuanpcb · 发表于 2012-12-16 14:08:44

把面积标出来可以?

sotop · 发表于 2013-4-23 13:34:00

用过了，真是好东西，谢谢

香田里浪人 · 发表于 2013-5-22 07:39:17

;;;长度标注
(defun c:bcplbz ()
  (CMDLASC0)
(setq ss (ssget '((0 . "*LINE")))
i  -1
  )
(command "layer" "M" "长度标注" "C" "4" "" "LT" "CONTINUOUS" "" "");设置一个标注图层
(command "style" "Style1" "仿宋_GB2312" "" "1.0" "0" "N" "N")
(defun maketext (txt pt)          ; 生成文字子函数
(entmake (list '(0 . "TEXT") (cons 10 pt) (cons 40 TextHeight) (cons 1 txt) '(41 . 0.8)'(7 . "宋体")))
  )
(while (setq s1 (ssname ss (setq i (1+ i))))
(setq ptlst (uptlst s1))
(while (setq pt1 (car ptlst))
   (if (setq ptlst (cdr ptlst))
(progn
(setq pt2 (car ptlst)
  tx (rtos (distance pt1 pt2) 2 2)
  ang (rad2ang (angle pt1 pt2))
  pt-tx (PT-RIGHT pt1 pt2 (* sc 100))
)
(command "text" "j" "BC" pt-tx (* sc 100) ang tx)
)
   )
)
  )
(CMDLA1)
)

hehaidizhi · 发表于 2013-11-1 17:57:10

xyp1964 发表于 2012-8-6 16:38

这个好牛逼

200853006 · 发表于 2013-11-1 19:14:23

收藏了谢谢！

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

标注线段长度【文字方式】

点评

点评