本帖最后由 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!...