|
|
发表于 2015-12-26 22:10:27
|
显示全部楼层
来自: 中国浙江嘉兴
) I Y D0 C5 F
SketchValue = InputBox("鍵入草圖尺寸值", "草圖尺寸單位 mm", 10) '鍵入尺寸值! g8 g1 h, U; w+ `& ~
- `4 K3 A" E% e9 {. G
Set myDimension = Part.Parameter(SketchName) '對應草圖名稱
0 i7 ~, y/ U! v; T7 M$ U0 i. C* X8 H% ~
myDimension.SystemValue = SketchValue/1000 '寫入草圖尺寸 |
|