|
Private Sub Command4_Click()
Dim acadApp As Object
Set acadApp = CreateObject("AutoCAD.Application")
acadApp.Application.Visible = True
'' 2) Open desired file
Dim acadDoc As Object
Set acadDoc = acadApp.Documents.Open(App.Path & "\DRAWING.dwg")
''3) Do whatever you need to do with the drawing
acadApp.Application.Visible = True
LA.Caption = 625
LB.Caption = 198
LC.Caption = 250
LD.Caption = 99
LE.Caption = 292
LF.Caption = 244
LG.Caption = 198
LH.Caption = 20
LJ.Caption = 25
LK.Caption = 31
LM.Caption = 83
LN.Caption = 176
LP.Caption = 52
LQ.Caption = 43
LR.Caption = 20
SendKeys "% X~", True
SendKeys "{ESC}"
SendKeys "Z A~", True
SendKeys "{ESC}"
Dim SENDTEXT As String
SENDTEXT = _
"TEXT" & vbCrLf & "115.690,221.420" & vbCrLf & "0" & vbCrLf & Trim(LA) & vbCrLf & _
"TEXT" & vbCrLf & "116.529,72.694" & vbCrLf & "0" & vbCrLf & Trim(LA) & vbCrLf & _
"TEXT" & vbCrLf & "335.918,228.652" & vbCrLf & "0" & vbCrLf & Trim(LA) & vbCrLf & _
"TEXT" & vbCrLf & "335.663,78.578" & vbCrLf & "0" & vbCrLf & Trim(LA) & vbCrLf & _
"TEXT" & vbCrLf & "94.971,335.940" & vbCrLf & "0" & vbCrLf & Trim(LB) & vbCrLf & _
"TEXT" & vbCrLf & "137.501,335.940" & vbCrLf & "0" & vbCrLf & Trim(LB) & vbCrLf & _
"TEXT" & vbCrLf & "94.971,169.302" & vbCrLf & "0" & vbCrLf & Trim(LB) & vbCrLf & _
"TEXT" & vbCrLf & "135.121,168.843" & vbCrLf & "0" & vbCrLf & Trim(LB) & vbCrLf & _
"TEXT" & vbCrLf & "313.159,331.180" & vbCrLf & "0" & vbCrLf & Trim(LB) & vbCrLf & _
"TEXT" & vbCrLf & "356.411,330.998" & vbCrLf & "0" & vbCrLf & Trim(LB) & vbCrLf & _
"TEXT" & vbCrLf & "144.710,294.382" & vbCrLf & "0" & vbCrLf & Trim(LC) & vbCrLf & _
"TEXT" & vbCrLf & "143.321,130.931" & vbCrLf & "0" & vbCrLf & Trim(LC) & vbCrLf & _
"TEXT" & vbCrLf & "105.957,351.938" & vbCrLf & "0" & vbCrLf & Trim(LD) & vbCrLf & _
"TEXT" & vbCrLf & "126.172,351.938" & vbCrLf & "0" & vbCrLf & Trim(LD) & vbCrLf & _
"TEXT" & vbCrLf & "106.241,323.035" & vbCrLf & "0" & vbCrLf & Trim(LD) & vbCrLf & _
"TEXT" & vbCrLf & "126.456,323.035" & vbCrLf & "0" & vbCrLf & Trim(LD) & vbCrLf & _
"TEXT" & vbCrLf & "85.359,236.611" & vbCrLf & "0" & vbCrLf & Trim(LE) & vbCrLf & _
"TEXT" & vbCrLf & "89.668,282.934" & vbCrLf & "0" & vbCrLf & Trim(LF) & vbCrLf & _
"TEXT" & vbCrLf & "89.668,127.615" & vbCrLf & "0" & vbCrLf & Trim(LF) & vbCrLf & _
"TEXT" & vbCrLf & "476.188,180.004" & vbCrLf & "0" & vbCrLf & Trim(LK) & vbCrLf & _
"TEXT" & vbCrLf & "519.110,179.480" & vbCrLf & "0" & vbCrLf & Trim(LL) & vbCrLf & _
"TEXT" & vbCrLf & "563.671,179.438" & vbCrLf & "0" & vbCrLf & Trim(LM) & vbCrLf
Clipboard.Clear
With acadDoc
Clipboard.SetText SENDTEXT
End With
'4) Close the drawing
' acadDoc.Close True 'if you want the file to be saved or
' acadDoc.Close False 'close the file without saving
'5) Close AutoCAD
' acadApp.Quit
'6) Clean up
' Set acadApp = Nothing
' Set acadDoc = Nothing
End Sub
|
| 