|
piratabobo
Utente Normale
69 Messaggi |
 Inserito il - 28/07/2006 : 11:39:48
|
salve ho un problema inerente la programmazione di VB per autocad,
ho scritto il seguente codice seguendo le indicazione del ghiro ma non riesco ad ottenere nessun risultato, il codice è il seguente:
Dim autocad As AcadApplication
Set autocad = GetObject(, "Autocad.application")
If Err.Number <> 0 Then AutocadNotRunning = True
Err.Clear
If autocad.Caption = "" Then
Set autocad = CreateObject("C:\autocad 2004\acad.exe")
End If
Dim linea As AcadLine
Dim P1(0 To 2) As Double
Dim P2(0 To 2) As Double
P1(0) = 0: P1(1) = 0: P1(2) = 0
P2(0) = 10: P2(1) = 10: P2(2) = 0
Set linea = AutoCAD.ActiveDocument.ModelSpace.AddLine(P1,P2)
linea.Update
questo codice inserito un un pulsante e fatto girare mentre autocad è aperto non disegna nessuna linea, mentre in teoria dovrebbe disegnare una linea da 0,0 a 10,10 cosa che non accade.
Volevo chiedere dove sta l'errore?
Grazie anticipatamente.
|
|
|
|
problema in VB
Inserito il - 29/07/2006 : 15:33:51
