[求助]：怎样任意设置层？

lmw

我曾经看过人用R14时, 按键盘上的1然后再选中范围就会自动加载

到第1个层,按键盘上的2然后再选中范围就会自动加载到第2个层,……………………

这是怎么回事呢？我好想知！

tiantian0083

可能是我也不专业吧！
文件不大，我从不使用图层！可能要高手才能解答你的问题了！

nuance

我估计是用LISP编的程序，如果你稍微学学LISP，编这样的程序很容易。

lt_zzy

可能是用程序的原因，要不你将实体选上后按，只能在命令行中输入1。

萧山

应该是自编程序，自己设的快截键吧！

coolzhb

2. 
   
3.   [FONT=courier new]
   
4. 
   
5. (defun c:1(/ ent)
   
6.    (princ "  改首选目标到1层")
   
7.    (setq ent (ssget))
   
8.    (command "change" ent "" "p" "la" "1" "")
   
9.    (princ "  改目标到1层, 完毕...")
   
10.    (princ)
    
11. )
    
12. 
    
13. (defun c:2(/ ent)
    
14.    (princ "  改首选目标到2层")
    
15.    (setq ent (ssget))
    
16.    (command "change" ent "" "p" "la" "2" "")
    
17.    (princ "  改目标到2层, 完毕...")
    
18.    (princ)
    
19. )
    
20. 
    
21.   [/FONT]
    

<br />   [FONT=courier new]<br /> <br /> (defun c:1(/ ent)<br />    (princ "  改首选目标到1层")<br />    (setq ent (ssget))<br />    (command "change" ent "" "p" "la" "1" "")<br />    (princ "  改目标到1层, 完毕...")<br />    (princ)<br /> )<br /> <br /> (defun c:2(/ ent)<br />    (princ "  改首选目标到2层")<br />    (setq ent (ssget))<br />    (command "change" ent "" "p" "la" "2" "")<br />    (princ "  改目标到2层, 完毕...")<br />    (princ)<br /> )<br /> <br />   [/FONT]<br />

加到acadr14.lsp文件的末尾即可实现你的要求！