交点断开

conn

帮忙看看这个程序，能不能改成多次执行，回车后结束。 (defun c:text (/ osm oc ol pt1 ss len i entn a ct ra la)
(setq temperr *error*)
(setq *error* trap1)
(setq oc (getvar "cmdecho"))
(setq ol (getvar "clayer"))
(setq osm (getvar "osmode"))
(setvar "cmdecho" 0)
(setvar "osmode" 32)
(setq pt1 (getpoint "\n选择需断开的交点:"))
(if (null pt1) (alert "没发现交点!")
(progn
(setq ss (ssget "C" (list (- (car pt1) 1) (- (cadr pt1) 1)) (list (+ (car pt1) 1) (+ (cadr pt1) 1))))
(setq len (sslength ss))
(setq i 0)
(while (< i len)
(setq entn (ssname ss i))
(setq a (entget entn))
(if (or (= (cdr (assoc 0 a)) "LINE") (= (cdr (assoc 0 a)) "ARC")
(= (cdr (assoc 0 a)) "CIRCLE") (= (cdr (assoc 0 a)) "POLYLINE")
)
(progn
(setvar "osmode" 0)
(if (= (cdr (assoc 0 a)) "CIRCLE")
(progn
(setq ct (cdr (assoc 10 a)))
(setq ra (cdr (assoc 40 a)))
(setq la (cdr (assoc 8 a)))
(entdel entn)
(command "layer" "s" la "")
(command "arc" "c" ct pt1 (polar pt1 (angle pt1 ct) (* 2 ra)))
(command "arc" "c" ct (polar pt1 (angle pt1 ct) (* 2 ra)) pt1)
)
(command "break" (list entn pt1) "f" pt1 "@")
)
)
)
(setq i (+ i 1))
)
)
)
(setvar "osmode" osm)
(command "layer" "s" ol "")
(setvar "cmdecho" oc)
(princ)
)

meflying

我把CIRCLE部分去掉了，你自己再添进去吧。。。 (defun c:test (/ osm pt1 ss i entn ty)
(setq temperr *error*)
(setq *error* trap1)
(setq osm (getvar "osmode"))
(setvar "cmdecho" 0)
(setvar "osmode" 32)

(while (setq pt1 (getpoint "\n选择需断开的交点:"))
(setq ss (ssget "C" pt1 pt1))
(setq i 0)
(while (< i (sslength ss))
(setq entn (ssname ss i))
(setq ty (cdr (assoc 0 (entget entn))))
(cond
((or (= ty "LINE") (= ty "POLYLINE") (= ty "ARC") (= ty "LWPOLYLINE") (= ty "SPLINE"))
(command "_.break" (list entn pt1) "f" pt1 "@")
)
)
(setq i (+ i 1))
)
)
(setvar "osmode" osm)
(princ)
)

Ea

这个帖子或许能给你帮助 http://www.xdcad.net/forum/showthread.php?s=&threadid=162614

lichunyu

可以框选吗

atone

没人来讨论吗，好期待出现好工具啊