lisp 图元 天正 自定义_如何得到所选图元的最大外形? - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...

[code="lisp]

;得到最大外形 by weltion

(defun c:getboundary(/ ACADAPP ACADDOC ACADSPC BDOBJ BLENT BLNAME BLOBJ DST HENT HOBJ HPT LENT LPT MAXAREA MAXOBJ OBJ OBJA OSMODE PT0 PT1 PT2 PT3 PT4 SLTSET UPT)

;加载vlisp函数

(vl-load-com)

;ACD应用程序

(setq acadapp (vlax-get-acad-object)

;当前文档

acaddoc (vla-get-activedocument acadapp)

)

;当前工作空间

(if (= (getvar "TILEMODE") 1)(setq acadspc (vla-get-modelspace acaddoc))(setq acadspc (vla-get-paperspace acaddoc)))

;选择处理对象

(if (setq sltset (ssget))

(progn

;保存用户捕捉

(setq osmode (getvar "OSMODE"))

;关闭捕捉

(setvar "OSMODE" 0)

;获取当前时间

(setq blname (rtos (getvar "CDATE")))

;制作成图块

(command "block" blname '(0 0 0) sltset "")

;插入块

(command "insert" blname '