[求助]：block命令，其中一个参数我不会用，请教！

lijiao

太累了，MDT中有现成的，为什么不用呢？

ll_j

最初由 yinwh 发布
原来是这样。。谢谢了。


我做的是标零件序号的程序，每标一个就生成一个块，我这样定义块的名字：名字n(为全局变量)初值为1，每定义一次，自动加1。
这样的话，名字就不会重复
但是：当关闭文件再重新打开时?..

我做的是标零件序号的程序，每标一个就生成一个块，我这样定义块的名字：名字n(为全局变量)初值为1，每定义一次，自动加1。
这样的话，名字就不会重复
但是：当关闭文件再重新打开时?.. [/QUOTE]

1.关于画线，应该先输入点，根据自己要求提示，然后调用command画线。lisp程序调用command时，不管执行与否，返回值总是nil，只能用系统变量lastpoint找到最后一点。如果使用vlisp，还可以调用vl_cmdf函数，但在R14中将不可用。
2.块名记忆可以使用系统保留给用户useri1～5，或userr1～5，也可以使用匿名块。

yinwh

谢谢！！

我做好了！！

标水平方向零件序号的程序：

2. 
   
3. (defun c:chmotor_xuhaoxianh()
   
4.   (setvar "cmdecho" 0)           ;命令执行过程不响应
   
5.   (setq oldos (getvar "osmode"))                                    ;保存当前捕捉模式  
   
6.   (setq lname (getvar "clayer"))                                    ;保存当前图层
   
7.   (command "layer" "set" 4 "")                                      ;将当前图层设为4层
   
8. 
   
9.   (setvar "osmode" 1)                                               ;打开对象捕捉
   
10.   (setq biaozhunxian1 (getpoint "\n输入序号线位置："))              ;以下为取得基准线  
    
11.   (setq biaozhunxian2 (polar biaozhunxian1 0 10))
    
12.   (setvar "osmode" 0)                                               ;关闭对象捕捉
    
13.   (setq biaozhunxian3 (polar biaozhunxian1 4.71 3))                                      
    
14.   (command "line" biaozhunxian3 (polar biaozhunxian3 0 600) "")     ;画一条对齐的线，并将其加入选择集tt，以备程序结束时删除
    
15.   (setq zhunxian (entlast))
    
16.   (setq tt (ssadd))  
    
17.   (setq tt (ssadd (entlast) tt))
    
18.   
    
19.       ;以下为定出序号线引线的位置
    
20.   (setq ans "Yes")
    
21.   (while (= ans "Yes")
    
22.     (initget 1)
    
23.     (setq xuhaoxian1_qidian (getpoint "\n输入序号线起点："))  ;取得起点坐标
    
24.     (initget 1)
    
25.     (setq xuhaoxian1_zhongdian (getpoint "\n输入序号线转折点位置：")) ; 取得转折点大概位置
    
26.     (setq xuhaoxian1_zhuandian (inters xuhaoxian1_qidian xuhaoxian1_zhongdian biaozhunxian1 biaozhunxian2 nil))  ;取得真正的转折点坐标
    
27.     (setq xuhaoxian2_zhongdian (polar xuhaoxian1_zhuandian 0 10))         ;取得短横线的终点坐标
    
28.   
    
29.     (setq ss (ssadd))                                                     ;画出序号线并将其加入选择集ss
    
30.     (command "line" xuhaoxian1_qidian xuhaoxian1_zhuandian "")
    
31.     (setq ss (ssadd (entlast) ss))
    
32.     (command "line" xuhaoxian1_zhuandian xuhaoxian2_zhongdian "")
    
33.     (setq ss (ssadd (entlast) ss))
    
34. 
    
35.     (initget 1)                                                            ;以下为输入序号值，10以上和10以下的值文字起点不同
    
36.     (setq xuhao (getint "\n输入序号："))                 
    
37.        (if (> xuhao 9)
    
38.        (progn
    
39.          (command "text" (polar xuhaoxian1_zhuandian 1 2.5) 5 0 xuhao)
    
40.          (setq ss (ssadd (entlast) ss))
    
41.        )
    
42.        (progn
    
43.          (command "text" (polar xuhaoxian1_zhuandian 0.52 4) 5 0 xuhao)
    
44.          (setq ss (ssadd (entlast) ss))
    
45.        )
    
46.        )
    
47.   
    
48.   (setq kuaiming (strcat (rtos xuhao) (rtos (distance xuhaoxian1_qidian xuhaoxian1_zhongdian)) (rtos (angle xuhaoxian1_qidian xuhaoxian1_zhongdian))))  ;用第一条序号线的长度、弧度与序号名合成一个块名，以防止块名重复
    
49. 
    
50.   (command "block" kuaiming xuhaoxian1_qidian ss "")             ;生成块
    
51.   (command "insert" kuaiming xuhaoxian1_qidian 1 1 0)            ;插入块
    
52.   (initget "Yes No")
    
53.   (setq ans (getkword "\n继续绘制序号线？(Y/N):"))
    
54.   (if (null ans) (setq ans "Yes"))
    
55.   )
    
56.   
    
57.   (command "erase" tt "")                               ;删除最初定义的对齐线
    
58. 
    
59.   (command "layer" "set" lname "")  ;还原图层设置
    
60.   (setvar "osmode" oldos) ;还原捕捉模式
    
61.   
    
62.   (prin1)
    
63.   
    
64. )
    
65.      
    

<br /> (defun c:chmotor_xuhaoxianh()<br />   (setvar "cmdecho" 0)           ;命令执行过程不响应<br />   (setq oldos (getvar "osmode"))                                    ;保存当前捕捉模式  <br />   (setq lname (getvar "clayer"))                                    ;保存当前图层<br />   (command "layer" "set" 4 "")                                      ;将当前图层设为4层<br /> <br />   (setvar "osmode" 1)                                               ;打开对象捕捉<br />   (setq biaozhunxian1 (getpoint "\n输入序号线位置："))              ;以下为取得基准线  <br />   (setq biaozhunxian2 (polar biaozhunxian1 0 10))<br />   (setvar "osmode" 0)                                               ;关闭对象捕捉<br />   (setq biaozhunxian3 (polar biaozhunxian1 4.71 3))                                      <br />   (command "line" biaozhunxian3 (polar biaozhunxian3 0 600) "")     ;画一条对齐的线，并将其加入选择集tt，以备程序结束时删除<br />   (setq zhunxian (entlast))<br />   (setq tt (ssadd))  <br />   (setq tt (ssadd (entlast) tt))<br />   <br />       ;以下为定出序号线引线的位置<br />   (setq ans "Yes")<br />   (while (= ans "Yes")<br />     (initget 1)<br />     (setq xuhaoxian1_qidian (getpoint "\n输入序号线起点："))  ;取得起点坐标<br />     (initget 1)<br />     (setq xuhaoxian1_zhongdian (getpoint "\n输入序号线转折点位置：")) ; 取得转折点大概位置<br />     (setq xuhaoxian1_zhuandian (inters xuhaoxian1_qidian xuhaoxian1_zhongdian biaozhunxian1 biaozhunxian2 nil))  ;取得真正的转折点坐标<br />     (setq xuhaoxian2_zhongdian (polar xuhaoxian1_zhuandian 0 10))         ;取得短横线的终点坐标<br />   <br />     (setq ss (ssadd))                                                     ;画出序号线并将其加入选择集ss<br />     (command "line" xuhaoxian1_qidian xuhaoxian1_zhuandian "")<br />     (setq ss (ssadd (entlast) ss))<br />     (command "line" xuhaoxian1_zhuandian xuhaoxian2_zhongdian "")<br />     (setq ss (ssadd (entlast) ss)) <br /> <br />     (initget 1)                                                            ;以下为输入序号值，10以上和10以下的值文字起点不同<br />     (setq xuhao (getint "\n输入序号："))                 <br />        (if (> xuhao 9)<br />        (progn <br />          (command "text" (polar xuhaoxian1_zhuandian 1 2.5) 5 0 xuhao)<br />          (setq ss (ssadd (entlast) ss))<br />        )<br />        (progn<br />          (command "text" (polar xuhaoxian1_zhuandian 0.52 4) 5 0 xuhao)<br />          (setq ss (ssadd (entlast) ss))<br />        )<br />        )<br />   <br />   (setq kuaiming (strcat (rtos xuhao) (rtos (distance xuhaoxian1_qidian xuhaoxian1_zhongdian)) (rtos (angle xuhaoxian1_qidian xuhaoxian1_zhongdian))))  ;用第一条序号线的长度、弧度与序号名合成一个块名，以防止块名重复<br /> <br />   (command "block" kuaiming xuhaoxian1_qidian ss "")             ;生成块<br />   (command "insert" kuaiming xuhaoxian1_qidian 1 1 0)            ;插入块<br />   (initget "Yes No")<br />   (setq ans (getkword "\n继续绘制序号线？(Y/N):")) <br />   (if (null ans) (setq ans "Yes"))<br />   )<br />   <br />   (command "erase" tt "")                               ;删除最初定义的对齐线<br /> <br />   (command "layer" "set" lname "")  ;还原图层设置<br />   (setvar "osmode" oldos) ;还原捕捉模式<br />   <br />   (prin1)<br />   <br /> )<br />      <br />

lijiao您说的MDT，我听说过，但是没接触过，容易找吗？