[求助]如何控制在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 (************")
   (prin1)

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

file:///D:/Clipboard01.jpg
用法。

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

cmvizdvx3r3.jpg

龙龙仔 · 发表于 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

copy


;;简单写写供参考,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程序中數值變量的精度

发表回复

精选推荐