动态阵列(强烈推荐)

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
牛啊

期待楼主汉化一下

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 "角度数目: "
)
)

账号		自动登录	找回密码
密码			注册

[资源] 动态阵列(强烈推荐)