[LISP程序]：利用ET中的FS写的一个简单的修剪内部线

eachy

对“凹”多边形可能要多修剪几次，不过这是最简单的写法了。
虽然每个版本的CAD都装了ET，可写程序时基本没有用过ET中的函数，这是第一个吧。
临时应用的时候简单的写几句可以有事半功倍的效果。如数块

1. 
   
2. (sslength (ssget (list (assoc 2 (entget (car (entsel)))))))

复制代码

在命令行输入以上一句就可以数某一种块的数量

2. 
   
3. (if (/= (type 'fastsel) 'SYM)
   
4.   (load "fastsel" nil)
   
5. )
   
6. (defun c:tt (/ ss p e ssl n)
   
7.   (if (and (setq ss (fastsel))
   
8.            (setq p (getpoint "\n拾取内部点: "))
   
9.       )
   
10.     (progn
    
11.       (setq e (ssname ss 0))
    
12.       (ssdel e ss)
    
13.       (setq ssl        (sslength ss)
    
14.             n        -1
    
15.       )
    
16.       (vl-cmdf ".trim" e "")
    
17.       (repeat ssl
    
18.         (vl-cmdf (list (ssname ss (setq n (1+ n))) p))
    
19.       )
    
20.       (vl-cmdf "")
    
21.     )
    
22.   )
    
23.   (princ)
    
24. )

<br /> (if (/= (type 'fastsel) 'SYM)<br />   (load "fastsel" nil)<br /> )<br /> (defun c:tt (/ ss p e ssl n)<br />   (if (and (setq ss (fastsel))<br />            (setq p (getpoint "\n拾取内部点: "))<br />       )<br />     (progn<br />       (setq e (ssname ss 0))<br />       (ssdel e ss)<br />       (setq ssl        (sslength ss)<br />             n        -1<br />       )<br />       (vl-cmdf ".trim" e "")<br />       (repeat ssl<br />         (vl-cmdf (list (ssname ss (setq n (1+ n))) p))<br />       )<br />       (vl-cmdf "")<br />     )<br />   )<br />   (princ)<br /> )