外部动态块插入，匹配填充

13763815647

这个是插入外部文件的动态块。
(defun c:ii ()   
  (setq kname (getstring "\n 图块名: ")) ; 注意：这里也修正了提示信息的引号  
  (setq pt (getpoint "\n 插入点: "))         ; 同样修正了提示信息的引号  
  (command "_-insert" kname pt "_non" "" "" "") ; 使用变量kname的值，而不是字符串"kname"  
)  


下面这个是一个选取动态块直接填充到识别矩形里面的一小段。
                 (setq en (car (xentsel "\n请选择一个模板动态块:" '((0 . "insert") ) ) )) (setq pt1 '(0 0 )) (setq name2 (get-effectivename en ))
                 (entmake (list '(0 . "INSERT") (cons 2 name2 ) (cons 10 pt1 ) ) ) (setq enb (entlast )) (setq dxert (vlax-ename->vla-object enb ))
每次都要插入，再去点动态块，再填充。

有没有办法可以直接外部加载进来直接自动识别外部块的属性去操作下一步。两个模块打通起来。
谢谢各位大佬。