复制外部参照无法复制标注

chengwangjun

(defun c:ttt(/ blk-name b blk doc acver a e)
(setq blk-name (cdr (assoc 2 (entget (car (entsel))))))
(setq b (Vlax-Get (Vlax-Invoke-Method (Vlax-Get (Vlax-Get (Vlax-Get-Acad-Object) 'ActiveDocument) 'Blocks) 'Item blk-name) 'Count))
(setq blk (Vlax-Invoke-Method (Vlax-Get (Vlax-Get (Vlax-Get-Acad-Object) 'ActiveDocument) 'Blocks) 'Item blk-name))
(vla-open
(setq doc (vla-GetInterfaceObject
(vlax-get-acad-object)
(if (< (setq acVer (atoi (getvar "ACADVER"))) 16) "ObjectDBX.AxDbDocument" (strcat "ObjectDBX.AxDbDocument." (itoa acVer))
)
)
)
(findfile
(strcat blk-name ".dwg")
   )
   )

(setq a -1)
(repeat b
(setq e (vlax-vla-object->ename (Vlax-Invoke-Method blk 'Item (setq a (1+ a)))))
(vlax-invoke doc 'CopyObjects (list (vla-HandleToObject doc (cdr (assoc 5 (entget e)))))
(vla-get-ModelSpace (vla-get-ActiveDocument (vlax-get-acad-object))))
)
)