luckier 发表于 2011-7-6 15:47:00

好牛，比一般的阵列更快捷

戏男 发表于 2011-8-29 15:46:30

没有明经币了 暂时不下了 谢谢

gst6826 发表于 2011-9-10 00:31:09

没有币了，下不了了。

shenliangd 发表于 2011-11-7 20:32:10

非常喜欢啊

lizhiqiang9801 发表于 2011-11-8 10:47:56

没钱   先收藏 了吧

hbshyjch 发表于 2011-11-8 15:08:35

看着很好看

lohas1118 发表于 2011-11-9 11:38:10

不错的程序，支持

T_T 发表于 2011-11-10 00:25:10

谢谢分享,这个好用,

lizhiqiang9801 发表于 2011-11-21 10:11:17

crazylsp 发表于 2011-1-7 17:29 static/image/common/back.gif
牛啊

期待楼主汉化一下

crazylsp 发表于 2011-11-21 16:33:59

花了一刻钟翻译了一下，希望后人修订
;|                                                        ;;
        DARRAY 功能                                        ;;
        By: 安德里亚 Andreetti 2009-01-03                        ;;
                                                        ;;
        更新 1.1 By A.A. 2009-01-03                        ;;
        增加正交模式                                        ;;
                                                        ;;
        更新 1.2 By A.A. 2009-01-04                        ;;
        允许用户输入角度值                ;;
                                                        ;;
        更新 1.3 By A.A. 2009-01-04                        ;;
        允许极坐标输入                                ;;
        当按下任何健不再忽略         ;;
                                                        ;;
        更新 1.4 By A.A. 2009-01-23                        ;;
        新特点:                                        ;;
       - 矩形 极坐标 曲线                        ;;
       - 允许改变动态 数目         ;;
       - 允许改变动态 角度                ;;
       - 允许按shift键对齐物体         ;;
       - 新动态菜单                                ;;
                                                        |;
(defun c:DArray        (/ sent        Dbasepoint DtoPoint #Copy SSlist P0 ang        dist
               entcopy input Operation orthm Dmess1 Dmess2 Dmess3)

(if (vl-string-search "FR" (strcase (ver)))
(setq Dmess1 "\n拷贝数目: "      
      Dmess2 "\n点阵列专项..."
      Dmess3 "\nApp u 叶形 (A)角度/(Q)动态数量: "
      Dmess4 "\n(L)线性的/(R)长方形的/(P)极向坐标的/(A)曲线的: "
      Dmess5 "\n点取基点..."
      Dmess6 "\n直曲判断方向..."
      Dmess7 "\n在X方向动态阵列数 : "
      Dmess8 "\n在Y方向动态阵列数: "

      MTmess1 "指针确定角度: "
      MTmess2 "指针确定点: "
      MTmess3 "指针确定基础点: "
      MTmess4 "X方向动态数量"
      MTmess5 "Y方向动态数量: "
      MTmess6 "物体方向: "
      MTmess7 "多个项目确定角度: "
      MTmess8 "角度数目: "
)
(setq Dmess1 "\n拷贝阵列数: "      
      Dmess2 "\n贴附点"
      Dmess3 "\n按下 (A)角度/(Q)数量 : "
      Dmess4 "\n(L)线性/(R)矩形/(P)极坐标/(A)曲线: "
      Dmess5 "\n基点..."
      Dmess6 "\n曲线方向..."
      Dmess7 "\n在 X方向动态阵列数 : "
      Dmess8 "\n在 Y方向动态阵列数 : "

      MTmess1 "指针角度: "
      MTmess2 "指针点集: "
      MTmess3 "基点: "
      MTmess4 "X方向数量: "
      MTmess5 "Y方向数量: "
      MTmess6 "物体方向: "
      MTmess7 "角度项目: "
      MTmess8 "角度数目: "
)      
)
页: 1 [2] 3 4 5 6 7
查看完整版本: 动态阵列(强烈推荐)