wujimmy#wujimmy.github.io#板筋切断1

[quote] (defun c:brr() (princ "\n输入要切断的板钢筋:") (setq ss (ssget (list (cons 0 "LWPOLYLINE")(cons 90 4)))) (setq pt (getpoint "\n输入切断点:")) (foreach en (wjm_ss2lst ss) (setq ptl (EP_LIST en nil)) (setq p