linia 2 okręgi , makra zwcad


Public Sub Linia_z_okręgiem_solid_k_czarny()

Dim P1 As Variant

Dim p2 As Variant

P1 = ThisDocument.Utility.GetPoint(, "Wskaż początek linii:")

p2 = ThisDocument.Utility.GetPoint(P1, "Wskaż koniec linii:")

Dim lineObj As ZwcadLine

Set lineObj = ThisDocument.ModelSpace.AddLine(P1, p2)

Dim okrąg As ZwcadCircle

Set okrąg = ThisDocument.ModelSpace.AddCircle(p2, 15)

Set okrąg = ThisDocument.ModelSpace.AddCircle(P1, 15)

ThisDocument.Regen

'rysuje linie z 2 okręgami o środkach w początku i końcu linii

Dim Kreskowanie As ZwcadHatch

Dim ObjList(0 To 0) As ZwcadEntity

Set Kreskowanie = ThisDocument.ModelSpace.AddHatch(zcHatchPatternTypePreDefined, "Solid", False)

Set ObjList(0) = okrąg

Kreskowanie.AppendOuterLoop ObjList

Kreskowanie.Update

End Sub

'rysuje linie z 2 okręgami ,jeden zakreskowany solid

0x01 graphic



Wyszukiwarka

Podobne podstrony:
linia 2 okręgi czerwone, makra zwcad
linia 4 punkty 2 punkty jeden kolor, makra zwcad
linia 4 punkty 2 punkty jeden kolor, makra zwcad
kostka 3DSolid Box, makra zwcad
3 punkty na odcinku, makra zwcad
polilinia3D przez punkty, makra zwcad
polilinia 2D, makra zwcad
formularz , makra zwcad
kąt prosty z łukiem, makra zwcad
linia 2 okręgi kreskowanie solid
linia 2 okręgi czerwony i zielony
CIENKA LINIA
linia cisnien, STUDIA, Polibuda - semestr II, Hydraulika i hydrologia, laborki z hydro, laborki
LINIA LOSU, Chirologia
16. NIEBIESKA LINIA JAKO FORMA INTERWENCJI KRYZYSOWEJ, Pytania do licencjata kolegium nauczycielskie
pyt egz makra, Wykłady rachunkowość bankowość

więcej podobnych podstron