为什么总提示参数太少？

gare1000

我用啊飞的炸开一个块及子块的程序： (defun Explodex(ents / ss i )
(command "_.explode" ents)
(setq ss (ssget "P"))
(setq i 0)
(repeat (sslength ss)
(setq ent (ssname ss i))
(if (= "INSERT" (cdr (assoc 0 (entget ent))))
(explodex ent)
)
(setq i (1+ i))
)
) 改成下面炸开除尺寸线外的块： (defun ExplodexNoDim(ents / ss i Ent1Info Ent1Type)
(setq Ent1Info (entget ents))
(setq Ent1Type (cdr (Assoc 0)))
(if (/= ent1type "DIMENSION")
(Progn
(command "_.explode" ents)
(setq ss (ssget "P"))
(setq i 0)
(repeat (sslength ss)
(setq ent (ssname ss i))
(if (= "INSERT" (cdr (assoc 0 (entget ent))))
(explodex ent)
)
(setq i (1+ i))
)
)
)
)
(defun c:ExplodexAllNoDim( / ss i )
(setq ss (ssget "X"))
(setq i 0)
(repeat (sslength ss)
(setq ent (ssname ss i))
(if (= "INSERT" (cdr (assoc 0 (entget ent))))
(ExplodexNoDim ent) )
(setq i (1+ i))
) ) 运行后为什么总提示参数太少？

龙龙仔

(defun EXPLODEX (ENTS / SS I ENT)
(command "_.explode" ENTS)
(setq SS (ssget "P"))
(setq I 0)
(repeat (sslength SS)
(setq ENT (ssname SS I))
(if (= "INSERT" (cdr (assoc 0 (entget ENT))))
(EXPLODEX ENT)
)
(setq I (1+ I))
)
) (defun C:EXPLODEXALLNODIM (/ SS I)
(setq SS (ssget "X"
(list '(0 . "insert") (cons 410 (getvar "ctab")))
)
)
(setq I 0)
(repeat (sslength SS)
(EXPLODEX (ssname SS I))
(setq I (1+ I))
)
)

gare1000

今天又试了一下，原来是 (setq Ent1Type (cdr (Assoc 0)))
漏了一个参数，应该为 (setq Ent1Type (cdr (Assoc 0 Ent1Info ))) ，还有其实飞版的程序已经排除了尺寸对象，不用我再加判断。唉！！昨天愣是找不到问题。