你应该重做你的项目或给所有的模块代码。。。
- Private Sub GetPlais_Click()
-
- Dim tmpnt1() As Variant
-
- Dim tmpPnt1 As Variant
-
- tmpnt2 As Variant
-
- Dim lole(0 To 2) As Double, upri(0 To 2) As Double
- Dim returnobj As AcadObject
- FrmGrid3.Hide
- On Error GoTo Eline
- ThisDrawing.Utility.GetEntity returnobj, tmpPnt1, "ÅðÝëåîå ôï ViewPort ðïõ èá äçìéïõñãçèåß ï êÜíáâïò!"
- If TypeOf returnobj Is IAcadPViewport Then
- Set viewportObj = returnobj
- viewportObj.UCSIconOn = True
- viewportObj.UCSIconAtOrigin = True
- viewportObj.Display True
- Scal = 1000 / viewportObj.CustomScale
- Else
- MsgBox "ÄÝí åðÝëåîåò ViewPort!!!", vbOKOnly, "Ó÷åäßáóç êáíÜâïõ"
- FrmGrid3.Show
- Exit Sub
- End If
-
- lole(0) = viewportObj.Center(0) - viewportObj.Width / 2
- lole(1) = viewportObj.Center(1) - viewportObj.Height / 2
-
- upri(0) = viewportObj.Center(0) + viewportObj.Width / 2
- upri(1) = viewportObj.Center(1) + viewportObj.Height / 2
-
-
- PntUpLPap(0) = lole(0): PntDoLPap(0) = lole(0): PntUpRPap(0) = upri(0): PntDoRPap(0) = upri(0)
- PntUpLPap(1) = upri(1): PntDoLPap(1) = lole(1): PntUpRPap(1) = upri(1): PntDoRPap(1) = lole(1)
-
- tmpnt1 = ThisDrawing.Utility.TranslateCoordinates(lole, acPaperSpaceDCS, acDisplayDCS, False)
- tmpnt1 = ThisDrawing.Utility.TranslateCoordinates(tmpnt1, acDisplayDCS, acWorld, False)
-
- TxtDoLX.Text = Format(tmpnt1(0), "0.##0"): PntDoLmod(0) = tmpnt1(0)
- TxtDoLY.Text = Format(tmpnt1(1), "0.##0"): PntDoLmod(1) = tmpnt1(1)
-
- tmpnt1 = ThisDrawing.Utility.TranslateCoordinates(upri, acPaperSpaceDCS, acDisplayDCS, False)
- tmpnt1 = ThisDrawing.Utility.TranslateCoordinates(tmpnt1, acDisplayDCS, acWorld, False)
-
- TxtUpRX.Text = Format(tmpnt1(0), "0.##0"): PntUpRmod(0) = tmpnt1(0)
- TxtUpRY.Text = Format(tmpnt1(1), "0.##0"): PntUpRmod(1) = tmpnt1(1)
-
-
- tmpnt1(0) = lole(0)
- tmpnt1(1) = upri(1)
-
- tmpnt1 = ThisDrawing.Utility.TranslateCoordinates(tmpnt1, acPaperSpaceDCS, acDisplayDCS, False)
- tmpnt1 = ThisDrawing.Utility.TranslateCoordinates(tmpnt1, acDisplayDCS, acWorld, False)
-
- TxtUpLX.Text = Format(tmpnt1(0), "0.##0"): PntUpLmod(0) = tmpnt1(0)
- TxtUpLY.Text = Format(tmpnt1(1), "0.##0"): PntUpLmod(1) = tmpnt1(1)
-
- tmpnt1(0) = upri(0)
- tmpnt1(1) = lole(1)
-
- tmpnt1 = ThisDrawing.Utility.TranslateCoordinates(tmpnt1, acPaperSpaceDCS, acDisplayDCS, False)
- tmpnt1 = ThisDrawing.Utility.TranslateCoordinates(tmpnt1, acDisplayDCS, acWorld, False)
-
- TxtDoRX.Text = Format(tmpnt1(0), "0.##0"): PntDoRmod(1) = tmpnt1(0)
- TxtDoRY.Text = Format(tmpnt1(1), "0.##0"): PntDoRmod(1) = tmpnt1(1)
- Eline:
- FrmGrid3.Show
- End Sub
- I can 't understand the problem!!!!
|