分离（Detach）Xref

marting · 发表于 2017-4-5 17:48:40

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

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

×

[Plain Text] 纯文本查看 复制代码

(defun DetachXref (name / xref)
  (if (and (not (vl-catch-all-error-p (setq xref (vl-catch-all-apply 'vla-item
                                                   (list
                                                     (vla-get-blocks
                                                       (vla-get-activedocument (vlax-get-acad-object))
                                                       )
                                                     name
                                                     )
                                                   )
                                            )
                  )
                )
           (= :vlax-true (vla-get-isxref xref))
           )
    (vla-detach xref)
    )
  (princ)
  )

sicky111 · 发表于 2017-4-6 00:03:54

啥也不说了，感谢楼主分享哇！

kqqt6236 · 发表于 2017-4-14 00:04:30

正需要，支持楼主大人了！

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

[每日一码] 分离（Detach）Xref

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