tryhi 发表于 2015-11-2 20:43:22

封闭多段线画角平分线

本帖最后由 tryhi 于 2015-11-2 20:47 编辑

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

函数名：try-angle-div
参数1、点表
参数2、平分线长度
返回值：新的点表(defun c:tt()
(setq aa (entlast))
(setq aa(car(entsel)))
(setq points (Vertexs aa));返回点表
(setq pts (try-angle-div points 4));平分线的长度，负数为往里
(setq lines(mapcar 'list points pts));构造直线表
(foreach n lines (command "LINE" "_non" (car n)"_non"(cadr n)""));画直线
)







ynhh 发表于 2015-11-3 09:07:50

不知这用在什么地方啊

yoyoho 发表于 2017-10-5 14:18:32

感谢 tryhi 分享程序!!!!

zhangkui9070 发表于 2023-5-10 08:46:57

在我这不能用
页: [1]
查看完整版本: 封闭多段线画角平分线