日志
发表评论 评论 (1 个评论)
- 回复 xyp1964
- ;; tt(break)
(defun c:tt ()
(xyp-Start)
(princ "\n选择直线: ")
(setq i -1)
(if (setq ss (ssget '((0 . "*LINE"))))
(while (setq s1 (ssname ss (setq i (1+ i))))
(setq ptn (xyp-Get-CurveIntersLeng s1 4)
ptn (xyp-Curve-PtsLengSort s1 ptn t)
j -1
)
(while (and (setq p1 (nth (setq j (1+ j)) ptn))
(setq p2 (nth (setq j (1+ j)) ptn))
)
(xyp-breakE s1 p1 p2)
)
)
)
(xyp-End)
)