绘制圆柱折断线

liuhaixin88 · 发表于 2022-7-5 23:10:03

拿起三点，画圆柱折线，论坛有这个代码吗？

ReMark · 发表于 2022-7-5 23:13:40

我不知道。你试过搜索吗？我认为这个话题之前已经出现过，但很可能使用了不同的术语。试试“管道末端”。

liuhaixin88 · 发表于 2022-7-5 23:19:15

谢谢你的回复，备注，我用搜索，只找到这个：
这并不完美！

;;;=================================================================*                                        *
;;;zml84  2010-03-18                                        *
(defun c:tt ()
 (if (and (setq pt1 (getpoint "\nPT1: "))
   (setq pt2 (getpoint pt1 "\nPT2: "))
     )
   (progn
     (tt-01 pt1 pt2)
     (if (setq pt3 (getpoint pt2 "\nPT3: "))
(tt-01 pt3
       (polar pt3 (angle pt2 pt1) (distance pt2 pt1))
)
     )
   ) ;
 )
 (princ)
)
;;;=================================================================*                            *
(defun tt-01 (pt1 pt2 / ang dist pt_tmp1)
 (setq ang  (angle pt1 pt2)
dist (distance pt1 pt2)
 )
 (setq pt_tmp1 (polar pt1 ang (* 0.5 dist)))
 (command "_.pline"
   "non"
   pt1
   "a"
   "d"
   (+ (* 180 (/ ang pi)) -45)
   "non"
   pt_tmp1
   "non"
   pt2
   "d"
   (+ (* 180 (/ ang pi)) 180 45)
   "non"
   pt_tmp1
   ""
 )
 t
)