冷门实用小工具【全图删除0值标注】

灬北方狼灬

简单功能不多说直接上图吧。




源码：

1. ;;全图删除值<= 0 的标注. By:ypeng 2023年1月8日
   
2. (defun c:d0 (/ ent)
   
3.   (if (/= (SETQ  ent (SSGET "x"
   
4.          '((0 . "DIMENSION")
   
5.            (-4 . "<=")
   
6.            (42 . 1)
   
7.           )))
   
8.     nil)
   
9.     (progn (command "ERASE" ent "")
   
10.      (princ "为 “0” 标注已清空。")
    
11.     )
    
12.     (princ "未检测到为 “0” 标注。")
    
13.   )
    
14.   (princ)
    
15. )

;;全图删除值<= 0 的标注. By:ypeng 2023年1月8日<br /> (defun c:d0 (/ ent)<br />   (if (/= (SETQ  ent (SSGET "x"<br />          '((0 . "DIMENSION")<br />            (-4 . "<=")<br />            (42 . 1)<br />           )))<br />     nil)<br />     (progn (command "ERASE" ent "")<br />      (princ "为 “0” 标注已清空。")<br />     )<br />     (princ "未检测到为 “0” 标注。")<br />   )<br />   (princ)<br /> )

尘缘一生

这个最好，在标注时候，就整合函数去掉了，不要画完再处理

请看三领的。。。
1：直接整合删除0尺寸
2：直接整合删除重复实体，合并单线同轴一根！
3：直接整合，判定图纸，是否炸开尺寸
4：直接可以跟随鼠标，完美，定位位置

灬北方狼灬

尘缘一生 发表于 2023-1-10 00:33
这个最好，在标注时候，就整合函数去掉了，不要画完再处理

请看三领的。。。

是的，前辈这个是多功能组合，我这个是因为收到别人的图有这种空值标注所以功能上会比较单一，主要还是看使用场景吧。感谢提出的宝贵思路

海盗曹

学习下写法

ynhh

简单实用
好好好

liuhe

这个有意思，配合qdim ，估计很好用

飞的鱼儿

还真没想到要写一个这样的东西，实用方便。

tomonkey239

点赞点赞点赞

中国梦

谢谢楼主分享

KO你

很实用，帮楼主顶一下