正在加载...
0人已收藏
0人已打赏
0人已点赞
分享
全部回复(1 )
主题
回复
粉丝
CAD下载及教程
52.08 万条内容 · 662 人订阅
阅读下一篇
这是一段从外国论坛下的LSP面积标注小程序很方便但是标注出来的是非公制的请问有哪位大侠能将其改成毫米或者米的公制单位?谢谢!!===============================================;;; AreaText.LSP ver 3.0;;; Command name is AT;;; Select a polyline and where to place the text
遇到了一点小问题
内容不能包含下列词语
回帖成功
经验值 +10
全部回复(1 )
只看楼主 我来说两句 抢板凳(defun c:at (/ area cth loc ss str th vevo)
(while
(setq ss (car (entsel "\n选择对象")))
(setq vevo (vlax-ename->vla-object ss))
(setq area (vlax-get vevo 'area))
(setq loc (getpoint "\n点击标注位置<0,0,0>: "))
(if (= loc nil)(setq loc '(0 0 0)))
(setq str (strcat "s=" (rtos area 2 2 )"平方米"))
(setq cth (rtos (getvar "textsize")))
(setq th (getdist (strcat "\n输入字体大小 < " cth " > : ")))
(if (= th nil)(setq th cth))
(command "_text" loc th "" str 0)
) ; while
(princ)
) ; defun
回复 举报