点选某外剖参照卸载

357785513

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

KL820619

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

自贡黄明儒

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

357785513

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

357785513

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

自贡黄明儒

357785513 发表于 2013-9-2 07:22
就像点图层关闭一样,点某个引用文件那个引用文件卸载

1. ;; 卸载Xref
   
2. (defun C:w1 (/ BLKDEF BLKNAME BLOCKREF EN)
   
3.   (if *DOC*
   
4.     nil
   
5.     (setq *DOC* (vla-get-activedocument (vlax-get-acad-object)))
   
6.   )
   
7.   (if (and (setq en (car (entsel)))
   
8.     (setq blockref (vlax-ename->vla-object en))
   
9.     (setq blkname (vla-get-name blockref))
   
10.     (setq blkdef (vla-item (vla-get-blocks *DOC*) blkname))
    
11.     (= (vla-get-isxref blkdef) :vlax-true)
    
12.       )
    
13.     (vla-unload blkdef)
    
14.   )
    
15.   (princ)
    
16. )

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

cgmacby

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

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

357785513

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

357785513

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

清风明月名字

谢谢楼主的分享！很好用啊。