为什么总提示参数太少？

gare1000 · 发表于 2004-5-26 15:58:00

我用啊飞的炸开一个块及子块的程序：
(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))
   )
)
运行后为什么总提示参数太少？

龙龙仔 · 发表于 2004-5-26 16:21:00

(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 · 发表于 2004-5-27 08:46:00

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

为什么总提示参数太少？

发表回复

精选推荐