CAD填充消失了

本帖最后由 莫思身外无穷事 于 2015-7-13 15:38 编辑 cz150003889 发表于 2009-1-6 09:46 我也出现了这样的问题啊…很是郁闷！ 高手快快现身来解决问题！(defun c:tckg ( / a b c d e) (princ “填充开关”) (setq a (ssget “x” (list (cons 0 “hatch”))) b (sslength a) c 0.0 ht (IF ( = ht 0 ) 1 0) ) (while (setq d (ssname a c)) (setq e (entget d) e (append e (list (cons 60 ht))) ) (entmod e) (setq c (1+ c)) ) (princ))复制代码到文本里，另存成.lsp格式的文件，加载到cad里，用命令tckg会用的话，这个就能解决你的问题，不会用的话，那就…

tl669 发表于 2008-12-30 22:01 如果是cad设置问题，可以输入op 在配置中，选择重置！ 如果还是不行，是不是你的图层 选择的设置的问题啊！谢谢你，头疼了一个月的问题被你解决了，谢谢！