日志
利用ET中的FS写的一个简单的修剪内部线
|
利用ET中的FS写的一个简单的修剪内部线
对“凹”多边形可能要多修剪几次，不过这是最简单的写法了。虽然每个版本的CAD都装了ET，可写程序时基本没有用过ET中的函数，这是第一个吧。
临时应用的时候简单的写几句可以有事半功倍的效果。如数块
代码:
(sslength (ssget (list (assoc 2 (entget (car (entsel)))))))
在命令行输入以上一句就可以数某一种块的数量 2005年08月25日
代码:
(if (/= (type 'fastsel) 'SYM)
(load "fastsel" nil)
)
(defun c:tt (/ ss p e ssl n)
(if (and (setq ss (fastsel))
(setq p (getpoint "\n拾取内部点: "))
)
(progn
(setq e (ssname ss 0))
(ssdel e ss)
(setq ssl (sslength ss)
n -1
)
(vl-cmdf ".trim" e "")
(repeat ssl
(vl-cmdf (list (ssname ss (setq n (1+ n))) p))
)
(vl-cmdf "")
)
)
(princ)
)
