命令: !l_zt (("STANDARD" "txt" "") ("_SIMPLEX" "romans1.shx" "") ("_HZTCH" "txt1.shx" "hztch.shx") ("COMP" "COMPLEX" "hztxt")) 命令: !shx "_TXT.SHX" 命令: !hzshx "_HZTXT.SHX" 这段程序错在哪里? ;;自己替换shx和hzshx字体 (foreach n (mapcar 'car l_zt) (setq ent (tblobjname "style" n)) (yad-chgent ent (list (list 3 shx) (list 4 hzshx)) nil) ) ; 错误: DXF 组不正确: (((3 "_TXT.SHX") (4 "_HZTXT.SHX"))) |