[求助]：如何定义层

作古正经

我在一家装饰公司看到他们一个绘图员用到层的命令是：
在命令提示行输入一个“1”回车
然后选取要用到“1”层的物体
这个物体就自动到达“1”层
我问他这个应该怎么改，但是他说他自己都记不到了。。。
请帮助我弄明白这问题。。。
感激不尽。。。__77885673@163.com

eachy

最初由 作古正经 发布
[B]我在一家装饰公司看到他们一个绘图员用到层的命令是：
在命令提示行输入一个“1”回车
然后选取要用到“1”层的物体
这个物体就自动到达“1”层
我问他这个应该怎么改，但是他说他自己都记不到了。。。
请帮助?.. [/B]

2. 
   
3. (defun c:1 (/ ss)
   
4.   (setq ss (ssget))
   
5.   (if ss
   
6.     (progn
   
7.       (if (not (tblsearch "layer" "1"))
   
8.         (vl-cmdf ".layer" "m" "1" "")
   
9.       )
   
10.       (vl-cmdf ".change" ss "" "p" "la" "1" "")
    
11.     )
    
12.   )
    
13.   (princ)
    
14. )

<br /> (defun c:1 (/ ss)<br />   (setq ss (ssget))<br />   (if ss<br />     (progn<br />       (if (not (tblsearch "layer" "1"))<br />         (vl-cmdf ".layer" "m" "1" "")<br />       )<br />       (vl-cmdf ".change" ss "" "p" "la" "1" "")<br />     )<br />   )<br />   (princ)<br /> )

chenhang1203

斑竹好象做的不对啊


命令: ap APPLOAD 已成功加载 1.lsp。


命令:
错误: 参数类型错误: numberp: nil




命令:
命令:
命令: 1 未知命令“1”。按 F1 查看帮助。

作古正经

我加载后1这个命令可以用。。。

但是改不到层的里面去哦。。。

我应该怎么改。。。

chenhang1203

不是吧，楼上的，和版本有关吗，我在2002和2004上都试了啊

作古正经

楼上的你有没有招啊。。

我是用14的。。。

没有办法啊。。。怀旧啊。。。

14下可以加载。。但是不能使用哦

eachy

最初由 作古正经 发布
[B]楼上的你有没有招啊。。

我是用14的。。。

没有办法啊。。。怀旧啊。。。

14下可以加载。。但是不能使用哦 [/B]

14 下将 vl-cmdf 改成 command

chenhang1203

请问斑竹第三贴怎么解释，我是CAD2002，WIN2K。

eachy

最初由 chenhang1203 发布
[B]请问斑竹第三贴怎么解释，我是CAD2002，WIN2K。 [/B]

把代码拷贝，打开 vlisp 编辑器－》粘贴－》加载

chenhang1203

谢谢斑竹，现在成功了，可是我以前那样做为什么不行呢？
我以前的做法：
1、新建文本文件，粘贴代码、保存为1.LSP文件
2、加载1.LSP文件，提示加载成功，但是命令却不执行，如第三贴所诉

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.   [/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 />   [/FONT]<br />

作古正经

真的非常感谢各位的鼎力支持。。。

等小友我9月俸下来一定捐款。。。