社区 › AutoLISP/Visual LISP 编程技术 › 标注线段长度【文字方式】

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 static/image/common/back.gif


这个好牛逼

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

收藏了 谢谢！

查看完整版本: 标注线段长度【文字方式】