调用lsp后不能执行，单独原来的可以执行

wxa123wl

(defun c:tt1 (/ss1 ss)
(SETQ SS1 NIL)
(if (setq ss (ssget "A" '((0 . "LINE")(8 . "AXIS_DIM")))) (progn
  (setq i -1 ss1 (ssadd))
  (repeat (sslength ss)
   (setq ent (entget (setq en (ssname ss (setq i (1+ i))))))
   (if (< (distance (cdr(assoc 10 ent)) (cdr(assoc 11 ent))) 410)
    (ssadd en ss1)
   )
  )
))
(sssetfirst nil ss1)
(command "erase" ss1 "")
)


这个是删除小于400线长度的llsp，网上的，单独可以执行，，我把他调用到另一个lsp中去的时候就不行了，，提示让我选择对象，选择后确定，，全部对象都删除了， 我的(setq ss (ssget "A" '((0 . "LINE")(8 . "AXIS_DIM"))))，，还有固定长度都没作用了，！

st788796

改为 "X" 试试

wxa123wl

其实我的原来目的是为了上次固定图层上的长度为400的线！只是这个可以达到同样的目的，，