那么,有没有什么方法,可以使测量的长度,输出到图形中?
有。
可以通过一个lisp小插件即可搞定。
将如下代码,复制到空白记事本文件中,保存退出,并修改记事本文件名为cd.lsp。
(defun C:cd()
;查询对象(多线段、直线、矩形)长度
(setq a (vlax-ename->vla-object (car (entsel "\选择对象: "))))
(setq b (vla-get-length a))
(setq c (rtos b ))
(setq ch1 (strcat "长度:" c "mm"))
(setq ch2 (getpoint "\n屏幕单击插入点"))
(entmake (list '(0 . "text")
(cons 10 ch2)
(cons 11 ch2)
(cons 1 ch1)
'(40 . 350)
)
)
(prin1)
)
命令行输入ap,弹出加载应用程序窗口,选择插件,加载。
命令行输入cd,选择对象,然后单击屏幕,即可把长度值插入到图形中。
完。