[求助]：[0126]依偏移值连续偏移该怎样进行呢?

taner

2. 
   
3.   [FONT=courier new]
   
4. (defun c:mo (/ a di c i j d)
   
5.   (princ "\n單個實體多次遞增偏移. ")
   
6.   (command "undo" "be")
   
7.   (prompt "\nPlease select the objects to offset:")
   
8.   (setq a (ssget))
   
9.   (initget (+ 1 2 4))
   
10.   (setq di (getreal "\nPlease input the offset distance:"))
    
11.   (setq c (getpoint "\nPlease select the offset side:"))
    
12.   (initget (+ 1 2 4))
    
13.   (setq i (getreal "\nPlease input the number for offset:"))
    
14.   (setq d di)
    
15.   (if (numberp di)
    
16.     (if (> di 0)
    
17.       (progn
    
18.         (setq j 1)
    
19.         (while (<= j i)
    
20.           (command "offset" d a c "")
    
21.           (setq j (1+ j))
    
22.           (setq d (+ di d))
    
23.         )
    
24.       )
    
25.     )
    
26.   )
    
27.   (command "undo" "e")
    
28.   (princ)
    
29. )
    
30.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun c:mo (/ a di c i j d)<br />   (princ "\n單個實體多次遞增偏移. ")<br />   (command "undo" "be")<br />   (prompt "\nPlease select the objects to offset:")<br />   (setq a (ssget))<br />   (initget (+ 1 2 4))<br />   (setq di (getreal "\nPlease input the offset distance:"))<br />   (setq c (getpoint "\nPlease select the offset side:"))<br />   (initget (+ 1 2 4))<br />   (setq i (getreal "\nPlease input the number for offset:"))<br />   (setq d di)<br />   (if (numberp di)<br />     (if (> di 0)<br />       (progn<br />         (setq j 1)<br />         (while (<= j i)<br />           (command "offset" d a c "")<br />           (setq j (1+ j))<br />           (setq d (+ di d))<br />         )<br />       )<br />     )<br />   )<br />   (command "undo" "e")<br />   (princ)<br /> )<br />   [/FONT]<br />

kwok

我这个用的好多年了
连续拷贝MCP
可以在偏移时的过程中随时改变偏移量。
正值向上，负值向反。
结束输入0.

1800模数是自用的，只要输入1或2或3，就会按照这个模数的倍数。由于这是源码程序，大家可以在程序里自己改这个值。

dircation(1:x 2:y 3:横向1800模数)<2>:
distance (0:end):<6000>:
--------------------------------------------------------------------不能用缺少
提示:
命令: mcp ; 错误: no function definition: 1:X