yangist 发表于 2013-6-27 09:14:46

谁能帮我改一下语句呢

(vl-load-com)
(err-set (list '("cmdecho" 0) 0 nil))
(setq lay "03Center")      ;图层
(setq col 1)                      ;颜色   ------>>> 我想改为 bylayer
(setq lt "center")             ;线型

duotu007 发表于 2013-6-27 09:39:15

(cons '6 "ByLayer");对象线型ByLayer
(cons '62 256);对象颜色ByLayer
(cons '370 -1);对象线宽ByLayer

yangist 发表于 2013-6-27 09:42:02

duotu007 发表于 2013-6-27 09:39 static/image/common/back.gif
(cons '6 "ByLayer");对象线型ByLayer
(cons '62 256);对象颜色ByLayer
(cons '370 -1);对象线宽ByLayer

谢谢 我试试
页: [1]
查看完整版本: 谁能帮我改一下语句呢