一些随手写的小工具（慢慢更新）

fkyourmather

可以发一下overkill的东东吗

awbldc

真心不错，楼主很有才华啊:lol

Free-Lancer

46 一个过滤重复Line的函

1. (defun RemoveMLine (ss / ssl sp e ep ln lninfo)
   
2.   (setq ssl (sslength ss))
   
3.   (while (> ssl 0)
   
4.     (setq e (ssname ss (setq ssl (1- ssl))))
   
5.     (if  (= (cdr (assoc 0 (entget e))) "LINE")
   
6.       (progn
   
7.   (setq
   
8.     sp (vlax-curve-getstartpoint e)
   
9.     ep (vlax-curve-getendpoint e)
   
10.     ln (list sp ep)
    
11.   )
    
12.   (if (not Lninfo)
    
13.     (setq lninfo (list ln))
    
14.     (foreach i lninfo
    
15.       (if  (or (equal i ln 0.00001)
    
16.         (equal i (reverse ln) 0.00001)
    
17.     )
    
18.         (ssdel e ss)
    
19.         (setq lninfo (append (list ln) lninfo))
    
20.       ) ;_end if
    
21.     ) ;_end foreach
    
22.   ) ;_end if
    
23.       ) ;_end progn
    
24.     ) ;_end if
    
25.   ) ;_end while
    
26.   ss
    
27. )

(defun RemoveMLine (ss / ssl sp e ep ln lninfo)<br />   (setq ssl (sslength ss))<br />   (while (> ssl 0)<br />     (setq e (ssname ss (setq ssl (1- ssl))))<br />     (if  (= (cdr (assoc 0 (entget e))) "LINE")<br />       (progn<br />   (setq<br />     sp (vlax-curve-getstartpoint e)<br />     ep (vlax-curve-getendpoint e)<br />     ln (list sp ep)<br />   )<br />   (if (not Lninfo)<br />     (setq lninfo (list ln))<br />     (foreach i lninfo<br />       (if  (or (equal i ln 0.00001)<br />         (equal i (reverse ln) 0.00001)<br />     )<br />         (ssdel e ss)<br />         (setq lninfo (append (list ln) lninfo))<br />       ) ;_end if<br />     ) ;_end foreach<br />   ) ;_end if<br />       ) ;_end progn<br />     ) ;_end if<br />   ) ;_end while<br />   ss<br /> )

数

haoryh

感谢楼主放这么多实用的东西出来！

haoryh

就是根本没删除，没反应，见演示！

renox

感谢楼主放这么多实用的东西出来！

renox

楼主那个“对齐标注转转角标注”不能用

XDSoft

haoryh 发表于 2013-5-20 09:07
就是根本没删除，没反应，见演示！

你说的是哪个工具没删除，没反应啊？

haoryh

XDSoft 发表于 2013-5-20 18:07
你说的是哪个工具没删除，没反应啊？

45,删除重复实体那一个！

XDSoft

haoryh 发表于 2013-5-20 18:12
45,删除重复实体那一个！

你把DWG压缩发上来，让楼主测试下。

haoryh

好的，上传图纸。

haoryh

刚才咋没上传上去？

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:008.rar 
下载次数:36  文件大小:174.75 KB 
下载权限: 不限 以上  [免费赚D豆]

2012淡然之马

Free-Lancer 发表于 2013-5-7 14:52
45 删除完全重复实体(defun c:removeMEnt (/        ss        ssl        n        t0        t1
        ...

对呀，只能找到对象，不会自动删除的

adc

偶像，支持一下

Free-Lancer

haoryh 发表于 2013-5-20 18:27
刚才咋没上传上去？

知道了，对 Dimension 而言组码 2 是不同的，即使是重叠的 List 表中其它都相同但 2 不同，所以没有删除标注，其他实体可以删除