iCAx开思网

标题: 好不容易找到个可以导出曲线控制点的宏，求修改导出的小数位数为小数点后5位 [打印本页]

---

作者: gdzsh    时间: 2018-5-17 10:51
标题: 好不容易找到个可以导出曲线控制点的宏，求修改导出的小数位数为小数点后5位

1. <div class="blockcode"><blockquote>代码粘贴不了哟，该发附件

复制代码

附件中导出曲线控制点的X,Y,Z点的小数精度太低，只有2位数，我希望能多几位，但是不知道在哪里修改，求指点

---

作者: qiminger    时间: 2018-5-17 13:42

1.         objWorkSheet.Cells(i + 2, 1) = Round(sketchPoints(i).X * 1000, 2)
   
2.         objWorkSheet.Cells(i + 2, 2) = Round(sketchPoints(i).Y * 1000, 2)
   
3.         objWorkSheet.Cells(i + 2, 3) = Round(sketchPoints(i).Z * 1000, 2)

复制代码

Round(sketchPoints(i).Z * 1000, 2)中的，2就是指保留小数点后2位，改为，5就是保留小数点后5位

1.         objWorkSheet.Cells(i + 2, 1) = Round(sketchPoints(i).X * 1000, 5)
   
2.         objWorkSheet.Cells(i + 2, 2) = Round(sketchPoints(i).Y * 1000, 5)
   
3.         objWorkSheet.Cells(i + 2, 3) = Round(sketchPoints(i).Z * 1000, 5)

复制代码

---

作者: gdzsh    时间: 2018-5-19 15:12

qiminger 发表于 2018-5-17 13:42
Round(sketchPoints(i).Z * 1000, 2)中的，2就是指保留小数点后2位，改为，5就是保留小数点后5 ...

非常感谢，谢谢你了，祝福你万事如意，520快乐如意

---

欢迎光临 iCAx开思网 (https://www.icax.org/)

Powered by Discuz! X3.3