[求助]如何控制在LISP程序中數值變量的精度

fend_2000 · 发表于 2004-10-19 14:34:00

如何控制在LISP程序中数值变量的精度?我将一段线等分几段后,每段都为整数长度(S=50.00)，但是我(PRINC S )后，显示的却是50.01.

alin · 发表于 2004-10-19 14:50:00

Paste your code.

龙龙仔 · 发表于 2004-10-19 15:47:00

我对Spline测试等距太约误差在49.9999~50.0002

其它线型都很准!!

fend_2000 · 发表于 2004-10-20 08:57:00

;等分实体(螺牙孔)
(defun c:dv(/ ss1 ss2 ssna1 sslist1 sslist2 ssna2 ssassoc1 ssassoc2
v1 v2 n x v12y v12x disx disy dis mmx mmy
x1 y1 diss vsx vxy vsy v1y v2y v1x v2x)
(setvar "cmdecho" 0)
(command "osnap" "cen,int,end")
(setq ss1(ssget))
(setq ss2(ssget "p" (list(cons 0 "circle"))))
(setq ssna1(ssname ss2 0))
(setq sslist1(entget ssna1))
(setq ssassoc1(assoc 10 sslist1))
(setq v1x(cadr ssassoc1))
(setq v1y(caddr ssassoc1))
(setq v1(list v1x v1y))
(setq v2(GETPOINT "\nSelect Point 2:"))
(setq n(getint "\nNumber of segments:"))
(setq x 1)
(setq v2x(car v2))
(setq v2y(cadr v2))
(setq v12y(- v2y v1y))
(setq v12x(- v2x v1x))
(setq disy(/ v12y n))
(setq disx(/ v12x n))
(setq vsy(rtos disy 2 1))
(setq disy(atof vsy))
(setq mmy(fix disy))
(if(>= disy (+ 0.5 mmy))(setq disy(+ mmy 1))(setq disy mmy))
(setq vsx(rtos disx 2 1))
(setq disx(atof vsx))
(setq mmx(fix disx))
(if(>= disx (+ 0.5 mmx))(setq disx(+ mmx 1))(setq disx mmx))
(setq dis(sqrt(+(* disx disx)(* disy disy))))
(setq diss(rtos dis 2 1))
(setq dis(atof diss))
(while (< x n)
(setq y1(+(* x disy) (cadr v1)))
(setq x1(+(* x disx)(car v1)))
(setq vxy(list x1 y1))
(command "osnap" "none""copy" ss1 "" v1 vxy "")
(setq x (+ x 1))
)
(princ"\nDistance:")
(princ dis)
(princ)
(setvar "cmdecho" 1)
)
(prompt "\n*****************<C:DV.LSP>************")
(prin1)

fend_2000 · 发表于 2004-10-20 10:20:00

<IMG src="file:///D:/Clipboard01.jpg">

用法。

fend_2000 · 发表于 2004-10-20 10:24:00

龙龙仔 · 发表于 2004-10-20 11:43:00

最后的1是(setvar "cmdecho" 1)的回传值
(princ "\nDistance:")
(princ DIS)
(princ)
(setvar "cmdecho" 1)
(princ);;增加即可
)

程序缺点太多不能尽录 8-)

fend_2000 · 发表于 2004-10-20 15:54:00

多谢指教!

fend_2000 · 发表于 2004-10-20 16:02:00

请各位指出我程序上的不足之处,多谢。这个对我很重要.

龙龙仔 · 发表于 2004-10-20 17:07:00

;;简单写写供参考,NO ERROR CHECK
(defun C:TT (/ HOLDOSMODE ENT PT1 PT2 NUM ANG DIST DIST1)
(setq HOLDOSMODE (getvar "OSMODE"))
(if (setq ENT (ssget))
(progn
(setvar "osmode" 39)
(setq PT1 (getpoint "\n基准点: "))
(setq PT2 (getpoint PT1 "\n第2点: "))
(setq NUM (getint "\nNumber of segments:"))
(setq ANG (angle PT1 PT2))
(setq DIST (/ (distance PT1 PT2) NUM)
DIST1 DIST
)
(setvar "osmode" 0)
(repeat NUM
(setq PT2 (polar PT1 ANG DIST))
(command "._COPY" ENT "" PT1 PT2)
(setq DIST (+ DIST DIST1))
)
(princ "\nDistance:")
(princ DIST1)
)
)
(setvar "osmode" HOLDOSMODE)
(princ)
)

账号		自动登录	找回密码
密码			注册

[求助]如何控制在LISP程序中數值變量的精度

本帖子中包含更多资源