VLISP用ActiveX获得所有XREF文件

LoveArx · 发表于 2017-2-15 12:51:26

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(defun c:tt ()
  (setq        aobj (vlax-get-acad-object)
        adoc (vla-get-ActiveDocument aobj)
        blks (vla-get-Blocks adoc)
        i    0
  )
  (vlax-for item blks
    (if        (vla-get-IsXRef item)
      (progn
        (princ "\nFind " (itoa (setq i (1+ i))) " Xref, name is:")
        (princ (vla-get-name item))
      )
    )
  )
  (princ)
)

对应的ARX ActiveX编程代码见：http://bbs.xdcad.net/thread-707158-1-1.html

yoyoho · 发表于 2017-2-18 08:38:54

感谢 LoveArx 分享程序,3Q!

pengfei2010 · 发表于 2018-3-25 13:21:36

谢谢分享，学习了

scnjlwb · 发表于 2018-3-25 15:21:18

多谢分享！

账号		自动登录	找回密码
密码			立即注册

[每日一码] VLISP用ActiveX获得所有XREF文件

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。