IF语句不起作用, 求助

Comming

(defun c:xh ()
  (setvar "cmdecho" 0)   ;命令回显
  (setq tx (getint "\n起始数字:"))
  (if (= tx nil)(= tx 1))
  (setq yq (getdist "\n序号球直径:"))
  (if (= yq nil)(= yq 5))
  (while
    (setq os (getvar "osmode"))  ;系统变量
     (setq po (getpoint "\n引线起点:"))
     (setvar "osmode" 0)  ;设置系统变量
     (command "line" po pause "")
     (setq pt (cadr (grread pause)))
     (setq ang (angle po pt))
     (command "circle" "2p" pt (polar pt ang yq) "")
     (setq cir entlast)
     (setq cirdata (cdr (assoc 10 (entget (cir)))))
     (command "text" "j" "m" cirdata "" "" tx "")
     (setq tx (1+ tx))
     (setvar "osmode" os)
  )
)

两句IF语句不起作用,请求大家帮助.

【KAIXIN】

(if (= tx nil)(setq tx 1))
..........

(if (= yq nil)(setq yq 5))

Comming

谢谢版主,没想到是这样,呵呵

davide888

我也偷学了

lengxiaxi

这个lsp不错，但是设置半径为5  和 设置半径为 50 ，球筐是放大了，但是字符并没有放大，如何解决？？

Comming

lengxiaxi 发表于 2014-11-18 21:17
这个lsp不错，但是设置半径为5  和 设置半径为 50 ，球筐是放大了，但是字符并没有放大，如何解决？？

这个程式我已更新了，你看下能不能用
(defun c:xhq ( / gj tx yq)  
  (setvar "cmdecho" 0)
  (setvar "osmode"512)
  (setq tx (getint "\n起始值<1>:"))
  (if (= tx nil)(setq tx 1))
  (setq yq (getdist "\n文字高度:"))
  (if (= yq nil)(setq yq 5))
  (initget "p")
  (setq gj(getkword "\n[设置递增/递减(P)]<递增>:"))
  (if (= gj nil)(dz))
  (if (setq gj "P") (dj))
)
(defun dz()
  (while
     (setq po (getpoint "\n引线起点:"))
     (command "line" po pause "")
    (setq len entlast)
    (setq pt(cdr(assoc 11(entget(len)))))
     (setq ang (angle po pt))
     (command "circle" "2p" pt (polar pt ang (* 2 yq)))
     (setq cir entlast)
     (setq cirdata (cdr (assoc 10 (entget (cir)))))
    (command "text" "j" "mc" cirdata yq "" tx)
     (setq tx (1+ tx))

  ))
(defun dj()
  (while
     (setq po (getpoint "\n引线起点:"))
     (command "line" po pause "")
    (setq len entlast)
    (setq pt(cdr(assoc 11(entget(len)))))
     (setq ang (angle po pt))
     (command "circle" "2p" pt (polar pt ang (* 2 yq)))
     (setq cir entlast)
     (setq cirdata (cdr (assoc 10 (entget (cir)))))
     (command "text" "j" "mc" cirdata yq "" tx)
     (setq tx (1- tx))
  )
  )
  

lengxiaxi

Comming 发表于 2014-11-29 09:07
这个程式我已更新了，你看下能不能用
(defun c:xhq ( / gj tx yq)  
  (setvar "cmdecho" 0)

嗯，可以用了。我此前也转发过你这个lsp，请版主修改了。效果和你这个一样。引脚如果能改为箭头就完美了。

Comming

lengxiaxi 发表于 2014-11-29 12:03
嗯，可以用了。我此前也转发过你这个lsp，请版主修改了。效果和你这个一样。引脚如果能改为箭头就完美了。 ...

引脚改为箭头了，你用一下，看看还有什么问题需要改进！在我能力之内会帮你解决。

2. (defun c:xhq (/ gj tx yq os)
   
3.   (setq os (getvar "osmode"))
   
4.   (setvar "cmdecho" 0)
   
5.   (setq tx (getint "\n起始值<1>:"))
   
6.   (if (= tx nil)
   
7.     (setq tx 1)
   
8.   )
   
9.   (setq yq (getdist "\n文字高度:"))
   
10.   (if (= yq nil)
    
11.     (setq yq 5)
    
12.   )
    
13.   (initget "p")
    
14.   (setq gj (getkword "\n[设置递增/递减(P)]<递增>:"))
    
15.   (cond ((= gj nil) (dz))
    
16. ((= gj "p") (dj)))
    
17.   (princ)
    
18. (setvar "osmode" os)
    
19. )
    
20. (defun dz ()
    
21.   (while (>= tx tx)
    
22.     (yx)
    
23.     (setq tx (1+ tx))
    
24.   )
    
25. )
    
26. (defun dj ()
    
27.   (while (<= tx tx)
    
28.     (yx)
    
29.     (setq tx (1- tx))
    
30.   )
    
31. )
    
32. (defun yx ()
    
33.   (setvar "osmode" 512)
    
34.   (setq apt (getpoint "\n引线起点:"))
    
35.   (command "leader"apt(setq bpt (getpoint apt "\n引线终点:"))"""""n")
    
36.   (setq ang (angle apt bpt))
    
37.   (setvar "osmode" 0)
    
38.   (command "circle" "2p" bpt (polar bpt ang (* 2.5 yq)))
    
39.   (setq cir entlast)
    
40.   (setq cirdata (cdr (assoc 10 (entget (cir)))))
    
41.   (command "text" "j" "mc" cirdata yq "" tx)
    
42. )

(defun c:xhq (/ gj tx yq os)<br />   (setq os (getvar "osmode"))<br />   (setvar "cmdecho" 0)<br />   (setq tx (getint "\n起始值<1>:"))<br />   (if (= tx nil)<br />     (setq tx 1)<br />   )<br />   (setq yq (getdist "\n文字高度:"))<br />   (if (= yq nil)<br />     (setq yq 5)<br />   )<br />   (initget "p")<br />   (setq gj (getkword "\n[设置递增/递减(P)]<递增>:"))<br />   (cond ((= gj nil) (dz))<br /> ((= gj "p") (dj)))<br />   (princ)<br /> (setvar "osmode" os) <br /> )<br /> (defun dz ()<br />   (while (>= tx tx)<br />     (yx)<br />     (setq tx (1+ tx))<br />   )<br /> )<br /> (defun dj ()<br />   (while (<= tx tx)<br />     (yx)<br />     (setq tx (1- tx))<br />   )<br /> )<br /> (defun yx ()<br />   (setvar "osmode" 512)<br />   (setq apt (getpoint "\n引线起点:"))<br />   (command "leader"apt(setq bpt (getpoint apt "\n引线终点:"))"""""n")<br />   (setq ang (angle apt bpt))<br />   (setvar "osmode" 0)<br />   (command "circle" "2p" bpt (polar bpt ang (* 2.5 yq)))<br />   (setq cir entlast)<br />   (setq cirdata (cdr (assoc 10 (entget (cir)))))<br />   (command "text" "j" "mc" cirdata yq "" tx)<br /> )

ljpnb

Comming 发表于 2015-1-16 11:33
引脚改为箭头了，你用一下，看看还有什么问题需要改进！在我能力之内会帮你解决。

当中两句修改成(setq bpt (getpoint apt "\n引线终点:"))，看起来会直观一点。

Comming

ljpnb 发表于 2015-1-16 14:34
当中两句修改成(setq bpt (getpoint apt "\n引线终点:"))，看起来会直观一点。

好主意，我已在8楼更新了程式。