lisp获取图名_如何获取图纸内的所有图块名称 - AutoLISP/Visual LISP 编程技术 -

本帖最后由 lostbalance 于 -10-12 11:24 编辑

首先申明：以下函数出自自贡黄明儒共享的函数库。

个人为了便于使用和管理，修改了函数名称。

[code="lisp]

(setq ;;常用VLA对象、集合

*ACAD*(vlax-get-acad-object) ;;AutoCAD任务中的顶层 AutoCAD应用程序对象，即获取AutoCAD程序本身

*DOC* (vla-get-ActiveDocument *ACAD*) ;;是在autocad程序下面运行的当前文档对象

*BLKS*(vla-get-Blocks *DOC*)

)

;|= 9.6. 对象名称

@== (wyb-name obj)

#== return: [str]

par:

sample:

(wyb-name *ACAD*) return: "AutoCAD"

(wyb-name *MS*) return: "*Model_Space"

ver:

[1.0] 自贡黄明儒

====================|;

(defun wyb-name (@obj)

(if (vlax-property-available-p @obj Name)

(vlax-get-property @obj Name)

""

)

lisp获取图名_如何获取图纸内的所有图块名称 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...