[已解决]：圆周阵列lsp

haibinpro

按aeo版主意见修改后程序执行后符合要求了，

2. 
   
3. (defun C:ARRAY3(/ ss pt)
   
4.         (setvar "cmdecho" 0)
   
5.         (prompt "\n 执行圆周阵列：3个均布 \n")
   
6.         (setq ss (ssget))
   
7.         (if ss
   
8.                 (progn
   
9.                 (setq pt (getpoint "\n 指定旋转阵列基点"))
   
10.                 (if pt
    
11.                         (progn
    
12.                                 (command "-array" ss "" "p" pt "3" "360" "")
    
13.                                 (setq arraycentpt pt)
    
14.                         )
    
15.                         (progn
    
16.                                 (if
    
17.                                         (/= nil arraycentpt)
    
18.                                         (command "-array" ss "" "p" arraycentpt "3" "360" "")
    
19.                                         (princ)
    
20.                                 )
    
21.                         )
    
22.                 )
    
23.                 )
    
24.         )
    
25.         (prin1)
    
26. )
    

<br /> (defun C:ARRAY3(/ ss pt)<br />         (setvar "cmdecho" 0)<br />         (prompt "\n 执行圆周阵列：3个均布 \n")<br />         (setq ss (ssget))<br />         (if ss<br />                 (progn<br />                 (setq pt (getpoint "\n 指定旋转阵列基点"))<br />                 (if pt<br />                         (progn<br />                                 (command "-array" ss "" "p" pt "3" "360" "")<br />                                 (setq arraycentpt pt)<br />                         )<br />                         (progn<br />                                 (if<br />                                         (/= nil arraycentpt)<br />                                         (command "-array" ss "" "p" arraycentpt "3" "360" "")<br />                                         (princ)<br />                                 )<br />                         )<br />                 )<br />                 )<br />         )<br />         (prin1)<br /> )<br />

但是下面程序却可以

2. 
   
3. 
   
4. (defun C:ARRAY3(/ s)
   
5.         (setvar "cmdecho" 0)
   
6.         (setq
   
7.                 s (ssget)
   
8.         )
   
9.         (command "-array" s "" "p" pause "3" "360" "")
   
10.         (prin1)
    
11. )
    
12. 
    

<br /> <br /> (defun C:ARRAY3(/ s)<br />         (setvar "cmdecho" 0)<br />         (setq <br />                 s (ssget)<br />         )<br />         (command "-array" s "" "p" pause "3" "360" "")<br />         (prin1)<br /> )<br /> <br />

xyz518mm

您的这各arraycentpt 有何用途呢?
为何做了没有点选的判断?

Underway

程式段落不清
请注解各段落的起止及意向

haibinpro

to 2楼，
arraycentpt用于作为全局变量，如果需要圆周阵列5个和圆周阵列4个分别进行（先后执行）时，可免去选择阵列中心点的目的。

aeo

最初由 haibinpro 发布
[B]为什么执行后没有效果，
[code]
(defun C:ARRAY3(/ ss pt)
        (setvar "cmdecho" 0)
        (prompt "\n 执行圆周阵列：3个均布 \n")
        (setq ss (ssget))
        (if ss
                (setq pt (getpoint "\n 指定旋转阵列基点"))... [/B]

(if ss 后加 progn