| V I S U A L I Z Z A D I S C U S S I O N E |
| piratabobo |
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. |
| 2 U L T I M E R I S P O S T E (in alto le più recenti) |
| piratabobo |
Inserito il - 30/07/2006 : 10:46:00
hai perfettamente ragione il tutto funziona perfettamente.
Grazie di tutto. |
| ghiro |
Inserito il - 29/07/2006 : 15:33:51
Ciao pirata,
scusa ma io ho provato ad eseguire la parte del codice che traccia la linea e mi funziona perfettamente.
Non è che la disegni su di un foglio grande e non riesci a vederla perchè rispetto al disegno è piccola?
Ciao! |
|
|
|
|
