程序有问题，期待您的帮助

秦国士兵

     各位前辈好，我想编写一个小程序，下面是其中的一个片段，功能是合并“TEXT”和“MTEXT”的选择集。
但是每次都卡在(ssname ss2 i)过不去，百思不得其解，请大神给分析一下原因，非常感谢。

(setq ss1 (ssget "X" '((0 . "TEXT"))))
  (command "chprop" ss1 "" "c" 4 "")
  (prin1)
  (setq ss2 (ssget "X" '((0 . "MTEXT"))))
  (command "chprop" ss2 "" "c" 4 "")
  (prin1)
                                               
  (if (and ss1 ss2)
    (progn
      ((setq i 0)
        (while (setq e1 (ssname ss2 i))；此处(ssname ss2 i)过不去
          (ssadd e1 ss1)
          (setq i (1+ i))
        )
        (setq ss3 ss1)
      )
    )
    (progn
      (if (= nil ss1)
        (setq ss3 ss2)
        (setq ss3 ss1)
      )
    )
  )
非常感谢

vectra

应该用（sslength ss2）得到ss2的长度后用repeat循环

lsjj

用'((0 . "TEXT,MTEXT"))不行嗎?

wzg356

第一个progn 多了一对括号，应为
(progn
      (setq i 0)
        (while (setq e1 (ssname ss2 i))
          (ssadd e1 ss1)
          (setq i (1+ i))
        )
        (setq ss3 ss1)
      
    )
应该可以执行了


另外，如果仅就这段代码而言：楼上的够了，即：
(setq ss3 "X" '((0 . "TEXT,MTEXT")))
  (command "chprop" ss3 "" "c" 4 "")

firstinti

(setq ss3(ssget "X" '((0 . "*TEXT"))))

ZZXXQQ

法一：

2. 
   
3.   (setq ss1 (ssget "X" '((0 . "TEXT"))))
   
4.   (setq ss2 (ssget "X" '((0 . "MTEXT"))))
   
5.   (command "chprop" ss1 ss2 "" "c" 4 "")
   
6.   (prin1)
   
7.                                                 
   
8.   (if (and ss1 ss2)
   
9.      (progn
   
10.       (repeat (setq i (sslength ss2))
    
11.           (ssadd (ssname ss2 (setq i (1- i))) ss1)
    
12.       )
    
13.       (setq ss3 ss1)
    
14.     )
    
15.     (setq ss3 (if ss1) ss1 ss2)
    
16.   )

<br />   (setq ss1 (ssget "X" '((0 . "TEXT"))))<br />   (setq ss2 (ssget "X" '((0 . "MTEXT"))))<br />   (command "chprop" ss1 ss2 "" "c" 4 "")<br />   (prin1)<br />                                                 <br />   (if (and ss1 ss2)<br />      (progn<br />       (repeat (setq i (sslength ss2))<br />           (ssadd (ssname ss2 (setq i (1- i))) ss1)<br />       )<br />       (setq ss3 ss1)<br />     )<br />     (setq ss3 (if ss1) ss1 ss2)<br />   )

法二：

2.   (setq ss1 (ssget "X" '((0 . "TEXT"))))
   
3.   (setq ss2 (ssget "X" '((0 . "MTEXT"))))
   
4.   (command "select" ss1 ss2 "")
   
5.   (setq ss3 (ssget "P"))
   
6.   (command "chprop" ss3 "" "c" 4 "")
   

  (setq ss1 (ssget "X" '((0 . "TEXT"))))<br />   (setq ss2 (ssget "X" '((0 . "MTEXT"))))<br />   (command "select" ss1 ss2 "")<br />   (setq ss3 (ssget "P"))<br />   (command "chprop" ss3 "" "c" 4 "")<br />

法三：

2.   (setq ss1 (ssget "X" '((0 . "TEXT"))))
   
3.   (setq ss2 (ssget "X" '((0 . "MTEXT"))))
   
4.   (command "chprop" ss1 ss2 "" "c" 4 "")
   
5.   (setq ss3 (ssget "P"))
   

  (setq ss1 (ssget "X" '((0 . "TEXT"))))<br />   (setq ss2 (ssget "X" '((0 . "MTEXT"))))<br />   (command "chprop" ss1 ss2 "" "c" 4 "")<br />   (setq ss3 (ssget "P"))<br />

法四：

2. (setq ss3 (ssget "X" '((0 . "*TEXT"))))

(setq ss3 (ssget "X" '((0 . "*TEXT"))))

bssurvey

(setq ss1 (ssget "X" '((0 . "TEXT"))))
   (command "chprop" ss1 "" "c" 4 "")
   (prin1)
   (setq ss2 (ssget "X" '((0 . "MTEXT"))))
   (command "chprop" ss2 "" "c" 2 "")
   (prin1)
                                                
   (if (and ss1 ss2)
     (progn
        (setq i 0)
        (setq ss2number(sslength ss2))
         (while ss2number
          (setq e1 (ssname ss2 i))；此?(ssname ss2 i)?不去
          (ssadd e1 ss1)
           (setq i (1+ i)
         )
         (setq ss3 ss1)
       )
     )
     (progn
       (if (= nil ss1)
         (setq ss3 ss2)
         (setq ss3 ss1)
       )
     )
   )