凯文,
不确定这是否会有帮助,但
我喜欢用这样的东西:
- With ThisDrawing.Utility
- .InitializeUserInput 1, "4 3 2"
- strPartSize = .GetKeyword(vbCr & "Pipe Sizes: (4x4x[4]/4x4x[3]/4x4x[2]): ")
- End With
- Select Case strPartSize
- Case Is = "4"
- strPartSize = "4x4x4"
- Case Is = "3"
- strPartSize = "4x4x3"
- Case Is = "2"
- strPartSize = "4x4x2"
- End Select
~'J'~ |