Hallo Leute, ich bin ein totaler VBA für ACAD Anfänger und benötige dringend "Anschubhilfe" ;-) In meinem ersten Projekt möchte ich alle Linien die eine Länge < 20m haben und auf dem Layer Haltung liegen auf den Layer Haltung_Tmp verschieben. Kann mir hier jemand weiterhelfen wie die Routine ausschauen muss ? Grüsse
Brischke Ehrenmitglied V.I.P. h.c. CAD on demand GmbH
Beiträge: 4201 Registriert: 17.05.2001
ACAD20XX, defun-tools
erstellt am: 26. Mai. 2004 01:05 <-- editieren / zitieren --> Unities abgeben: Nur für astudemund
Hallo,
wie du die Linien selektierst, das kannst du dir dort ableiten: http://ww3.cad.de/foren/ubb/Forum259/HTML/000242.shtml Die so ermittelten Linienobjekte sind dann nur noch bzgl. der länge zu überprüfen. Linien verfügen über diese Länge-Eigenschaft, so dass du diese dann mit einer einfachen If-Bedingung rausfiltern kannst.
Bei Fragen ...
Grüße Holger
------------------ Holger Brischke (defun - Lisp over night! AutoLISP-Programmierung für AutoCAD Da weiß man, wann man's hat!
Treffen Sie (defun auf dem Autodesk Anwendertreffen am 15.06. in Steyr/Österreich!