请帮我优化一下这个程序

wjj992

本人有一个命令对图层的程序，输入cad命令可把命令物体自动归到图层上去，如果没有则自动新建图层，如line=景观，输入line命令直线自动到景观层去，没有则自动新建景观层，美中不足，每次新建的层默认颜色为7号白色，此程序可用记事本打开编辑想要的图层对命令。

记事本如下

[COMMAND]
InsideLisp=0

DIMLINEAR=标注
DIMALIGNED=标注
BHATCH=填充
mtext=文字
line=景观轮廓
arc=景观轮廓
PLINE=景观轮廓
RECTANGLE=景观轮廓
CIRCLE=景观轮廓

[COMMAND/GROUP1]
DIMLINEAR=Dim1
BHATCH=Hatch1
HATCH=Hatch1

请问在这个记事本上添加什么命令可以在新建图层的时候可以设图层的几号颜色

zml84

你的这个记事本文件是程序运行过程中使用的数据文件，而数据文件的格式是在程序中定义的，只有按照已定义的格式进行数据填写。


因为这个记事本文件中的内容不是命令，也不是代码，只是数据；

所以结论是：在不改动程序的前提下，不能实现你说的功能。

但你可以这样做：

---

;;;在程序运行后执行如下格式的东西：
(setq 图层名 "test"
      颜色号 1
      线型   "Continuous"
)
(command "_layer" "m" 图层名 "C" 颜色号    "L" 线型 "")

zml84

你的这个记事本文件是程序运行过程中使用的数据文件，而数据文件的格式是在程序中定义的，只有按照已定义的格式进行数据填写。

因为这个记事本文件中的内容不是命令，也不是代码，只是数据；
所以结论是：在不改动程序的前提下，不能实现你说的功能。

wjj992

谢谢，我的问题已经解决了。非常感谢楼上这位热心的朋友。