grdraw用法 lisp_动态块控制核心程序 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - 程序,动态 - Powered by Discuz!...

上面写错了，是明经CAD论坛。

这里是源码：

;;;加载Vlisp扩展

(vl-load-com)

;;;---------主程序：---------

;;;定义CAD快捷键

(defun c:wd ()

;;;调用应用程序

(xyls-dynbox-1)

(prin1)

)

;;;;###################应用程序#######################

;;;设置动态块[特定]属性---------

(defun xyls-dynbox-1 ()

(setvar "cmdecho" 0)

;;在屏幕上选择两点

(setq point_1 (getpoint "\nPoint 1 :"))

(setq point_2 (getpoint point_1 "\nPoint 2 :"))

;;画临时示意线

(grdraw point_1 point_2 1 1)

;;计算两点间的距离

(setq par_dist_1 (distance point_1 point_2))

;;取得两个通用函数需要的动态块，需要vla-object对象

(setq data_dynblk (vlax-ename->vla-object (car (entsel "请选择动态块"))))

;;取得所有动态块的参数，并在命令栏输出

(print (xyl-getdynallpropvalue data_dynblk))

;;lm-setdynpropvalue函数的动态块参数，需要Strin