快速多次偏移[原创]：

LUCAS

快速多次偏移
;;;程序设计:赖云龙;;;
;;;---------------;;;

2. 
   
3. (defun C:QOFFSET (/ N A A2 AAA DIST NOS HOLDOFFSETDIST A11 A10 ACEN)
   
4.   (setq A2 (getvar "offsetdist"))
   
5.   (if (= A2 -1)
   
6.     (progn
   
7.       (setq
   
8.         A
   
9.          (getdist
   
10.            (strcat
    
11.              "\nSpecify multiple offset distance or Through <Through>: "
    
12.            )
    
13.          )
    
14.       )
    
15.     )
    
16.     (progn
    
17.       (setq
    
18.         A (getdist
    
19.             (strcat "\nSpecify multiple offset distance or Through <"
    
20.                     (rtos (getvar "offsetdist"))
    
21.                     ">: "
    
22.             )
    
23.           )
    
24.       )
    
25.     )
    
26.   )
    
27.   (if (= A NIL)
    
28.     (setq A (getvar "offsetdist"))
    
29.   )
    
30.   (while (= AAA NIL)
    
31.     (setq AAA (entsel "\nSelect object to offset: "))
    
32.   )
    
33.   (setq HOLDOFFSETDIST A)
    
34.   (setq A1 (cadr AAA))
    
35.   (setq A1 (osnap A1 "NEAR"))
    
36.   (setq AAA (car AAA))
    
37.   (setq DIST (getpoint A1 "\nSecond point: "))
    
38.   (setq NOS (fix (/ (distance A1 DIST) A)))
    
39.   (setq N 1)
    
40.   (repeat NOS
    
41.     (command "_.offset" (* A N) AAA DIST "")
    
42.     (setq N (1+ N))
    
43.   )
    
44.   (setvar "offsetdist" HOLDOFFSETDIST)
    
45.   (prompt (strcat "\nObject was offset " (rtos NOS) " times.")
    
46.   )
    
47.   (princ)
    
48. )
    

<br /> (defun C:QOFFSET (/ N A A2 AAA DIST NOS HOLDOFFSETDIST A11 A10 ACEN)<br />   (setq A2 (getvar "offsetdist"))<br />   (if (= A2 -1)<br />     (progn<br />       (setq<br />         A<br />          (getdist<br />            (strcat<br />              "\nSpecify multiple offset distance or Through <Through>: "<br />            )<br />          )<br />       )<br />     )<br />     (progn<br />       (setq<br />         A (getdist<br />             (strcat "\nSpecify multiple offset distance or Through <"<br />                     (rtos (getvar "offsetdist"))<br />                     ">: "<br />             )<br />           )<br />       )<br />     )<br />   )<br />   (if (= A NIL)<br />     (setq A (getvar "offsetdist"))<br />   )<br />   (while (= AAA NIL)<br />     (setq AAA (entsel "\nSelect object to offset: "))<br />   )<br />   (setq HOLDOFFSETDIST A)<br />   (setq A1 (cadr AAA))<br />   (setq A1 (osnap A1 "NEAR"))<br />   (setq AAA (car AAA))<br />   (setq DIST (getpoint A1 "\nSecond point: "))<br />   (setq NOS (fix (/ (distance A1 DIST) A)))<br />   (setq N 1)<br />   (repeat NOS<br />     (command "_.offset" (* A N) AAA DIST "")<br />     (setq N (1+ N))<br />   )<br />   (setvar "offsetdist" HOLDOFFSETDIST)<br />   (prompt (strcat "\nObject was offset " (rtos NOS) " times.")<br />   )<br />   (princ)<br /> )<br />

saintdog

好用，但最好能提供OFFSET的次数选择。

li809

每次偏移能实现不同距离吗

434939575

来参观参观，

1028882406@qq.c

啥也不说了，感谢楼主分享哇！

paulpipi

啥也不说了，感谢楼主分享哇！