[求助]请教高手,帮我看看这段程序,为何不起作用呢?

userzhl

用途:把实体填充变成斜线填充.

(defun c:aa ( / e eee n ss)
(setq SS (ssget '((0 . "SOLID"))))
(if ss
(progn
    (setq n -1)
    (repeat (sslength SS)
       (setq eee (ssname  SS (setq n (+ n 1)))
    e (entget eee))
(setq e (subst (cons 100 "AcDbEntity") (assoc 100 e) e))
(setq e (subst (cons 100 "AcDbHatch") (assoc 100 e) e))
(setq e (subst (cons 0 "HATCH") (assoc 0 e) e))
(setq e (subst (cons 2 "ANSI31") (assoc 2 e) e))
(setq e (append e (list (cons 41 55))))
       (entmod e)
    )
(PRINC "\n已更新完成！")
))
(princ)
)

为何不起作用?

caoyin

"SOLID"和"HATCH"是两张不同的对象，组码参数相差很大

wuxuloveguo

这个海龙的工具箱估计也是......

如CAOYIN斑竹说的,2个组码参数错太多!