Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Come disegno un cerchio pieno au AutoCAD con visual basic?

347 views
Skip to first unread message

Anto Casu

unread,
Nov 21, 2009, 12:32:35 PM11/21/09
to
Salve a tutti,

mi potete dire come si fa a disegnare un cerchio pieno in AutoCAD con
comandi visual basic?
Riesco solo a disegnarlo non pieno:

Sub DisegnaCerchio()
Dim cerchio As AcadCircle
Dim centro(0 To 2) As Double
Dim raggio As Double
centro(0) = 2
centro(1) = 4
centro(2) = 0
raggio = 2
Set cerchio = ThisDrawing.ModelSpace.AddCircle(centro, raggio)
ThisDrawing.Application.ZoomAll
End Sub


Grazie!


Albe V°

unread,
Nov 22, 2009, 6:06:13 AM11/22/09
to
Anto Casu ha pensato forte :

Ma sai disegnare un cerchio pieno in Autocad, a mano e non da VB?

Alberto


Anto Casu

unread,
Nov 22, 2009, 2:05:16 PM11/22/09
to
"Albe V�" <vaccari...@hotmail.com> ha scritto nel messaggio
news:heb5vj$kqj$1...@tdi.cu.mi.it...

Disegno cerchio e poi riempio...


Tiscali

unread,
Nov 22, 2009, 5:32:30 PM11/22/09
to
Anto Casu ha scritto...

> Disegno cerchio e poi riempio...

Stessa cosa tramite macro!
Se c'� il registratore di Macro,
usalo e vedi subito la procedura!

--
Ciao Fede

By Chicco Production
http://bcp.freetools.it


Albe V°

unread,
Nov 23, 2009, 3:39:54 AM11/23/09
to
Anto Casu ha detto questo domenica :
> "Albe Vￜ" <vaccari...@hotmail.com> ha scritto nel messaggio

Appunto.

E se sei consapevole che non si puￜ fare monoliticamente a mano, perchￜ
credi sia possibile farlo programmaticamente?

Alberto


Anto Casu

unread,
Nov 23, 2009, 1:28:07 PM11/23/09
to

"Tiscali" <melis.fe...@tiscali.it> ha scritto nel messaggio
news:4b09bbfc$0$705$5fc...@news.tiscali.it...
Ci ho provato a registrare, ma come si fa a vedere le istruzioni che
registra?
A me AutoCAD 2009 crea un file con estensione actm che non riesco ad aprire!

Grazie, Antonio!


Anto Casu

unread,
Nov 23, 2009, 1:28:07 PM11/23/09
to

"Albe V�" <vaccari...@hotmail.com> ha scritto nel messaggio
news:hedhpa$83u$1...@tdi.cu.mi.it...

> Anto Casu ha detto questo domenica :
>> "Albe V�" <vaccari...@hotmail.com> ha scritto nel messaggio
>> news:heb5vj$kqj$1...@tdi.cu.mi.it...
>>> Anto Casu ha pensato forte :
>>>> Salve a tutti,
>>>>
>>>> mi potete dire come si fa a disegnare un cerchio pieno in AutoCAD con
>>>> comandi visual basic?
>>>> Riesco solo a disegnarlo non pieno:
>>>>
>>>> Sub DisegnaCerchio()
>>>> Dim cerchio As AcadCircle
>>>> Dim centro(0 To 2) As Double
>>>> Dim raggio As Double
>>>> centro(0) = 2
>>>> centro(1) = 4
>>>> centro(2) = 0
>>>> raggio = 2
>>>> Set cerchio = ThisDrawing.ModelSpace.AddCircle(centro, raggio)
>>>> ThisDrawing.Application.ZoomAll
>>>> End Sub
>>>
>>> Ma sai disegnare un cerchio pieno in Autocad, a mano e non da VB?
>>>
>>
>> Disegno cerchio e poi riempio...
>
> Appunto.
>
> E se sei consapevole che non si pu� fare monoliticamente a mano, perch�
> credi sia possibile farlo programmaticamente?
>
> Alberto
>
Io non conosco tutti gli oggetti che si possono usare in visual basic con
AutoCAD, chiedevo a qualcuno se mi sa dare qualche dritta, magari c'�
l'oggetto per disegnare l'anello e allora basta disegnare anello con
diametro interno 0 e diametro esterno a piacimento. Magari c'� la propriet�
dell'oggetto cerchio per farlo pieno!Che ne so!Io provo a chiedere!


Albe V°

unread,
Nov 23, 2009, 5:31:06 PM11/23/09
to
Il 23/11/2009, Anto Casu ha detto :
> "Albe Vￜ" <vaccari...@hotmail.com> ha scritto nel messaggio
> news:hedhpa$83u$1...@tdi.cu.mi.it...
>> Anto Casu ha detto questo domenica :
>>> "Albe Vￜ" <vaccari...@hotmail.com> ha scritto nel messaggio
>>> news:heb5vj$kqj$1...@tdi.cu.mi.it...
>>>> Anto Casu ha pensato forte :
>>>>> Salve a tutti,
>>>>>
>>>>> mi potete dire come si fa a disegnare un cerchio pieno in AutoCAD con
>>>>> comandi visual basic?
>>>>> Riesco solo a disegnarlo non pieno:
>>>>>
>>>>> Sub DisegnaCerchio()
>>>>> Dim cerchio As AcadCircle
>>>>> Dim centro(0 To 2) As Double
>>>>> Dim raggio As Double
>>>>> centro(0) = 2
>>>>> centro(1) = 4
>>>>> centro(2) = 0
>>>>> raggio = 2
>>>>> Set cerchio = ThisDrawing.ModelSpace.AddCircle(centro, raggio)
>>>>> ThisDrawing.Application.ZoomAll
>>>>> End Sub
>>>>
>>>> Ma sai disegnare un cerchio pieno in Autocad, a mano e non da VB?
>>>>
>>>
>>> Disegno cerchio e poi riempio...
>>
>> Appunto.
>>
>> E se sei consapevole che non si puￜ fare monoliticamente a mano, perchￜ
>> credi sia possibile farlo programmaticamente?
>>
>> Alberto
>>
> Io non conosco tutti gli oggetti che si possono usare in visual basic con
> AutoCAD, chiedevo a qualcuno se mi sa dare qualche dritta, magari c'ￜ
> l'oggetto per disegnare l'anello e allora basta disegnare anello con diametro
> interno 0 e diametro esterno a piacimento. Magari c'ￜ la proprietￜ
> dell'oggetto cerchio per farlo pieno!Che ne so!Io provo a chiedere!

Non hai capito.

Se vuoi pilotare Autocad da VB, prima devi sapere come si fa una certa
cosa in Autocad, e POI trovi come la si fa da VB...

E siccome a me risulta che in Autocad un cerchio pieno non si possa
fare (ma potrei sbagliarmi), mi interessava sapere come si facesse.

Alberto


SB

unread,
Nov 24, 2009, 3:23:05 AM11/24/09
to
Il giorno Mon, 23 Nov 2009 18:28:07 GMT, "Anto Casu" <anto...@libero.it> ha
scritto:

>
>Io non conosco tutti gli oggetti che si possono usare in visual basic con
>AutoCAD, chiedevo a qualcuno se mi sa dare qualche dritta, magari c'�
>l'oggetto per disegnare l'anello e allora basta disegnare anello con
>diametro interno 0 e diametro esterno a piacimento. Magari c'� la propriet�
>dell'oggetto cerchio per farlo pieno!Che ne so!Io provo a chiedere!


Autocad usa formati vettoriali, quindi non si pu� fare il riempimento come fosse
una bitmap.
Quello che fa in pratica � mettere il tratteggio, che se � molto fine sembra un
riempimento ma se ingrandisci molto sar� una sempre una linea.

Il ng adatto per chiedere di autocad �
it.comp.software.cad


--
ciao
Stefano

0 new messages