Sasek

Witam. Mam taki problem z dwoma programikami: 1.Program powinien wybierać okręgi o promieniu 5, niestety tylko je podświetla ale nie utrzymuje zaznaczenia :(. Why? Sub wybieranie() Dim ssh As ZwcadSelectionSet Dim Ftyp(1) As Integer Dim Fdat(1) As Variant Dim F1, F2 As Variant Ftyp(0) = 0: Fdat(0) = "CIRCLE" Ftyp(1) = 40: Fdat(1) = 5# Set ssh = Thisdocument.SelectionSets.Add("ssh") F1 = Ftyp F2 = Fdat ssh.Delete ssh.Select zcSelectionSetAll, , , F1, F2 ssh.Highlight True End Sub 2. Drugi program miał tworzyć warstwę tak jak normalnie w menadżerze (kopiując style linii, kolor itp.). Kod wygląda następująco: Sub war() Dim k As String Dim gl As String Dim sl As String Dim d As String Dim z As String Dim zab As String Dim n As String Dim zero As ZwcadLayer Dim jeden As ZwcadLayer Set zero = Thisdocument.Layers("0") k = zero.Color gl = zero.LineWeight sl = zero.Linetype d = zero.Plottable z = zero.Freeze zab = zero.Lock n = zero.LayerOn Set jeden = Thisdocument.Layers.Add("1") jeden.Color = k jeden.LineWeight = gl jeden.Linetype = sl jeden.Plottable = d jeden.Freeze = z jeden.Lock = zab jeden.LayerOn = n Thisdocument.Regen End Sub Czy jest jakiś krótszy sposób odczytania danych z istniejącej warstwy albo innego obiektu? I dlaczego jak mam zablokowaną, zamrożoną lub niewidoczna warstwę to wyskakuje błąd? Z góry dzięki za pomoc. Pozdrawiam

Witam wszystkich. Mam taki mały problem :). Chciałem zapoznać się trochę z VBA, ale nigdy nie pisałem żadnych programów/makr. W necie znalazłem tutorial pod autocada i przepisałem z niego program ale niestety wyskakuje mi błąd "Invalid procedure call or argument (Error 5)" . Dotyczy on linii "Set newpline = Thisdocument.ModelSpace.AddLightWeightPolyline(pkt)". Z góry dzieki za pomoc. Pozdrawiam Sub pol() Dim h As Double Dim s As Double Dim t As Double Dim g As Double Dim r As Double Dim r1 As Double Dim pt1 As Variant Dim pkt(0 To 17) As Variant pt1 = Thisdocument.Utility.GetPoint(, vbCrLf & "Punkt wstawienia:") h = 60 s = 40 t = 6 g = 6 r = 6 r1 = 3 Dim newpline As ZwcadLWPolyline pkt(0) = pt1(0) pkt(1) = pt1(1) pkt(2) = pkt(0) + s pkt(3) = pkt(1) pkt(4) = pkt(2) pkt(5) = pkt(3) + (t - r1) pkt(6) = pkt(4) - r1 pkt(7) = pkt(1) + t pkt(8) = pkt(0) + g + r pkt(9) = pkt(1) + t pkt(10) = pkt(8) - r pkt(11) = pkt(9) + r pkt(12) = pkt(10) pkt(13) = pkt(1) + h - r1 pkt(14) = pkt(0) + g - r1 pkt(15) = pkt(1) + h pkt(16) = pkt(0) pkt(17) = pkt(15) Set newpline = Thisdocument.ModelSpace.AddLightWeightPolyline(pkt) newpline.Closed = True newpline.Update End Sub Link do źródła: http://www.is.pw.edu.pl/plik/290/VBA%20dla%20AutoCAD.pdf Numer kompilacji: "2011.10.30(17176)"[/code]