chenjian2159 发表于 2010-6-3 13:47:00

[求助]大家帮忙看下这个功能能否实现

ET中有个命令<font face="Verdana">laywalk</font>，能一层一层的显示，现在想把它提取出来，输入命令后，按空格键可一层一层显示，每按一次空格键显示一层，不想出现原来那样的对话框，按esc结束命令，各路高手能否帮小弟这个忙！谢谢了！！！

chenjian2159 发表于 2010-6-3 15:58:00

等待好心人帮我解决下

chenjian2159 发表于 2010-6-3 16:04:00

求救啊，唉，高手帮帮我啊，谢谢了

chenjian2159 发表于 2010-6-3 16:51:00

求助！！！

chenjian2159 发表于 2010-6-3 17:30:00

ET扩展工具中的图层浏览命令，大家帮帮忙啊！！！主要是出现对话框把屏幕上的东西遮掉了，不想要那个对话框。

ZZXXQQ 发表于 2010-6-3 20:59:00

<p><br/><font style="BACKGROUND-COLOR: #ffffff" face="Verdana">(DEFUN C:TT ()<br/>&nbsp;(SETQ L 2)<br/>&nbsp;(TEXTSCR)<br/>&nbsp;(WRITE-LINE (CDR (ASSOC 2 (TBLNEXT "LAYER" T))))<br/>&nbsp;(WHILE (SETQ DSENT (TBLNEXT "LAYER" nil))<br/>&nbsp; (WRITE-LINE (CDR (ASSOC 2 DSENT)))<br/>&nbsp; (SETQ L (1+ L))<br/>&nbsp; (IF (= L 3) (SETQ L 0 N (GETPOINT)))<br/>&nbsp;)<br/>&nbsp;(PRINC)<br/>)</font></p>
<p></p>

chenjian2159 发表于 2010-6-4 10:11:00

[求助]大家帮忙看下这个功能能否实现

<font face="Verdana">版主，你好，你给的代码为放进去后不行哦，输入命令后弹出一个文本窗口</font>，我用的CAD是06的

qihuiqiang 发表于 2010-6-4 11:46:00

<p>找我QQ534206572</p>

chenjian2159 发表于 2010-6-4 13:19:00

<p>还是没解决问题，唉</p>
<p>&nbsp;</p>

ZZXXQQ 发表于 2010-6-4 20:22:00

<p>可将第三行删去再试试。</p>
页: [1] 2
查看完整版本: [求助]大家帮忙看下这个功能能否实现