除数没有小数

kzd2004

请教一下
(defun c:r5 (/ pt1 pt2 a44 l a1 a2 a3 a4 a5)
(setq #os (getvar "osmode"));;取得当前捕捉设置
  (setq pt1 (getpoint "\n指定第一个角点: "))
  (setq d1 (getint "总长度"))
  (setq d2 (getint "输入均分数量"))
   (setq l 100)
  (setvar "osmode" 0);;关闭捕捉

(setq a1 (/ (+ d1 l) d2))
(setq a2 (- a1 l))
(setq a3 (polar pt1 0 a2))
(setq a4 (polar a3 (* 1.5 pi) 50))

(command "line" pt1 a3 "")
(command "rectang" a4  "d" l l (polar a4 (* 0.25 pi) 50))
(command "copy" (ssget "c" (polar a3 (* 1.75 pi) 30)  (polar a3 (* 0.75 pi) 30)) "" pt1 "a" d2 (polar pt1 0 a1) "" "")

  (princ )
(setvar "osmode" 675);;绘图结束还原捕捉设置
)


比方说我输入4400均分3，可是最后的总长变成4398了这是为什么啊？

shenhung

GETINT 是整數   整數除不盡是會自動舍去小數的.  您應該用GETREAL  而不是 GETINT

llsheng_73

kzd2004 发表于 2024-1-4 14:45
感谢你，后面加一个1.果然就对了，谢谢，谢谢，就是不知道为什么？

alisp或vlisp的算术运算函数，对于只有整数参与的计算，按整数计算，返回整数结果，如果参与计算的数据有实数，会按实数进行计算返回实数结果，所有参数指的是同级运算或者说每个运行算符只管它后边的参数
比如(+(/ 1 2)(/ 1 2.))计算结果为0.5而不是1，因为+的第一个参数是(/ 1 2)，这个除法运算的所有 参数都是整数，返回结果为0，后边一部分(/ 1 2.)，除法运算的参数有一个是实数2.，按实数进行计算返回0.5,最后加的结果也就是0.5

lijiao

如果被除数和除数都是整数,结果就会舍去小数

llsheng_73

(setq a1 (/ (+ d1 l) d2 1.))

kzd2004

shenhung 发表于 2024-1-4 13:10
GETINT 是整數   整數除不盡是會自動舍去小數的.  您應該用GETREAL  而不是 GETINT

谢谢你了，真心感谢。

kzd2004

llsheng_73 发表于 2024-1-4 14:20
(setq a1 (/ (+ d1 l) d2 1.))

感谢你，后面加一个1.果然就对了，谢谢，谢谢，就是不知道为什么？

kzd2004

llsheng_73 发表于 2024-1-4 14:20
(setq a1 (/ (+ d1 l) d2 1.))

我还想请问你一下，我用trim函数的时候去裁剪矩形内的竖线，只要是绘图区域图形少的时候不卡顿，一旦图形多了就卡死了，恳请你帮助一下。

(command "rectang" p1 p2 "")
(setq b8 (entlast))
(command "trim" ""  b8 "f" b1 b2 "" "")，b1,b2是矩形里面的两个坐标，主要是想删除矩形里面的竖线。

vitalgg

(setq a1 (/ (float (+ d1 l)) d2))

kzd2004

llsheng_73 发表于 2024-1-4 15:42
alisp或vlisp的算术运算函数，对于只有整数参与的计算，按整数计算，返回整数结果，如果参与计算的数据有 ...

谢谢你了！