VBA.Mania

vbamania.pl

Dziś jest piątek, 17 maja 2024 roku.

Ustaw jako stronę startową

Ulubione

Napisz

Powrót

Powrót do serwisu

Regulamin

RSS

	tytuł wątku:
Wątki dyskusji	AutoCAD - przeniesienie elem. na poziom "0" otwarty rozpoczął: tommy postów: 5

napisał: tommy postów: 42 umieszczony: 5 grudnia 2007 23:38
	Wielkie dzięki adminie :) Od razu lepiej :] pozdr

napisał: admin postów: 613 umieszczony: 5 grudnia 2007 13:13 edytowany: 5 grudnia 2007 13:14
	Sub SEtZ0(oEl As AcadEntity) If oEl.EntityType = 7 Then Dim oElDef As AcadBlock Set oElDef = ThisDrawing.Blocks(oEl.Name) For Each oEl In oElDef SEtZ0 oEl Next oEl Else dSPoint = oEl.StartPoint: dSPoint(2) = 0 dEPoint = oEl.EndPoint: dEPoint(2) = 0 oEl.StartPoint = dSPoint oEl.EndPoint = dEPoint End If End Sub Sub Start() Dim oEl As AcadEntity For Each oEl In ThisDrawing.ModelSpace SEtZ0 oEl Next oEl End Sub

napisał: tommy postów: 42 umieszczony: 4 grudnia 2007 20:47
	No ba, jeśli mogę prosić :) Będę niezmiernie wdzięczny. Pozdr Tommy

napisał: admin postów: 613 umieszczony: 4 grudnia 2007 18:27 edytowany: 4 grudnia 2007 18:31
	Temat znany:) Musisz w pętli przenosić wszystkie elementy danego bloku na współrzędną Z=0 Jeśli bieżącym elementem będzie blok (czyli mamy do czynienia z blokiem w bloku) to wywołujesz tę procedurę rekurencyjnie. I już:) Chcesz gotowy programik? Cytat: Witam Pracuje w ACAD-zie na rysunkach exportowanych prawdopodobnie z Archicada. Problem jest taki, że wszystkie elementy znajdują się na różnych poziomach Z (a nawet konce jednej linii są na różnych poziomach), tak więc praca na takim pliku jest ciężka:/ Chciałbym żeby za pomocą makra przenosiło na poziom z=0, generalnie problem sprawiają mi bloki wewnątrz których są inne bloki. Blok główny przeniesie mi na poziom 0 ale tych wewnętrznych nie chce, tylko muszę ręcznie edytować blok. Czy ktoś wie jak mógłbym sobie z tym poradzić ?? Pozdrawiam

napisał: tommy postów: 42 umieszczony: 4 grudnia 2007 10:28
	Witam Pracuje w ACAD-zie na rysunkach exportowanych prawdopodobnie z Archicada. Problem jest taki, że wszystkie elementy znajdują się na różnych poziomach Z (a nawet konce jednej linii są na różnych poziomach), tak więc praca na takim pliku jest ciężka:/ Chciałbym żeby za pomocą makra przenosiło na poziom z=0, generalnie problem sprawiają mi bloki wewnątrz których są inne bloki. Blok główny przeniesie mi na poziom 0 ale tych wewnętrznych nie chce, tylko muszę ręcznie edytować blok. Czy ktoś wie jak mógłbym sobie z tym poradzić ?? Pozdrawiam

wstecz 1 dalej

wszystkich stron: 1