vb6.0+sw2013 自動畫圓住問題

sam12333

----------------------------------------------------------------------------------------
Private Sub Command1_Click()

Set swapp = CreateObject("SldWorks.Application")
swapp.Visible (True)
'此處函數為開啟sw程序

End Sub


Private Sub Command3_Click()
    Dim swapp As Object
    Dim part As Object
    Dim boolstatus As Boolean
   
    Set swapp = CreateObject("SldWorks.Application")
    Set part = swapp.NewPart()
    swapp.Visible = True
  
    part.InsertSketch2 True
    boolstatus = part.Extension.SelectByID("前?", "PLANE", 0, 0, 0, False, 0, Nothing)
    part.InsertSketch2 True
    part.CreateCircle 0, 0, 0, 0, Val(Text1.Text) / 2000, 0
   


   
    part.ShowNamedView2 "*上下二等角??", 8
    part.FeatureManager.FeatureExtrusion True, False, False, 0, 0, Val(Text2.Text) / 1000, 0.01, False, False, False, False, 0, 0, False, False, False, False, 1, 1, 1
   

End Sub
------------------------------------------------------------------------------------------------------------------------
我想用vb設計一個自動畫圓柱的程式,以上是我的程式碼

問題點:
我輸入尺寸為3(含)以下的直徑  SW畫不出來
直徑4以上就正常...
請懂得大大幫幫忙 搞了我好久 爬文也找不到

紅色那行Val(Text1.Text) / 2000  
Text1是我輸入直徑的欄位 但除了2000就會有我說的那個問題

hoisee

先把 Val(Text1.Text) / 2000 指定給一個變數
如 x = Val(Text1.Text) / 2000
再用單步除錯去看看 x 值
如果是 <0.0001 , 就畫不出來

sam12333

hoisee 发表于 2014/1/21 19:08
先把 Val(Text1.Text) / 2000 指定給一個變數
如 x = Val(Text1.Text) / 2000
再用單步除錯去看看 x 值

非常感謝hoisee大的回復

雖然這問題我已經解決了

我把它改成""  myDimension.SystemValue = XXX.Text /1000  "" 就可以了

小小誠

sam12333 發表於 2014/1/25 18:29
非常感謝hoisee大的回復

雖然這問題我已經解決了

嗯嗯~ 我也是這樣寫我SW VBA的，不知道還有沒有更好寫法~
不過~ 其實這樣也沒礙到什麼就是了

gene0515

可以把他假設為一個變數X (單位公尺)

然後轉換成公分B 不用除以1000 用以下方法

B = converttometers(X)

程式寫完最下面再加入下列程式碼

Private Function converttometers(milimeters As Double)

converttometers = milimeters / 1000

End Function