[求助]：能否通过图层识别数据

animal212

比如在图层1上的数据自动识别为编号,图层2上的数据识别为土方量等,
   我要实现的功能是:选取图面上一部分数据时,能自动区分数据,不同图层上的数据打印到EXCEL的不同栏里,构成对应的数据.

   请各位"晓东们"帮帮忙啊. 谢谢

zml84

最初由 animal212 发布
[B]能否通过图层识别数据? [/B]

答案是：能。
因为你在描述中已经说得很清楚了，整个过程不需要很高的智能度，对已知过程的自动化实现是lisp的强项。

clearlai

如何区分呢？如：框选中，有line线的一层。和文字的一层。如何判别？
用ssget选吗？

animal212

还是通过组码实现吗？  ZML84，在我感觉，你应该是个高手中的高手。你简单的一个“能”字说明不了什么问题啊。

zml84

我的意思是，自己嚼的馒头吃起来才有味道。

animal212

我也知道啊。可是lisp语言刚开始学时挺容易的。可是越学越难，可供参考的材料又获不多。真想放弃了。

Underway

最初由 zml84 发布
[B]....馒头...味道。 [/B]

但要切中大众口味,可就费思量了 :P

行行各有不同需求
就算是给自个儿用,也常因时节因缘而修修改改 .....

zml84

最初由 animal212 发布
[B]我也知道啊。可是lisp语言刚开始学时挺容易的。可是越学越难，可供参考的材料又获不多。真想放弃了。 [/B]

如果说感觉越学越难，那只能说你连门都还没有入。（开玩笑：）
<br>
在群组码中，对象所在图层的索引是8
那么查看所在图层的模拟代码片段如下：

1. 
   
2. <CENTER><H1>tmp2.lsp</H1></CENTER>
   
3. <SCRIPT LANGUAGE="JavaScript">document.write("最后修改时间: " + document.lastModified)
   
4. </SCRIPT>
   
5. <HR SIZE=5><PRE><FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">if</FONT> <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">setq</FONT> <FONT face="Fixedsys">SS</FONT> <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">ssget</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
   
6.     <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">progn</FONT>
   
7.         <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">setq</FONT> <FONT face="Fixedsys">I</FONT> <FONT face="Fixedsys" COLOR="#009900">0</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
   
8.         <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">repeat</FONT>        <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">sslength</FONT> <FONT face="Fixedsys">SS</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
   
9.             <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">setq</FONT> <FONT face="Fixedsys">SI</FONT>   <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">ssname</FONT> <FONT face="Fixedsys">SS</FONT> <FONT face="Fixedsys">I</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
   
10.                   <FONT face="Fixedsys" COLOR=#990099><SPAN STYLE="BACKGROUND-COLOR: #CCCCCC">;;请详细分析ENTI的值，你会大有所获的!!</SPAN></FONT>
    
11.                   <FONT face="Fixedsys">ENTI</FONT> <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">entget</FONT> <FONT face="Fixedsys">SI</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
    
12.                   <FONT face="Fixedsys">KK</FONT>   <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">cdr</FONT> <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">assoc</FONT> <FONT face="Fixedsys" COLOR="#009900">8</FONT> <FONT face="Fixedsys">ENTI</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
    
13.             <FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
    
14.             <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">princ</FONT> <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">strcat</FONT> <FONT face="Fixedsys" COLOR="#FF00FF">"\n第 "</FONT> <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">itoa</FONT> <FONT face="Fixedsys">I</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT> <FONT face="Fixedsys" COLOR="#FF00FF">" 个对象"</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
    
15.             <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">cond</FONT>
    
16.                 <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">=</FONT> <FONT face="Fixedsys">KK</FONT> <FONT face="Fixedsys" COLOR="#FF00FF">"编号"</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
    
17.                  <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">princ</FONT> <FONT face="Fixedsys" COLOR="#FF00FF">"在编号图层上"</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
    
18.                 <FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
    
19.                 <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">=</FONT> <FONT face="Fixedsys">KK</FONT> <FONT face="Fixedsys" COLOR="#FF00FF">"土方量"</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
    
20.                  <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">princ</FONT> <FONT face="Fixedsys" COLOR="#FF00FF">"在土方量图层上"</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
    
21.                 <FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
    
22.                 <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">t</FONT>
    
23.                  <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">princ</FONT> <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">strcat</FONT> <FONT face="Fixedsys" COLOR="#FF00FF">"&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;"</FONT> <FONT face="Fixedsys">KK</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
    
24.                 <FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
    
25.             <FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
    
26.             <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">setq</FONT> <FONT face="Fixedsys">I</FONT> <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">1+</FONT> <FONT face="Fixedsys">I</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
    
27.         <FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
    
28.     <FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
    
29. <FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
    
30. </PRE>
    

复制代码

另：为了更好的了解群组码，送你一个查看群组码的工具：http://zml84.blog.sohu.com/45928369.html
<br>
当你能够熟练使用对象的群组码之时，那么恭喜你，你的功力已经达到了第二层。

animal212

感动中。。。。。。谢谢zml84
    但我很想知道lisp功力到底有多少层啊？我学了那么久还没达到第二层，郁闷死我了。
你打击我了。

zml84

个人感觉，以lisp开发ACAD的层次可分为：
第一层，能够整合CAD系统命令，形成自定义新命令，为专业设计服务；
第二层，能够理解CAD各对象实体群组编码，通过对群组码的编辑来达到操作图形数据库的目的；
第三层，能够通过各种手段与系统、平台上的其他应用程序（如word、excel等）进行联系，进行数据交换；
第四层，能够根据专业需要，创建实现一定自动化功能的智能实体对象。要达到这一层，就要对扩展数据和反应器有着较深的理解才行；
第五层，引进人工智能方法，采用合适算法，能够对设计目标进行优化，将设计经验进行积累延续，逐步实现辅助设计智能化。

animal212

原来天有那么高.   之前编了几个小程序,还以为自己可以一览众山小呢.  现在想想自己真是一只井底之蛙.
       不过终于长见识了.继续努力,向第三层迈进.