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

本帖最后由 lostbalance 于 2019-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)

""

)

本文来自互联网用户投稿，文章观点仅代表作者本人，不代表本站立场，不承担相关法律责任。如若转载，请注明出处。 如若内容造成侵权/违法违规/事实不符，请点击【内容举报】进行投诉反馈！