求输入tt，提示选第一条线，提示选第二条线，在第一条和第二条的交点位置画一条成1...
求输入tt提示选第一条线
提示选第二条线
在第一条和第二条的交点位置
画一条成135°角的长10m的线
(defun c:tt(/ en1 en2 pt)
(setq en1 (car (entsel "\nfirst:"))
en2 (car (entsel "\nsecend:"))
pt(vla-intersectwith (vlax-ename->vla-object en1)
(vlax-ename->vla-object en2)
acExtendBoth)
pt(vlax-safearray->list (vlax-variant-value pt)))
(entmake(list'(0 . "line")(cons 10 pt)(cons 11(polar pt(* 0.75 pi)10000))))) 夏生生 发表于 2023-11-15 15:16
谢谢大神...
页:
[1]