请帮忙看看代码先选择后输入命令出错原因

wysclc

    请帮忙看看以下代码，一个简单的多重复命令（利用copy命令的阵列功能，平时工作经常需要等分复制）    先输入命令后选择对象能正常运行，但是先选择对象后输入命令会出错。请看看代码出错在什么地方，谢谢。

1. ;等分复制
   
2. ;在两点间等分复制
   
3. ;2020-05-24 v1.0
   
4. (defun c:fd( / ss p1)
   
5.         (setvar "cmdecho" 0)
   
6.        
   
7.         (if (not (setq ss (ssget  "I" )))
   
8.                 (progn
   
9.                         (princ "\n选择复制对象")
   
10.                         (setq ss (ssget))
    
11.                         (if (not ss)
    
12.                                 (progn
    
13.                                         (princ "\n没有选择对象，退出!!!")
    
14.                                         (exit)
    
15.                                 )
    
16.                         )                       
    
17.                 )                 
    
18.         )       
    
19.        
    
20.         (if (not dfcp_n) (setq dfcp_n 10))
    
21.         (setq n (getint (strcat "\指定等分数量:<" (itoa dfcp_n) ">")))
    
22.         (if (not n)
    
23.                 (setq n dfcp_n)
    
24.                 (setq dfcp_n n)
    
25.         )
    
26.         (setq p1 (getpoint "\n指定起始点："))       
    
27.         (command "_.copy" ss "" p1 "a" (1+ n) "f" pause )
    
28.         (princ "\n指定终点：")
    
29.         (prin1)
    
30. )
    

;等分复制<br /> ;在两点间等分复制<br /> ;2020-05-24 v1.0<br /> (defun c:fd( / ss p1)<br />         (setvar "cmdecho" 0)<br />         <br />         (if (not (setq ss (ssget  "I" )))<br />                 (progn<br />                         (princ "\n选择复制对象")<br />                         (setq ss (ssget))<br />                         (if (not ss)<br />                                 (progn<br />                                         (princ "\n没有选择对象，退出!!!")<br />                                         (exit)<br />                                 )<br />                         )                        <br />                 )                 <br />         )        <br />         <br />         (if (not dfcp_n) (setq dfcp_n 10))<br />         (setq n (getint (strcat "\指定等分数量:<" (itoa dfcp_n) ">")))<br />         (if (not n)<br />                 (setq n dfcp_n)<br />                 (setq dfcp_n n)<br />         )<br />         (setq p1 (getpoint "\n指定起始点："))        <br />         (command "_.copy" ss "" p1 "a" (1+ n) "f" pause )<br />         (princ "\n指定终点：")<br />         (prin1)<br /> )<br />

tenqq

(defun c:fd( / ss p1)
       (setvar "cmdecho" 0)
                        (princ "\n选择复制对象")
                        (setq ss (ssget))
                       (if (not ss)
                             (progn
                                      (princ "\n没有选择对象，退出!!!")
                                       (exit)
                                )
                        )                        
                                
       ...........后面不变。

wysclc

tenqq 发表于 2020-6-12 07:53
(defun c:fd( / ss p1)
       (setvar "cmdecho" 0)
                        (princ "\n选择复制对象") ...

可以了，能实现先选择后输命令，谢谢！