solidworks的宏程序怎么定義單位?

jy00304574

        


        今天用solidworks的宏程序在3D草圖里面輸入了一組坐標點的數據，運行宏后發現其數值放大了1000倍，后來從新操作錄制了一條新的測試的宏，發現數值也是1000倍的差距，是不是宏程序里面的數值默認是米為單位？
        那么問題來了？怎么在宏程序里面把單位設置為毫米啊？

寂靜天花板

你不如上傳宏程序，來證明你的所言非虛

jy00304574

寂靜天花板 發表于 2015-5-22 15:37
5 w9 G+ w) i0 s( r' r你不如上傳宏程序，來證明你的所言非虛

' ******************************************************************************
' C:\Users\Administrator\AppData\Local\Temp\swx8008\Macro1.swb - macro recorded on 05/22/15 by Administrator
' ******************************************************************************
Dim swApp As Object

Dim Part As Object
Dim boolstatus As Boolean
% U! U3 k. z/ RDim longstatus As Long, longwarnings As Long

: P8 d5 n/ }% c9 f: M( h- hSub main()

Set swApp = _
Application.SldWorks
  n8 {3 _6 K+ w, u; M
Set Part = swApp.ActiveDoc
Dim skPoint As Object
* B9 n& `: J, q4 d5 v+ n$ FSet skPoint = Part.SketchManager.CreatePoint(11111.11111, 11111.11111, 11111.11111)
Set skPoint = Part.SketchManager.CreatePoint(22222.22222, 22222.22222, 22222.22222)
Set skPoint = Part.SketchManager.CreatePoint(33333.33333, 33333.33333, 33333.33333)
Set skPoint = Part.SketchManager.CreatePoint(44444.44444, 44444.44444, 44444.44444)
9 S3 \, h5 ^- u# z4 r# O  oEnd Sub
* H) f/ p) C, r- h" S( \

5 F5 U1 @1 O& I4 i7 {# g-------------------------------以上，進入3D草圖后執行這個宏程序，結合EXCEL就能批量描點了，只是發現單位有問題，1000倍差距，不知道是哪里出了問題
' J% [6 g) \  C/ Q' u5 q
! l& t% n- Q* W- i2 H. d, ]

ryouss

jy00304574 發表于 2015-5-22 15:58
' ******************************************************************************
2 }- S8 F. y: d2 ~6 |' C:\Users\Admin ...

宏里所執行的尺寸值之單位皆內定為 " 米",
所以尺寸值原為 "mm" 者,在宏里皆要 除以 1000.

jy00304574

ryouss 發表于 2015-5-22 16:17
宏里所執行的尺寸值之單位皆內定為 " 米",
5 `+ s$ F: n! R& C) G5 ]2 N5 H/ Q- u7 d所以尺寸值原為 "mm" 者,在宏里皆要 除以 1000.

2 u( y* n$ F1 e- v2 H5 c) N所以說宏程序里面是沒辦法設定單位的了？
; {- {3 \2 {6 }

ryouss

jy00304574 發表于 2015-5-22 16:18
所以說宏程序里面是沒辦法設定單位的了？

$ C% u# @) a. D/ r是的,內定死的,改不了!(對一般使用者來說,若碰到大神動用.DLL,就不知道能改否)

jy00304574

ryouss 發表于 2015-5-22 16:25
是的,內定死的,改不了!(對一般使用者來說,若碰到大神動用.DLL,就不知道能改否)

多謝了
/ q! J6 s. Y3 B