iamhuangjinming 发表于 2016-10-13 20:35:30

选中图纸中的所有外部参照。求大神帮忙

本帖最后由 iamhuangjinming 于 2016-10-13 20:38 编辑

这是在网上看到的踢出所有外部参照的程序：(setq objs (ssadd))(mapcar '(lambda (h)
             (if (not
                   (vlax-property-available-p
                     (vlax-ename->vla-object h)
                     'path
                   )
               )
               (ssadd h objs)
             )
         )

          (mapcar 'cadr (ssnamex (ssget "_x" '((0 . "INSERT")))))
)

iamhuangjinming 发表于 2016-10-22 22:37:32

啊啊啊啊啊啊啊啊啊啊啊啊
页: [1]
查看完整版本: 选中图纸中的所有外部参照。求大神帮忙