AutoCAD LISP 複製圖塊中物件

功能類似Express Tools內的NCOPY命令

(defun c:CopyBlockEname  (/ e new)
    (if (and
     (setq e (nentselp "\n選取要複製的圖塊中物件："))
     (eq (length e) 4)
     (setq new (entmakex (entget (car e))))
     );_and
 (vla-transformby
     (vlax-ename->vla-object new)
     (vlax-tmatrix (caddr e))
     )
 );_if
    (princ)
    );_結束

相關連結

AutoCAD 如何載入LISP