[求助]：LISP中关于命令选择该怎么用？

jianqiang21c

(defun c:gz ()
(prompt "输入要修改高度的文字")
  (setq a1 (ssget  '((-4 . "<OR") (0 . "MTEXT") (0 . "TEXT") (-4 . "OR>"))))
  (if a1
    (progn   
  (setq as (sslength a1))
  (setq a2 (getdist "\n输入新字高:"))
  (setq xz (getstring "\n输入文字对其方式:左下角对其<a>/右下角<任意键>"))     
        (if  (= xz "a")
          (progn
  (command ".scaletext" a1 "" "BL" a2)  
  (princ "\n选区内")
  (princ as)
  (princ "个文字被成功修改!!!")
  (princ)      
  )
  (princ "执行右下角对齐方式")
  (command ".scaletext" a1 "" "BR" a2)  
  (princ "\n选区内")
  (princ as)
  (princ "个文字被成功修改!!!")
  (princ)   
    )
    (princ)
     )  
    (princ "\n没有文字被选择,请重新选择!!!")
        )
    (princ)
         )
  就像上边的程序我想当用户输入A的时候执行缩放点的左下角对其，当用户输入其他的时候执行右下角对其，这样的选择性命令函数，可是用IF好像别能实现：（，请各位高手指点！！！

zhynt

你这样试试：

2. 
   
3. (defun c:gz ()
   
4.   (prompt "输入要修改高度的文字")
   
5.   (setq a1 (ssget '((0 . "text"))))
   
6.   (if (/= a1 nil)
   
7.     (progn
   
8.       (setq as (sslength a1))
   
9.       (setq a2 (getdist "\n输入新字高:"))
   
10.       (setq
    
11.         xz (getstring "\n输入文字对其方式:a为左下角对其/右下角<任意键>")
    
12.       )
    
13.       (if (= xz "a")
    
14.         (progn
    
15.           (command ".scaletext" a1 "" "BL" a2)
    
16.           (princ "\n选区内")
    
17.           (princ as)
    
18.           (princ "个文字被成功修改!!!")
    
19.           (princ)
    
20.         )
    
21.         (progn
    
22.           (princ "执行右下角对齐方式")
    
23.           (command ".scaletext" a1 "" "BR" a2)
    
24.           (princ "\n选区内")
    
25.           (princ as)
    
26.           (princ "个文字被成功修改!!!")
    
27.           (princ)
    
28.         )
    
29.       )
    
30.     )
    
31.     (princ "\n没有文字被选择,请重新选择!!!")
    
32.   )
    
33. )
    

<br /> (defun c:gz ()<br />   (prompt "输入要修改高度的文字")<br />   (setq a1 (ssget '((0 . "text"))))<br />   (if (/= a1 nil)<br />     (progn<br />       (setq as (sslength a1))<br />       (setq a2 (getdist "\n输入新字高:"))<br />       (setq<br />         xz (getstring "\n输入文字对其方式:a为左下角对其/右下角<任意键>")<br />       )<br />       (if (= xz "a")<br />         (progn<br />           (command ".scaletext" a1 "" "BL" a2)<br />           (princ "\n选区内")<br />           (princ as)<br />           (princ "个文字被成功修改!!!")<br />           (princ)<br />         )<br />         (progn<br />           (princ "执行右下角对齐方式")<br />           (command ".scaletext" a1 "" "BR" a2)<br />           (princ "\n选区内")<br />           (princ as)<br />           (princ "个文字被成功修改!!!")<br />           (princ)<br />         )<br />       )<br />     )<br />     (princ "\n没有文字被选择,请重新选择!!!")<br />   )<br /> )<br />

jianqiang21c

严重感谢雷锋同志火一般的热情~~~~
原来不把第二个(progn闭合影响了第三个progn:)