|
Тема |
Re: за сравнение [re: StSt] |
|
Автор | пporpaмиcт (Нерегистриран) | |
Публикувано | 05.06.06 14:43 |
|
|
Ето я същата функция написана по твоя начин:
Public Sub ChangeDimmensions()
Dim dScale As Double
dScale = ThisDrawing.GetVariable("DIMSCALE")
If direction Then
If dScale < 1 Then
dScale = dScale * 2
Else
dScale = dScale + 1
End If
Else
If dScale > 2 Then
dScale = dScale - 1
Else
dScale = dScale / 2
End If
End If
ThisDrawing.SetVariable "DIMSCALE", dScale
ThisDrawing.SendCommand "-dimstyle" & vbCr & "a" & vbCr & "all" & vbCr & vbCr
End Sub
Ako се използва функцията IIf както е направил колегата по-горе ще стане още по-кратка.
|
| |
|
|
|