計算數值時，被CAD無條件捨去，程式出錯(求助)

lead009

这是一个在画砖墙的程式
里面在计算砖块高度的时候，如果有出现小数点，都会被CAD取成整数


Uploaded with ImageShack.us


(defun C:233()
  (setvar "cmdecho" 0);關閉指令回應
  ;;前置動作;;
  (setq p1(getpoint"\n選擇左下角點"))
  (setq hh(getdist"\n輸入高度<65>"))(if(null hh)(setq hh 65))
  (setq ww(getdist"\n輸入寬度<120>"))(if(null ww)(setq ww 120))
  (setq nnh(getint"\n垂直等分量<5>"))(if(null nnh)(setq nnh 5))
  (setq nnw(getint"\n水平等分量<8>"))(if(null nnw)(setq nnw 8))
  
  (setq gapw(/ ww nnw))
  (setq gaph(/ hh nnh))
  
  (print (strcat (rtos hh) " / " (rtos nnh) "=" (rtos gaph)))
  
  (setq p2(polar p1 0 ww))
  (setq p3(polar p2 (* 0.5 pi) hh))
  (setq p4(polar p3 pi ww))
  (setq pa p1)
  (setq pz1(polar p1 (* pi 0.5) gaph))
  (setq pz(polar pz1 pi (* gapw 0.5)))
  (command"line" p1 p4 "")
  (command"line" p2 p3 "")
  (command"line" p1 p2 "")
  (setq en1 (entlast))
  (setq ss1 (ssadd))
  (setq ss2 (ssadd))
  
  (repeat (- nnw 1)
    (setq pa (polar pa 0 gapw))
    (setq pb (polar pa (* 0.5 pi) gaph))
    (command"line" pa pb "")
    (setq ss1(ssadd (entlast) ss1))
  )
  
  (if (> nnh 1)
    (repeat nnw
      (setq pz(polar pz 0 gapw))
      (setq py(polar pz (* pi 0.5) gaph))
      (command "line" pz py "")
      (setq ss2(ssadd (entlast) ss2))
    )
  )
  (command "array" en1 "" "R" (+ nnh 1) 1 gaph 1)
  (if(= (rem nnh 2) 0) (setq an (/ nnh 2)) (setq an(/ (+ nnh 1) 2)))
  (command "array" ss1 "" "R" an 1 (* gaph 2))
  (if(= (rem nnh 2) 0) (setq an (/ nnh 2)) (setq an(/ (- nnh 1) 2)))
  (command "array" ss2 "" "R" an 1 (* gaph 2))
   
(prin1)
)

Andyhon

  (setq gapw (/ ww nnw 1.0))
  (setq gaph (/ hh nnh 1.0))

lead009

感谢，原来可以用这种方法来调整小数点的数量
我的问题解决了。