entmake失败原因分析
大家看看这段程序错在那，为什么使用netmake失败呢？(setq ss (ssget))
(if ss
(progn
(setq i 0)
(setq j 0)
(setq len (sslength ss))
(while (< i len)
(setq stm (ssname ss i))
(setq es (entget stm))
(setq kzsx (assoc -3 (entget stm '("*"))))
;;;;;;;;;;;;;;;;
;(setq es (vl-remove (nth 3 es) es)) ;删除句柄5组码
;(setq es (vl-remove (nth 2 es) es)) ;删除图元名330组码
;(setq es (vl-remove (nth 0 es) es)) ;删除图元名-1组码
(if (/= kzsx nil) (setq es (append es (list kzsx))))
(entdel stm)
(if (entmake es)
(progn (setq j (+ j 1))
(princ (strcat "\n总计选择了"
(rtos len 2 0)
"个目标，已经转换了"
(rtos j 2 0)
"个目标。"
)
)
)
)
(setq i (+ i 1))
)
页:
[1]