wjj992 发表于 2007-5-10 18:19:00

请帮我优化一下这个程序

本人有一个命令对图层的程序，输入cad命令可把命令物体自动归到图层上去，如果没有则自动新建图层，如line=景观，输入line命令直线自动到景观层去，没有则自动新建景观层，美中不足，每次新建的层默认颜色为7号白色，此程序可用记事本打开编辑想要的图层对命令。<p>记事本如下</p><p><br/>InsideLisp=0</p><p>DIMLINEAR=标注<br/>DIMALIGNED=标注<br/>BHATCH=填充<br/>mtext=文字<br/>line=景观轮廓<br/>arc=景观轮廓<br/>PLINE=景观轮廓<br/>RECTANGLE=景观轮廓<br/>CIRCLE=景观轮廓</p><p><br/>DIMLINEAR=Dim1<br/>BHATCH=Hatch1<br/>HATCH=Hatch1</p><p>请问在这个记事本上添加什么命令可以在新建图层的时候可以设图层的几号颜色<br/></p>

zml84 发表于 2007-5-12 10:34:00

本帖最后由 作者 于 2007-5-12 12:30:48 编辑 <br /><br /> 你的这个记事本文件是程序运行过程中使用的数据文件，而数据文件的格式是在程序中定义的，只有按照已定义的格式进行数据填写。<br/><br/><br/>因为这个记事本文件中的内容不是命令，也不是代码，只是数据；<br/><br/>所以结论是：在不改动程序的前提下，不能实现你说的功能。<br/><br/>但你可以这样做：<br/><hr size="5"/><font face="Fixedsys" color="#990099">;;;在程序运行后执行如下格式的东西：</font><br/><font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys" color="#0000ff">setq</font>
        <font face="Fixedsys">图层名</font>
        <font face="Fixedsys" color="#ff00ff">"test"</font><br/>      <font face="Fixedsys">颜色号</font>
        <font face="Fixedsys" color="#009900">1</font><br/>      <font face="Fixedsys">线型</font>   <font face="Fixedsys" color="#ff00ff">"Continuous"</font><br/><font face="Fixedsys" color="#ff0000">)</font><br/><font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys" color="#0000ff">command</font>
        <font face="Fixedsys" color="#ff00ff">"_layer"</font>
        <font face="Fixedsys" color="#ff00ff">"m"</font>
        <font face="Fixedsys">图层名</font>
        <font face="Fixedsys" color="#ff00ff">"C"</font>
        <font face="Fixedsys">颜色号</font>    <font face="Fixedsys" color="#ff00ff">"L"</font>
        <font face="Fixedsys">线型</font>
        <font face="Fixedsys" color="#ff00ff">""</font><font face="Fixedsys" color="#ff0000">)</font><br/>

zml84 发表于 2007-5-12 10:37:00

你的这个记事本文件是程序运行过程中使用的数据文件，而数据文件的格式是在程序中定义的，只有按照已定义的格式进行数据填写。<br/><br/>
因为这个记事本文件中的内容不是命令，也不是代码，只是数据；<br/>
所以结论是：在不改动程序的前提下，不能实现你说的功能。

wjj992 发表于 2007-5-14 17:51:00

谢谢，我的问题已经解决了。非常感谢楼上这位热心的朋友。
页: [1]
查看完整版本: 请帮我优化一下这个程序