(princ "
直圆管展开图
(
来自化缘敲鱼
)
命令
:zkx")
(defun c:zkx (/ l0 lsslss_mptss df_dx0 n ptptstpten)
(setvar "cmdecho" 0)
(command "undo" "be")
(command "ucs" "w")
(princ "\n
请选择轴线
:")
(setq l0 (car (entsel)))
(princ "\n
半径
:")(princ r)
(princ "\n
请选择切割线
:")
(setqlss (ssget))
(command "ucs" "ob" l0)
(setq m 0)
(while (
(setqlss_m (ssnamelss m))
(setqptss (list))
(setq df_dx0 (entlast))
(command "divide" lss_m 200)
;100
等分对象
(setq n 0)
(while (= n 0)
(if (equal df_dx0 (entlast))
(setq n 1)
(progn
(if (eq (cdr (assoc '0 (entget (entlast)))) "POINT")