357785513 发表于 2013-8-27 00:21:02

点选某外剖参照卸载

前些天发的帖子丢失了不见了,这次重发
就是我有一个文件里它有好多个外部参照文件
我想执行某命令,然后点选某个外部参照的任意一图元
这个外部参照就给卸载了,各位能否实现呀

KL820619 发表于 2013-8-28 16:42:16

帮顶~~~~~~~~~~~~~

自贡黄明儒 发表于 2013-8-28 16:49:56

删除不就没有了吗？你想达到什么目的？

357785513 发表于 2013-9-2 07:17:37

那可不成,.以后要引用那些怎么办

357785513 发表于 2013-9-2 07:22:17

就像点图层关闭一样,点某个引用文件那个引用文件卸载

自贡黄明儒 发表于 2013-9-2 08:38:02

本帖最后由 自贡黄明儒 于 2013-9-2 08:48 编辑

357785513 发表于 2013-9-2 07:22 http://bbs.mjtd.com/static/image/common/back.gif
就像点图层关闭一样,点某个引用文件那个引用文件卸载

;; 卸载Xref
(defun C:w1 (/ BLKDEF BLKNAME BLOCKREF EN)
(if *DOC*
    nil
    (setq *DOC* (vla-get-activedocument (vlax-get-acad-object)))
)
(if (and (setq en (car (entsel)))
    (setq blockref (vlax-ename->vla-object en))
    (setq blkname (vla-get-name blockref))
    (setq blkdef (vla-item (vla-get-blocks *DOC*) blkname))
    (= (vla-get-isxref blkdef) :vlax-true)
      )
    (vla-unload blkdef)
)
(princ)
)

cgmacby 发表于 2013-9-2 12:48:44

自贡黄明儒 发表于 2013-9-2 08:38 static/image/common/back.gif


自贡黄明儒大神，
求一个点选拆离的lsp和更改参照类型 附加型或者覆盖型的lsp 再有一个更改路径类型的lsp就完美了~~~~

357785513 发表于 2013-9-2 22:48:54

那我也写一小断
(DEFUN C:EG ()
(SETVAr "visretain" 0)
   (COMMAND "-xref" "r" "*" )
(setvar "visretain" 1)
(PRINC"\NFINISH")
)

357785513 发表于 2013-9-2 22:58:04

我的太慢了,高手看看是不是可以改善一下
那我也写一小断
(DEFUN C:EG ()
(SETVAr "visretain" 0)
   (COMMAND "-xref" "r" "*" )
(setvar "visretain" 1)
(PRINC"\NFINISH")
)

清风明月名字 发表于 2013-9-3 09:08:19

谢谢楼主的分享！很好用啊。
页: [1] 2
查看完整版本: 点选某外剖参照卸载