在闭合多边形内延伸线
有没有办法绘制一条终止于折线边缘的垂直线？好像我在线的两侧都使用了“延伸”，但没有选择折线？
所以垂直线将延伸到第一个交叉路口。
多边形是不规则的形状，并不总是正方形，但延伸的线是垂直的。
我找遍了似乎找不到任何东西......
谢谢！
伪码装B用的
[*](defun C:NM (/ line lst p1 pa pb)
[*](setq p1 (getpoint "\n指定一点:")
[*] pa(xj-pxy p1 'y 1e8)
[*] pb(xj-pxy p1 '-y 1e8)
[*])
[*](setq lst(xj-cgjiaodianpa pb0.5))
[*] (xj-line(car lst)(cadr lst))
[*] (princ)
[*])
页:
[1]