清除检查井内管线（理正试用版）

(defun c:d3 (/ ent_lns ent_ln ent_jings ent_jing pt bj tmp_cir pt1 c0 c1)
(princ "******** 清除检查井内管线 *******")
(command "_.undo" "_begin")
(setvar "osmode" 0)
(princ "\n选择检查井:")
(setq ent_jings (ssget ((0 . "insert") (2 . "$WX_JCJ"))))
(princ "\n选择管线:")
(setq ent_lns (ssget ((0 . "line") (8 . "wp_*"))))
(setq c1 0)
(repeat (sslength ent_jings)
(setq ent_jing (ssname ent_jings c1))
(setq pt (sws_getval ent_jing 10))
(setq bj (sws_getval ent_jing 41))
(setq bj (* 0.5 bj))
(command "circle" pt bj)
(setq tmp_cir (entlast))

(setq c0 0)
(repeat (sslength ent_lns)
(setq ent_ln (ssname ent_lns c0))
(setq pt1 (car (xdrx_entity_intersect ent_ln tmp_cir)))
(if (/= pt1 nil) (command "break" ent_ln pt1 pt))
(setq c0 (1+ c0))
);end repeat
(command "erase" tmp_cir "")

(setq c1 (1+ c1))
);end repeat
(command "_.undo" "_end")
(princ)

)

(defun sws_GetVal (wz_ent wz_id / wz_elst wz_val)
(setq wz_elst (entget wz_ent))
(setq wz_Val (cdr (assoc wz_id wz_elst)))
(princ)
wz_Val
)