请问怎么编写这个LISP

museum

有一幅图，里面有许多要用到TRIM的，就是想把多出来的边支修剪，虽然用TRIM可以用，但是多，比较麻烦，我对LISP一点都不懂，不知道谁是否可以编写一下，目的就是想方便的修剪多余支

museum

是不是无法编写吗？我是真的不懂也

museum

呜~~~~~~~~~~~~~~~

龙龙仔

用extrim試試!

xumin

试试看 (defun kx ( / )
(prompt "\n请点取两点框选要剪取的图形....")
(setq p1 (getpoint "\n请输入框选的第一角点："))
(setq p2 (getcorner p1"\n请输入框选的第二角点："))
(setq s (ssget "c" p1 p2))
(setq i 0)
(repeat (sslength s)
(setq t (entget (ssname s i)))
(if (= (cdr (assoc 0 t)) "LINE")
(setq xe (cadr (assoc 11 t))
ye (caddr (assoc 11 t))
)
)
(if (= (cdr (assoc 0 t)) "LWPOLYLINE")
(setq xe (cadr (NTH 16 t))
ye (caddr (NTH 16 t))
)
)
(progn
(setq xs (cadr (assoc 10 t))
ys (caddr (assoc 10 t))
)

(setq tp1 (list xs ys)
tp2 (list xe ye)
)
(setq cp (inters p1 p2 tp1 tp2 onseg))
(setq d1 (distance tp1 cp)
d2 (distance tp2 cp)
)
(if (< d1 d2)
(setq trimp 10)
(progn
(if (= (cdr (assoc 0 t)) "LINE")
(setq trimp 11)
)
(if (= (cdr (assoc 0 t)) "LWPOLYLINE")
(setq trimp 16)
)
)
)
(setq ip (inters edgep1 edgep2 tp1 tp2))
(if (/= ip nil)
(progn
(setq mp (list trimp (car ip) (cadr ip)))
(if (= (cdr (assoc 0 t)) "LINE")
(setq t (subst mp(assoc trimp t) t))
)
(if (= (cdr (assoc 0 t)) "LWPOLYLINE")
(setq t (subst mp(nth trimp t) t))
)
(entmod t)
)
)
(setq i (+ 1 i))
)
)
)

(defun C:MTRIM()
(graphscr)
(setvar "CMDECHO" 0)
(setq edge (entsel "\n请点取边界线！"))
(setq a (entget (car edge)))
(if (= (cdr (assoc 0 a)) "LINE")
(progn
(setq edgep1 (list (cadr (assoc 10 a)) (caddr (assoc 10 a))))
(setq edgep2 (list (cadr (assoc 11 a)) (caddr (assoc 11 a))))
(kx)
)
(prompt "\n请选择线图元!!")
)
(if (= (cdr (assoc 0 a)) "LWPOLYLINE")
(progn
(setq edgep1 (list (cadr (assoc 10 a)) (caddr (assoc 10 a))))
(setq edgep2 (list (cadr (NTH 16 a)) (caddr (NTH 16 a))))
(kx)
)
(prompt "\n请选择线图元!!")
)
)

wjl1014

新手，为什么不能运行？