快速阵列，减少参数输入

清水白粥

简单的阵列功能，减少复杂的参数输入



功能：阵列功能
快捷键：ar2

优势：阵列功能可以自由修改 数量和间距  

yegucheng0129

感谢大佬分享

183017064

优化一下DS

2. (defun c:ar2 (/ *error* ss rows cols rowSpacing colSpacing)
   
3.   ;; 定义错误处理函数
   
4.   (defun *error* (msg)
   
5.     (if (not (wcmatch (strcase msg) "*BREAK,*CANCEL*,*EXIT*"))
   
6.       (princ (strcat "\n错误: " msg))
   
7.     )
   
8.     (princ)
   
9.   )
   
10.   
    
11.   ;; 检查是否选中对象
    
12.   (if (setq ss (ssget '((0 . "LINE,ARC,LWPOLYLINE,POLYLINE,CIRCLE,ELLIPSE,HATCH,INSERT,DIMENSION"))))
    
13.     (progn
    
14.       ;; 获取行数（正整数）
    
15.       (setq rows 1) ; 默认值
    
16.       (while
    
17.         (progn
    
18.           (setq input (getint "\n输入行数 <1>: "))
    
19.           (cond
    
20.             ((null input) nil) ; 用户回车，使用默认值
    
21.             ((<= input 0)
    
22.               (princ "行数必须大于0。")
    
23.               t ; 继续循环
    
24.             )
    
25.             (t (setq rows input) nil) ; 有效输入，退出循环
    
26.           )
    
27.         )
    
28.       )
    
29.       
    
30.       ;; 获取列数（正整数）
    
31.       (setq cols 2) ; 默认值
    
32.       (while
    
33.         (progn
    
34.           (setq input (getint "\n输入列数 <2>: "))
    
35.           (cond
    
36.             ((null input) nil)
    
37.             ((<= input 0)
    
38.               (princ "列数必须大于0。")
    
39.               t
    
40.             )
    
41.             (t (setq cols input) nil)
    
42.           )
    
43.         )
    
44.       )
    
45.       
    
46.       ;; 获取行间距（自动处理默认值）
    
47.       (setq rowSpacing
    
48.         (cond
    
49.           ((= rows 1) 0.0) ; 单行时默认0间距
    
50.           ((getdist (strcat "\n输入行间距 <" (rtos 100.0 2) ">: ")))
    
51.           (t 100.0) ; 多行时默认100
    
52.         )
    
53.       )
    
54.       
    
55.       ;; 获取列间距（带默认值）
    
56.       (setq colSpacing
    
57.         (cond
    
58.           ((getdist "\n输入列间距 <100.0>: "))
    
59.           (t 100.0)
    
60.         )
    
61.       )
    
62.       
    
63.       ;; 执行阵列命令
    
64.       (command "_.ARRAYRECT"
    
65.         ss       ; 选择集
    
66.         ""       ; 结束选择
    
67.         ""       ; 接受默认基点
    
68.         rows     ; 行数
    
69.         cols     ; 列数
    
70.         rowSpacing ; 行间距
    
71.         colSpacing ; 列间距
    
72.       )
    
73.     )
    
74.     (princ "\n未选择对象。") ; 用户取消选择提示
    
75.   )
    
76.   (princ)
    
77. )

(defun c:ar2 (/ *error* ss rows cols rowSpacing colSpacing)<br />   ;; 定义错误处理函数<br />   (defun *error* (msg)<br />     (if (not (wcmatch (strcase msg) "*BREAK,*CANCEL*,*EXIT*"))<br />       (princ (strcat "\n错误: " msg))<br />     )<br />     (princ)<br />   )<br />   <br />   ;; 检查是否选中对象<br />   (if (setq ss (ssget '((0 . "LINE,ARC,LWPOLYLINE,POLYLINE,CIRCLE,ELLIPSE,HATCH,INSERT,DIMENSION"))))<br />     (progn<br />       ;; 获取行数（正整数）<br />       (setq rows 1) ; 默认值<br />       (while<br />         (progn<br />           (setq input (getint "\n输入行数 <1>: "))<br />           (cond<br />             ((null input) nil) ; 用户回车，使用默认值<br />             ((<= input 0)<br />               (princ "行数必须大于0。")<br />               t ; 继续循环<br />             )<br />             (t (setq rows input) nil) ; 有效输入，退出循环<br />           )<br />         )<br />       )<br />       <br />       ;; 获取列数（正整数）<br />       (setq cols 2) ; 默认值<br />       (while<br />         (progn<br />           (setq input (getint "\n输入列数 <2>: "))<br />           (cond<br />             ((null input) nil)<br />             ((<= input 0)<br />               (princ "列数必须大于0。")<br />               t<br />             )<br />             (t (setq cols input) nil)<br />           )<br />         )<br />       )<br />       <br />       ;; 获取行间距（自动处理默认值）<br />       (setq rowSpacing<br />         (cond<br />           ((= rows 1) 0.0) ; 单行时默认0间距<br />           ((getdist (strcat "\n输入行间距 <" (rtos 100.0 2) ">: ")))<br />           (t 100.0) ; 多行时默认100<br />         )<br />       )<br />       <br />       ;; 获取列间距（带默认值）<br />       (setq colSpacing<br />         (cond<br />           ((getdist "\n输入列间距 <100.0>: "))<br />           (t 100.0)<br />         )<br />       )<br />       <br />       ;; 执行阵列命令<br />       (command "_.ARRAYRECT"<br />         ss       ; 选择集<br />         ""       ; 结束选择<br />         ""       ; 接受默认基点<br />         rows     ; 行数<br />         cols     ; 列数<br />         rowSpacing ; 行间距<br />         colSpacing ; 列间距<br />       )<br />     )<br />     (princ "\n未选择对象。") ; 用户取消选择提示<br />   )<br />   (princ)<br /> )

清水白粥

183017064 发表于 2025-3-4 10:48
优化一下DS

有缺陷，用不了

chslwj521

清水白粥 发表于 2025-3-4 16:07
有缺陷，用不了

_.ARRAYRECT  
此命令只有在高版才有，测2020可行。2008不可行

清水白粥

chslwj521 发表于 2025-3-7 09:18
_.ARRAYRECT  
此命令只有在高版才有，测2020可行。2008不可行

是高版本才可以的