除数没有小数

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了这是为什么啊？

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

llsheng_73

kzd2004 发表于 2024-1-4 14:51
我还想请问你一下，我用trim函数的时候去裁剪矩形内的竖线，只要是绘图区域图形少的时候不卡顿，一旦图形 ...

极少通过command调用命令来进行处理，很多命令不同版本它的参数可能有小调整，不通用
TRIM命令在视图范围内对象很多的时候出现卡顿主要是因为没有明确指定它的第一个参数。。。
这个时候它会把所有东西都认为可能是参考对象，所以就有了卡顿的现象，但是明确指定第一个参数后，它就不会因为对象多少卡顿了

shenhung

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

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的算术运算函数，对于只有整数参与的计算，按整数计算，返回整数结果，如果参与计算的数据有 ...

谢谢你了！