AutoCAD LISP 獲取圖塊中物件列表
主要程式碼： (defun ax:GetBlockSubEnts (blkref / blkdef lst c) (setq blkref (vlax-ename->vla-object blkref)) (if (= (vla-get-objectname blkref) "AcDbBlockReference") (progn (setq blkdef (vla-item (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)) ) (vla-get-name blkref) ) c 0 ) (repeat (vla-get-count blkdef) (setq lst (cons (vlax-vla-object->ename (vla-item blkdef c)) lst) c (1+ c) ) ) ) ) (reverse lst) ) 如何使用： (AX:GETBLOCKSUBENTS (car(entsel))) 回傳： (<圖元名稱: 7ff6b27c4ef0> <圖元名稱: 7ff6b27c4f00> <圖元名稱: 7ff6b27c4f10>) 程式碼來源網址 相關連結 AutoCAD 如何載入LISP