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

ryouss

轉他網下載的資料,原創者hoisee大大!在2012測試正常,如下參考 :


; s; ~9 f( r/ B   
# y- r; @/ D4 J  N; r( W
( T3 y  D$ L# O9 Z6 ?0 c0 M
GetSketchPointsExcel.rar (9.18 KB, 下载次数: 67)

2016-4-3 15:25 上传

点击文件名下载附件
2 b  f/ W: ^% X4 r, D- d
' [$ T" a- A. a0 A& O, ^



6 \  a+ X0 L7 a4 T+ m9 P) P; I

keilei001

好资料，多谢梁大分享。

FYWHB

好资料，多谢分享。

qiminger

好例程，谢谢分享~~

keilei001

我在2012SP5中运行出错，烦请梁大看看。
  Y" C  k% @& T" K5 F8 X- U在2016中测试正常，坐标的数值精度是小数点后两位，不知是否可以增加小数点到8位？

: B3 o$ w2 [! E$ `8 [! ^+ t/ ]% ~
% }( C) y4 M% z

keilei001

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

2016-4-5 15:42 上传

点击文件名下载附件

ryouss

5 z3 P! D4 H4 `6 v

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

9 J$ F7 B3 d6 c, I' q4 z附檔一樣,執行正常可能就是vba"設定引用項目"之問題吧!
改小數點為8,見如下
- S4 H5 X: w$ t( K9 v; I' {: Q& M

keilei001

ryouss 发表于 2016-4-5 19:51
附檔一樣,執行正常可能就是vba"設定引用項目"之問題吧!
1 ]  W& L& h& v1 d4 a( h. L改小數點為8,見如下

# ]5 ^* A0 b# [; J; H; A多谢梁大，可以把小数改为8位了。
+ j, d, J9 I( b" R; g* G% T3 j7 M

gt.adan

% l/ Q4 c: n! U; y% A$ f9 A沒記錯的話，原作是幾何論壇的hoisee大大，和悶大梁叔一樣都是編程高手~