老问题，始终没解决，又出现了，怎么办?

newer

挚友01 发表于 2018-3-5 11:42

上面不是已经告诉你了
(setvar "dimzin" 8)(setq a 123.123123123)
(rtos a 100)

另外，对浮点数，你想知道小数点多少位有什么意义吗？

/db_自贡黄明儒_

1. ;;162.1 [功能] 数值后续零清除(见121)
   
2. ;|值为 0 到 3 时仅影响英尺-英寸标注：
   
3. DIMZIN
   
4. 0 消除零英尺和零英寸
   
5. 1 包含零英尺和零英寸
   
6. 2 包含零英尺，消除零英寸
   
7. 3 包含零英寸，消除零英尺
   
8. 4 消除十进制标注中的前导零（例如，0.5000 变为 .5000）
   
9. 8 消除十进制标注中的后续零（例如，12.5000 变为 12.5）
   
10. 12 消除前导零和后续零（例如，0.5000 变为 .5）
    
11. |;
    
12. ;;示例(HH:rtosr 2.500)；"2.5"
    
13. (defun HH:rtosr (RealNum / DIMZIN1 SHORTREAL1)
    
14.   (setq DimZin1 (getvar "DIMZIN"))
    
15.   (setvar "DIMZIN" 8)
    
16.   (setq ShortReal1 (rtos RealNum 2 8))
    
17.   (setvar "DIMZIN" DimZin1)
    
18.   ShortReal1
    
19. )

;;162.1 [功能] 数值后续零清除(见121)<br /> ;|值为 0 到 3 时仅影响英尺-英寸标注：<br /> DIMZIN<br /> 0 消除零英尺和零英寸<br /> 1 包含零英尺和零英寸<br /> 2 包含零英尺，消除零英寸<br /> 3 包含零英寸，消除零英尺<br /> 4 消除十进制标注中的前导零（例如，0.5000 变为 .5000）<br /> 8 消除十进制标注中的后续零（例如，12.5000 变为 12.5）<br /> 12 消除前导零和后续零（例如，0.5000 变为 .5）<br /> |;<br /> ;;示例(HH:rtosr 2.500)；"2.5"<br /> (defun HH:rtosr (RealNum / DIMZIN1 SHORTREAL1)<br />   (setq DimZin1 (getvar "DIMZIN"))<br />   (setvar "DIMZIN" 8)<br />   (setq ShortReal1 (rtos RealNum 2 8))<br />   (setvar "DIMZIN" DimZin1)<br />   ShortReal1<br /> )

挚友01

我想做的是将外部分数如EXCEL或其它dat的数据原封不动的调入CAD显示...

ll_j

fix的问题，我建议把数值加一个很小很小的数来取整，比如：(fix (+ a 1e-12))

newer

挚友01 发表于 2018-3-5 13:49

没意义，对于浮点数，EXCEL那边也是有设置显示精度保留位数的，你把EXCEL显示精度保留位数得到，然后CAD里面设置相同的。

挚友01

; 接收参数 实数 返回字符，精度
(defun vale_jd1(val1 / val1 val2 tem tem1 tem3 c)
(setq tem1 (- val1 (fix (+ val1 1e-12))))  
(prin1 tem1)(terpri)
(setq c 0 cc 10)
(while (/= (- (setq tem3 (* cc tem1))(fix (+ tem3 1e-12))) 0)
(prin1 tem3)(prin1 "　")(prin1 (fix tem3))(terpri)
   (setq c (+ c 1))
   (setq cc (* cc 10))
)
(rtos val1 2 c)
)

命令: (vale_jd1 55.01)
0.01
0.1"　"0
1.0"　"0
10.0"　"9
100.0"　"99
1000.0"　"999
10000.0"　"9999
100000.0"　"99999
1.0e+006"　"999999
1.0e+007"　"9999999
1.41007e+007"　"14100654
1.21575e+007"　"12157521
-7.2738e+006"　"-7273799
1.31613e+007"　"13161349
2.76447e+006"　"2764472
-1.53049e+007"　"-15304949
1.87492e+007"　"18749194
1.56933e+007"　"15693250
-1.48662e+007"　"-14866186
-1.98128e+007"　"-19812843
1.66199e+007"　"16619929
-5.5994e+006"　"-5599395
-1.30443e+007"　"-13044285
-1.59384e+006"　"-1593835
-1.59384e+007"　"-15938355
1.24151e+007"　"12415139
-4.69762e+006"　"-4697620
-4.02653e+006"　"-4026531
2.68435e+006"　"2684354
-1.61061e+007"　"-16106127
1.07374e+007"　"10737418
-2.14748e+007"　"-21474836
"55.01000000000000"


好象还不行....

挚友01

不是意义上的事，是为什么实现不了....

ll_j

你可以试着把1e-12改大一些，比如1e-8，或者1e-6，总之，要够小（不影响你的计算）也够大（起到进位的作用）。

挚友01

都不行，可不可以将CAD里面的浮点数的格式改一下，如单精度或双精度的
在CAD菜单-格式-长度的精度，系统变量什么？

newer

挚友01 发表于 2018-3-5 15:39

你不看贴吗？ 不是已经告诉你了


命令:
命令: (setvar "dimzin" 8)
8

命令: (setq a 123.123123123)
123.123

命令: (rtos a 2 100)
"123.123123123"

iLisp

你应该先确定excel中显示什么再来ACAD设置

挚友01

EXCEL中55.0，55.125, 55.123123   
cAD同样要显示"55.0"，"55.125","55.123123"

iLisp

按text读取

挚友01

我是要直接从EXCEL中读取，以文本方式读取也可以，但此类问题影响很多其它程序，根本的没解决。。。

挚友01

dimzin 只是消除数据后面的0,很多情况我们设计图纸要有精度显示的，如55.0或55.00,  "0"没有意义，但是对设计图纸是有意义的...