srt 值为啥不变

youyou3810

2. (defun c:fd()
   
3. (initget 7)
   
4. (setq p1 (getpoint "文字所在位置："))
   
5. (initget 1 "1 2 3")
   
6.   (setq bklx (getkword "\n选择[L1零Y2半(1)/L1零P2全(2)/L1零Y2半Y3半(3)]:"))
   
7.   (print bklx)
   
8. (if (= bhlx 1)(setq srt "L1零Y2半"))
   
9. (if (= bhlx 2)(setq srt "L1零P2全"))
   
10. (if (= bhlx 3)(setq srt "L1零Y2半Y3半"))
    
11.    (print srt)
    
12.    (entmake
    
13.   (list
    
14.   '(0 . "TEXT")
    
15.   '(8 . "房屋附属")
    
16. (cons 10 p1)
    
17. (cons 1 srt)
    
18. '(40 . 0.5)
    
19. '(41 . 0.8)
    
20.   )
    
21.   )
    
22. )

(defun c:fd()<br /> (initget 7)<br /> (setq p1 (getpoint "文字所在位置："))<br /> (initget 1 "1 2 3")<br />   (setq bklx (getkword "\n选择[L1零Y2半(1)/L1零P2全(2)/L1零Y2半Y3半(3)]:"))<br />   (print bklx)<br /> (if (= bhlx 1)(setq srt "L1零Y2半"))<br /> (if (= bhlx 2)(setq srt "L1零P2全"))<br /> (if (= bhlx 3)(setq srt "L1零Y2半Y3半"))<br />    (print srt)<br />    (entmake<br />   (list<br />   '(0 . "TEXT")<br />   '(8 . "房屋附属")<br /> (cons 10 p1)<br /> (cons 1 srt)<br /> '(40 . 0.5) <br /> '(41 . 0.8)<br />   )<br />   )<br /> )

Andyhon

(if (= bhlx "1") ...

youyou3810

没用测试过

Andyhon

可否先注解每一段代码之本意为何?

曾否验证返回值映合本意!?

何处不合!? 有错误讯息吗?

wyl219

initget函数后的getkword获得的数据是str,而(= bhlx 1)相当于(= "1" 1)自然是永远不为t了.

(if (= bhlx "1")(setq srt "L1零Y2半"))
(if (= bhlx "2")(setq srt "L1零P2全"))
(if (= bhlx "3")(setq srt "L1零Y2半Y3半"))
这样试试建议用cond改写一下