[求助]请教高手,关于一个图块的问题。
www.dimcax.com
[求助]请教高手,关于一个图块的问题。
(if ssi
(progn
(command "undo" "begin")
(setq len (sslength ssi))
(setq n 0)
(repeat len
(setq ent (ssname ssi n))
(setq dxf (entget ent))
(setq yangshi (assoc 41 dxf))
(setq insc (cons 41 50))
(setq dxf (subst insc yangshi dxf))
(entmod dxf)
(setq n (+ 1 n))
(setq ssi nil)
)
(princ "\n块已更新完成！")
)
)
大家帮忙看看,为何出错呢?
d
没有错误，你的错误信息是什么
d
问题已解决,谢谢.
d