|
|
发表于 2015-12-26 22:10:27
|
显示全部楼层
来自: 中国浙江嘉兴
: `) h+ ?8 A& S9 F6 I6 K% @
SketchValue = InputBox("鍵入草圖尺寸值", "草圖尺寸單位 mm", 10) '鍵入尺寸值" }8 I" D( |# U! |9 P. _. Z* y
- O0 E4 |5 x* G, U
Set myDimension = Part.Parameter(SketchName) '對應草圖名稱$ l, d5 g* F6 I( T# l
O) E# L- X0 U% j
myDimension.SystemValue = SketchValue/1000 '寫入草圖尺寸 |
|