Nota: Devi essere registrato per poter inserire un messaggio.
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
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!
|
|
