删除理正勘察软件的柱状图风化标志

laibinwu

工作中有用到，需要删除图中的绿色框内标志（为块）。

1. (defun c:tt (/ ss ssl i)
   
2.   (setvar "cmdecho" 0)
   
3.   (if
   
4.     (setq
   
5.       ss (ssget        "X"
   
6.                 '((2 . "FH_QUAN_C,FH_QIANG_C,FH_ZHONG_C,FH_WEI_C"))
   
7.          )
   
8.     )
   
9.      (progn
   
10.        (setq i -1)
    
11.        (setq ssl (sslength ss))
    
12.        (princ (strcat "\n  共删除" (itoa ssl) "个图元！ "))
    
13.        (repeat ssl
    
14.          (entdel (ssname ss (setq i (1+ i))))
    
15.        )
    
16.      )
    
17.      (princ "\n  未删除图元！ ")
    
18.   )
    
19.   (setvar "cmdecho" 1)
    
20.   (princ)
    
21. )

(defun c:tt (/ ss ssl i)<br />   (setvar "cmdecho" 0)<br />   (if<br />     (setq<br />       ss (ssget        "X"<br />                 '((2 . "FH_QUAN_C,FH_QIANG_C,FH_ZHONG_C,FH_WEI_C"))<br />          )<br />     )<br />      (progn<br />        (setq i -1)<br />        (setq ssl (sslength ss))<br />        (princ (strcat "\n  共删除" (itoa ssl) "个图元！ "))<br />        (repeat ssl<br />          (entdel (ssname ss (setq i (1+ i))))<br />        )<br />      )<br />      (princ "\n  未删除图元！ ")<br />   )<br />   (setvar "cmdecho" 1)<br />   (princ)<br /> )

XDSoft

楼主，能把理正软件的柱状图带风化标志截取个图贴论坛来。

laibinwu

XDSoft 发表于 2013-6-13 18:27
楼主，能把理正软件的柱状图带风化标志截取个图贴论坛来。

嗯。已改。

marting

楼主这代码写的很漂亮，这么面熟呢。

提两个建议：

1、 PRINC放到ERASE后面吧，万一你先承诺出去了，结果意外发生了{:soso_e113:}
2、 未进行删除处理，修改为，没发现要删除的风化标志。

laibinwu

marting 发表于 2013-6-13 18:32
楼主这代码写的很漂亮，这么面熟呢。

提两个建议：

都是简单的ssget、progn估计很多相似的。
谢谢你的建议

QiaoCheng

应该一样吧，都已经有了ss，首长命令下来了，就只有一味向前冲啊

czb203

这个正需要，很讨厌那些框框

绿叶红花

支持论坛发展