封闭多段线画角平分线

tryhi

虽然用偏移也可以得到，不过采用纯计算还是有一定的优势

函数名：try-angle-div
参数1、点表
参数2、平分线长度
返回值：新的点表

2. (defun c:tt()
   
3.   (setq aa (entlast))
   
4.   (setq aa(car(entsel)))
   
5.   (setq points (Vertexs aa));返回点表
   
6.   (setq pts (try-angle-div points 4));平分线的长度，负数为往里
   
7.   (setq lines(mapcar 'list points pts));构造直线表
   
8.   (foreach n lines (command "LINE" "_non" (car n)"_non"(cadr n)""));画直线
   
9. )
   
10. 
    
11. 
    
12. 
    
13. 
    

(defun c:tt()<br />   (setq aa (entlast))<br />   (setq aa(car(entsel)))<br />   (setq points (Vertexs aa));返回点表<br />   (setq pts (try-angle-div points 4));平分线的长度，负数为往里<br />   (setq lines(mapcar 'list points pts));构造直线表<br />   (foreach n lines (command "LINE" "_non" (car n)"_non"(cadr n)""));画直线<br /> )<br /> <br /> <br /> <br /> <br />

ynhh

不知这用在什么地方啊

yoyoho

感谢 tryhi 分享程序!!!!

zhangkui9070

在我这不能用