[求助]：有谁可以帮忙看一下是什么问题？

2s6j8

在调试中出现的问题，HSS变量原是这样写
（SETQ  HSS  （／  30  180））
结果HSS＝0
将30改成30.0
提示如图，不知什么原因。

ll_j

问题好像不是出在这一句，你再分析一下以后的代码。
(/ 30 180) ＝0 的问题是整型数的问题，两个整型数运算，结果还是整型。是否这一结果的改变影响了后面结果，使得原来错误的代码暴露出来了，你再查查。

2s6j8

一路排查才找到这个变量值。搞到头都大了。
最可疑是CONSP  1的提示。
在的R14中没有中断现象，在2004中有以上提示。
回到家中，R14在30.0的设置中可以完成调试。

cy956

如果你有疑问可以把相关的源码贴上来.

2s6j8

由于程序很长，现只将与变量HSS有关的传上来。

aeo

2. 
   
3. (defun C:xyb ()
   
4.   (setq pm (getvar "limmax"))
   
5.   (command "zoom" "all")
   
6.   (command "layer" "s" "0" "")
   
7.   (setq p0 (list (* (car pm) 0.50) (* (cadr pm) 0.50)))
   
8.   (setq px0 (list (- (car p0) 95) (- (cadr p0) 40)))
   
9.   (setq px2 (polar px0 0 25))
   
10.   (setq hss (/ 30 1800))
    
11.   (princ hss)
    
12.   [color=red](szhix px2 hss)[/color]
    
13.    (princ)
    
14. )
    
15. (princ "******键入Xyb开始执行*******")
    
16. 
    
17. 
    
18. 
    
19. (defun szhix [color=red](pxx hss)[/color]
    
20.   (setq pxx1 (polar pxx (* 0.5 pi) 15))
    
21.   (setq pxx2 (polar pxx1 (* 1.5 pi) (* 0.5 hss)))
    
22.   (command "line"
    
23.            pxx1
    
24.            pxx2
    
25.            ""
    
26.   )
    
27.   (setq sd (entget (entlast)))
    
28.   (setq i 1)
    
29.   (while (<= i 1800)
    
30.     (setq lhy (- (cadr pxx1) (* i hss)))
    
31.     (setq sp1 (car (nth 9 sd)))
    
32.     (setq lhx (car pxx1))
    
33.     (setq sp2 (cdr (cdr (cdr (nth 9 sd)))))
    
34.     (setq sp (cons sp1 (cons lhx (cons lhy sp2))))
    
35.     (setq sd (subst sp (assoc 11 sd) sd))
    
36.     (entmod sd)
    
37.     (setq sd (entget (entlast)))
    
38.     (setq i (1+ i))
    
39.     (princ)
    
40.   )
    
41. )
    
42. 
    

<br /> (defun C:xyb ()<br />   (setq pm (getvar "limmax"))<br />   (command "zoom" "all")<br />   (command "layer" "s" "0" "")<br />   (setq p0 (list (* (car pm) 0.50) (* (cadr pm) 0.50)))<br />   (setq px0 (list (- (car p0) 95) (- (cadr p0) 40)))<br />   (setq px2 (polar px0 0 25))<br />   (setq hss (/ 30 1800))<br />   (princ hss)<br />   [color=red](szhix px2 hss)[/color]<br />    (princ)<br /> )<br /> (princ "******键入Xyb开始执行*******")<br /> <br /> <br /> <br /> (defun szhix [color=red](pxx hss)[/color]<br />   (setq pxx1 (polar pxx (* 0.5 pi) 15))<br />   (setq pxx2 (polar pxx1 (* 1.5 pi) (* 0.5 hss)))<br />   (command "line"<br />            pxx1<br />            pxx2<br />            ""<br />   )<br />   (setq sd (entget (entlast)))<br />   (setq i 1)<br />   (while (<= i 1800)<br />     (setq lhy (- (cadr pxx1) (* i hss)))<br />     (setq sp1 (car (nth 9 sd)))<br />     (setq lhx (car pxx1))<br />     (setq sp2 (cdr (cdr (cdr (nth 9 sd)))))<br />     (setq sp (cons sp1 (cons lhx (cons lhy sp2))))<br />     (setq sd (subst sp (assoc 11 sd) sd))<br />     (entmod sd)<br />     (setq sd (entget (entlast)))<br />     (setq i (1+ i))<br />     (princ)<br />   )<br /> )<br /> <br />

看见两个红的地方的,下面的变量只会再它内部才有用,不会传到用到他的地方.
1.可以把szhix的hss变量去掉.
2.也可以把上面的(szhix px2 hss)换成(setq .. (szhix px2 hss)),当然要在szhix里要设好你的返回值.
我现在也不知道你要返回什么.

2s6j8

改成以下也不行：

(defun C:xyb ()
  (setq pm (getvar "limmax"))
  (command "zoom" "all")
  (command "layer" "s" "0" "")
  (setq p0 (list (* (car pm) 0.50) (* (cadr pm) 0.50)))
  (setq px0 (list (- (car p0) 95) (- (cadr p0) 40)))
  (setq px2 (polar px0 0 25))
  (setq pxx1 (polar px2 (* 0.5 pi) 15))
  (setq pxx2 (polar pxx1 (* 1.5 pi) (* 0.5 (/ 30 1800))))
  (command "line"
           pxx1
           pxx2
           ""
  )
  (setq sd (entget (entlast)))
  (setq i 1)
  (while (<= i 1800)
    (setq lhy (- (cadr pxx1) (* i (/ 30 1800))))
    (setq sp1 (car (nth 9 sd)))
    (setq lhx (car pxx1))
    (setq sp2 (cdr (cdr (cdr (nth 9 sd)))))
    (setq sp (cons sp1 (cons lhx (cons lhy sp2))))
    (setq sd (subst sp (assoc 11 sd) sd))
    (entmod sd)
    (setq sd (entget (entlast)))
    (setq i (1+ i))
    (princ)
  )

)
(princ "******键入Xyb开始执行*******")

aeo

30.0的问题上面不是有人说明白了吗?
int和float的关系.
况且你要什么数我怎么知道.

我说的是另一个问题.我当然是什么也没改，只是告诉你而已.

帮你分析一下(setq hss (/ 30 1800))  -->hss=0
(setq pxx2 (polar pxx1 (* 1.5 pi) (* 0.5 hss))) -->pxx2=pxx1

(command "line" pxx1 pxx2 "")-->画了0长度线.

2s6j8

分子小于分母的整数相除，结果就等于0，我不知道可以得到什么数学学奖。查LISP书后，先知有个人的头脑有问题，我也差不多。

柔柔

没办法，它就是这么规定的。
1/2=0
1.0/2=0.5
1/2.0=0.5
^_^

2s6j8

其实CONSP  1的问题还是搞不明白。