除数没有小数
本帖最后由 kzd2004 于 2024-1-4 12:52 编辑请教一下
(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了这是为什么啊？
GETINT 是整數 整數除不盡是會自動舍去小數的.您應該用GETREAL而不是 GETINT 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 如果被除数和除数都是整数,结果就会舍去小数 (setq a1 (/ (+ d1 l) d2 1.)) shenhung 发表于 2024-1-4 13:10
GETINT 是整數 整數除不盡是會自動舍去小數的.您應該用GETREAL而不是 GETINT
谢谢你了，真心感谢。 llsheng_73 发表于 2024-1-4 14:20
(setq a1 (/ (+ d1 l) d2 1.))
感谢你，后面加一个1.果然就对了，谢谢，谢谢，就是不知道为什么？ 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是矩形里面的两个坐标，主要是想删除矩形里面的竖线。 (setq a1 (/ (float (+ d1 l)) d2)) llsheng_73 发表于 2024-1-4 15:42
alisp或vlisp的算术运算函数，对于只有整数参与的计算，按整数计算，返回整数结果，如果参与计算的数据有 ...
谢谢你了！
页:
[1]
2