求输入tt，提示选第一条线，提示选第二条线，在第一条和第二条的交点位置画一条成1...

664571221

求输入tt
提示选第一条线
提示选第二条线
在第一条和第二条的交点位置
画一条成135°角的长10m的线

夏生生

1. (defun c:tt  (/ en1 en2 pt)
   
2.     (setq en1 (car (entsel "\nfirst:"))
   
3.           en2 (car (entsel "\nsecend:"))
   
4.           pt  (vla-intersectwith (vlax-ename->vla-object en1)
   
5.                                  (vlax-ename->vla-object en2)
   
6.                                  acExtendBoth)
   
7.           pt  (vlax-safearray->list (vlax-variant-value pt)))
   
8.     (entmake(list'(0 . "line")(cons 10 pt)(cons 11(polar pt(* 0.75 pi)10000)))))

(defun c:tt  (/ en1 en2 pt)<br />     (setq en1 (car (entsel "\nfirst:"))<br />           en2 (car (entsel "\nsecend:"))<br />           pt  (vla-intersectwith (vlax-ename->vla-object en1)<br />                                  (vlax-ename->vla-object en2)<br />                                  acExtendBoth)<br />           pt  (vlax-safearray->list (vlax-variant-value pt)))<br />     (entmake(list'(0 . "line")(cons 10 pt)(cons 11(polar pt(* 0.75 pi)10000)))))

664571221

夏生生 发表于 2023-11-15 15:16

谢谢大神...