有关solidworks二次开发的问题

stone0030

在草图中，想标注一条直线，但是这样就无法自动运行了
. ~: c; D/ L2 f1 x1 ~Set Annotation = Part.AddDimension2(0, 0.1, 0)
6 P: e/ X/ h6 s) @( [; E2 ^宏运行到这一步就会自动弹出一个标注对话框，要求确定尺寸，如何解决
或者怎么弄可以让草图全定义。
请高手帮助

xiaoche525

swk.SetUserPreferenceToggle(swUserPreferenceToggle_e.swInputDimValOnCreate, False)
5 P# P# h: q0 I, d! ]: w将对话框关掉

ryouss

SketchValue = InputBox("鍵入草圖尺寸值", "草圖尺寸單位 mm", 10) '鍵入尺寸值
6 v# @' s( P- b1 E0 Q- w
Set myDimension = Part.Parameter(SketchName) '對應草圖名稱
2 y& {* g3 v, N( o0 L+ _
# R$ O% J  d3 @" }* Q& R; VmyDimension.SystemValue = SketchValue/1000 '寫入草圖尺寸

ryouss

# J/ l6 x8 O+ w  Z) Y  j3 NSketchValue = InputBox("鍵入草圖尺寸值", "草圖尺寸單位 mm", 10) '鍵入尺寸值
; O6 `& _' N6 V" }  d
0 I! J" [+ n& v. ^, x/ v9 [9 P0 f5 iSet myDimension = Part.Parameter(SketchName) '對應草圖名稱
2 p, J! I' ?" u& P5 x1 S1 N& E) x9 N
myDimension.SystemValue = SketchValue/1000 '寫入草圖尺寸