|
|
发表于 2015-12-26 22:09:41
|
显示全部楼层
来自: 中国浙江嘉兴
SketchValue = InputBox("鍵入草圖尺寸值", "草圖尺寸單位 mm", 10) '鍵入尺寸值/ l, ]7 }6 ?( B" Y5 u
( R1 m: [5 Y7 P2 J# H* ~( D0 P
Set myDimension = Part.Parameter(SketchName) '對應草圖名稱
; g' m' ]. R4 e n: `
7 C! e, X+ U3 }$ }2 WmyDimension.SystemValue = SketchValue/1000 '寫入草圖尺寸 |
|