取出3D曲線的構成點存入EXCEL檔-宏的應用

ryouss

1 P" e" ^7 Y8 G" r$ E3 Y 轉他網下載的資料,原創者hoisee大大!在2012測試正常,如下參考 :


  |, G, j$ G0 A- C, e0 Y6 M   
  p3 o2 k3 m3 @6 U* [( @* @
4 r: G( Y7 D/ E5 a6 b/ E! l
) c2 B4 |3 v! h GetSketchPointsExcel.rar (9.18 KB, 下载次数: 67)

2016-4-3 15:25 上传

点击文件名下载附件




# F4 V: Y& L- ^" h2 b* ]- A: n3 Q3 C

$ R$ J5 y) K- D* F

keilei001

好资料，多谢梁大分享。

FYWHB

好资料，多谢分享。

qiminger

好例程，谢谢分享~~

keilei001

我在2012SP5中运行出错，烦请梁大看看。
在2016中测试正常，坐标的数值精度是小数点后两位，不知是否可以增加小数点到8位？
$ ^- Q& q; E  L* J% ~. i( n

! N' c3 X: g4 _9 h# {' g4 }

keilei001

找了一下我以前下载过的资料，发现也是有这个宏，在2012中用我之前下载的就没问题。
我对宏完全不懂，我只发现两个文件大小不一样，请梁大看看这个有什么不同。
GetSketchPointsExcel.rar (11.99 KB, 下载次数: 13)

2016-4-5 15:42 上传

点击文件名下载附件

ryouss

# n/ h# ^% e. b- ^+ p

keilei001 发表于 2016-4-5 15:43
& V( X4 C- {; }4 x找了一下我以前下载过的资料，发现也是有这个宏，在2012中用我之前下载的就没问题。
我对宏完全不懂，我只 ...

7 R" i$ F! Z2 M3 c+ k( c附檔一樣,執行正常可能就是vba"設定引用項目"之問題吧!
改小數點為8,見如下
7 e- h" n6 d- m. Z3 n# e
5 u5 v& _3 Z5 s& k0 Z# r! B! @
6 x# ~# _$ c' Q* F$ t+ c1 ~
2 Z/ F: Z# x! Y5 p3 ?& F

keilei001

ryouss 发表于 2016-4-5 19:51
. ?" m" t' X6 P& i" `5 U& i附檔一樣,執行正常可能就是vba"設定引用項目"之問題吧!
改小數點為8,見如下

- x  Y- H1 L/ r多谢梁大，可以把小数改为8位了。

gt.adan

. R0 b) S* u$ O
沒記錯的話，原作是幾何論壇的hoisee大大，和悶大梁叔一樣都是編程高手~