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

[求助]请教高手,帮我看看这段程序,为何不起作用呢?
www.dimcax.com
[求助]请教高手,帮我看看这段程序,为何不起作用呢?
用途:把实体填充变成斜线填充.
(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)
)
为何不起作用?
d
"solid"和"hatch"是两张不同的对象，组码参数相差很大
d
这个海龙的工具箱估计也是......
如caoyin斑竹说的,2个组码参数错太多!
d