按点偏移
你好有人知道如何编辑这个代码吗？正如我所说，它显示了以前的偏移距离每次共同开始。
这样地
https://ibb.co/fJiM7d
(defun c:aa (/ off pt1 pt2 pt3 ang)
;; Tharwat - 20.Sep.2016 ;;
(if (setq off (getdist "\nSpecify offset distance :"))
(while (and (setq pt1 (getpoint "\n1st point :"))
(setq pt2 (getpoint "\n2nd point :" pt1))
(setq pt3 (getpoint "\nSpecify offset side :"))
(setq ang (angle pt1 pt2))
)
(setq ang (if (minusp (sin (- ang (angle pt2 pt3))))
(+ ang (* pi 0.5))
(- ang (* pi 0.5))
)
)
(entmakex (list '(0 . "LINE")
(cons 10 (trans (polar pt1 ang off) 1 0))
(cons 11 (trans (polar pt2 ang off) 1 0)))))
)
(princ)
)
页:
[1]