垂直交点

- ;;垂直交点 需要e派工具箱(XCAD)的支持:[url=http://xyp1964.ys168.com]http://xyp1964.ys168.com[/url]
- (defun c:tt ()
- (CMDLA0)
- (setq s0 (car (entsel "\n选择: ")))
- (while (setq p0 (getpoint "\n基点<退出>: "))
- (setq p1 (xyp-get-Pt2Y p0 10)
- s1 (xyp-Add-Xline p0 p1)
- )
- (if (setq ptn (xyp-get-Inters s1 s0 0))
- (foreach pt ptn
- (xyp-Cross pt 100 0)
- )
- )
- (xyp-erase s1)
- )
- (CMDLA1)
- )
|