CAD任意角度阵列程序

YCH840

CAD任意角度阵列程序，很好用！

zmzk

一般般，用处不算大，论坛里已经有几个类似的了！！

依然小小鸟

不错的帖子 顶一下

YCH840

【KAIXIN】

好用，但不是很实用

先进者

最好能加上记忆就好了

xiaoquansb

和旋转阵列有区别

ljpnb

试过了，支持一下。。

mycad

谢谢，学习！！！！！！

GamIng

2. 
   
3. 楼主的附件：
   
4. 
   
5. ;;;;;;;;;;;;;角度阵列程序;;;;;;;;;;;;;;;;
   
6. (defun C:AAR ( / ss ang bp cnt dist d)
   
7.   (cond
   
8.     (  (setq ss (ssget))
   
9.        (initget 1)
   
10.        (setq bp (getpoint "\n基点： "))
    
11.        (initget 1)
    
12.        (setq ang
    
13.        (getangle bp "\n阵列方向： "))
    
14.        (initget 7)
    
15.        (setq dist
    
16.        (getdist "\n对象间距： "))
    
17.        (initget 7)
    
18.        (setq cnt (getint "\n对象个数： "))
    
19.        (setq d 0.0)
    
20.        (setvar "cmdecho" 0)
    
21.        (command "_.undo" "_g" "_.copy" ss "" "_m" bp)           
    
22.        (repeat (1- cnt)
    
23.        (command (polar bp ang (setq d (+ d dist)))))        
    
24.        (command "" "_.undo" "_e"))) (princ))   

<br /> 楼主的附件：<br /> <br /> ;;;;;;;;;;;;;角度阵列程序;;;;;;;;;;;;;;;;<br /> (defun C:AAR ( / ss ang bp cnt dist d)<br />   (cond<br />     (  (setq ss (ssget))<br />        (initget 1)<br />        (setq bp (getpoint "\n基点： "))<br />        (initget 1)<br />        (setq ang<br />        (getangle bp "\n阵列方向： "))<br />        (initget 7)<br />        (setq dist<br />        (getdist "\n对象间距： "))<br />        (initget 7)<br />        (setq cnt (getint "\n对象个数： "))<br />        (setq d 0.0)<br />        (setvar "cmdecho" 0)<br />        (command "_.undo" "_g" "_.copy" ss "" "_m" bp)           <br />        (repeat (1- cnt)<br />        (command (polar bp ang (setq d (+ d dist)))))        <br />        (command "" "_.undo" "_e"))) (princ))   

smartstar

收藏了，谢谢楼主。

功夫佬

看了一下，还可以改为相同距离重复移动对像哦，两点确定基点和方向。