DesmetMartin 发表于 2022-7-5 15:32:48

删除dra中的所有点/节点

你好
 
我正在搜索从图形（.dwg）中删除所有点的lips或命令/方法。
 
这是必要的，因为我们公司从其他公司获得了很多图纸，其中有很多点/节点。
 
我们需要在几次点击中删除它，而不是打开块并删除它们。
 
我们目前有2016年Acad，几个月后将切换到2018年。
 
提前谢谢！
 
谨致问候，
马丁

pBe 发表于 2022-7-5 15:44:20

(defun c:blitzH (/ adoc)
(vlax-for blk (vla-get-blocks
                   (setq adoc        (vla-get-ActiveDocument (vlax-get-acad-object))
                   )
               )
(if (eq :vlax-false (vla-get-isXref blk))
    (vlax-for h blk
       (if
           (and (vlax-write-enabled-p h)
                   (eq (vla-get-ObjectName h) "AcDbPoint")
           )
          (vla-delete h)
       )
    )
)
)
(vla-regen aDoc acAllViewports)
)
 
当然，还有其他因素需要考虑，比如锁定层和一些

ronjonp 发表于 2022-7-5 15:59:11

或者如果你只是不想看到它们：（setvar'pdmode 1）

pBe 发表于 2022-7-5 16:08:00

 
是的，也是这样。

Tharwat 发表于 2022-7-5 16:13:12

你好，pBe。
 
您可能忽略了其中一个函数。在检查块定义是否为外部参照之前。

pBe 发表于 2022-7-5 16:31:14

 
你是对的。很好，塔瓦特。

BIGAL 发表于 2022-7-5 16:42:23

我的自动加载中的0.05美元
 

(defun c:PTY ()
(setvar 'pdmode 35) ; turn on ptype
(setvar 'pdsize 0.2)
)

(defun c:PTYY () ; turn off ptype
(setvar 'pdmode 1)
)
页: [1]
查看完整版本: 删除dra中的所有点/节点