| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY wird von NVIDIA zum Händler des Jahres gewählt – zum dritten Mal in Folge, eine Pressemitteilung
|
Autor
|
Thema: POLYLINIEN (30568 mal gelesen)
|
marvin101010 Mitglied ingenieur der architektur ohne diplom, bauzeichner ohne lehre, cad-admin ohne wissen :-)
Beiträge: 562 Registriert: 22.01.2003 Pentium 4 Windows XP Autocad 2002 Autocad 2002LT + Extender ADT 3.3 ArchiCAD
|
erstellt am: 03. Feb. 2003 08:09 <-- editieren / zitieren --> Unities abgeben:
schönen guten morgen allerseits... hätt ne kleine montag-morgen-frage: warum werden mit folgender lisp polylinien nicht mit geändert??? (setq sub (ssget "x" '((8 . "LAYER xy"))) z 0 ); end setq (repeat (sslength sub) (setq neu (entget (ssname sub z)) neu (subst (cons 8 "LAYER sowieso") (assoc 8 neu) neu) tem (cons 62 1) neu (cons tem neu ) Z (+ z 1) ); end setq (entmod neu) ); end repeat );end defun
------------------ alle wege führen nach rom, bis auf den mittleren! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Brischke Moderator CAD on demand GmbH
Beiträge: 4187 Registriert: 17.05.2001 AutoCAD 20XX, defun-tools (d-tools.eu)
|
erstellt am: 03. Feb. 2003 08:29 <-- editieren / zitieren --> Unities abgeben: Nur für marvin101010
Hallo Marvin, erst mal ein paar Fragen, um dann antworten zu können. Werden überhaupt Polylinien auf dem Layer gefunden? Sind die Polylinien LWPolyline's oder Polyline's? Es fehlt die Prüfung, ob denn evtl. der Gruppencode 62 vorhanden ist. Grüße Holger ------------------ Holger Brischke CADlon - Lisp over night! Wieder 2 neue Tool's im FreeDownload Wissen wie es gemacht wird? Jetzt Quellcode für die Hälfte Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
marvin101010 Mitglied ingenieur der architektur ohne diplom, bauzeichner ohne lehre, cad-admin ohne wissen :-)
Beiträge: 562 Registriert: 22.01.2003 Pentium 4 Windows XP Autocad 2002 Autocad 2002LT + Extender ADT 3.3 ArchiCAD
|
erstellt am: 03. Feb. 2003 08:55 <-- editieren / zitieren --> Unities abgeben:
hallo brischke... hast natürlich recht, was das posten betrifft... hab ich auch nur gemacht, weil ich die zweite frage vergessen hatte...da dacht ich mir das setz ich ins andere forum, weil hier so wenig los war...wenn es sittenwidrig is lass ichs natürlich in zukunft ;-) ok...zur sache: das polylinienproblem hat sich eigentlich erledigt, weil ich erfahren habe, dass diese im vorlauf eh zu normalen linien gewandelt werden müssen. interessieren würds mich natürlich trotzdem. es sind LWPOLILINES die mit ausgelesen werden... hatte mal ein ERASE-command zwischengeschaltet und sie waren weg. was die prüfung angeht...erwischt...kommt aber vor der endgültigen nutzung noch rein ;-) bleibt die frage nach gruppencode für den winkel einer linie...das entwickler-handbuch ist da nicht eindeutig...sagt aber, dass es wohl einen gibt! danke einstweilen für eure hilfe...bin halt noch sehr am anfang und nerv manchmal vieleicht ein wenig ;-)) ------------------ alle wege führen nach rom, bis auf den mittleren! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Brischke Moderator CAD on demand GmbH
Beiträge: 4187 Registriert: 17.05.2001 AutoCAD 20XX, defun-tools (d-tools.eu)
|
erstellt am: 03. Feb. 2003 09:14 <-- editieren / zitieren --> Unities abgeben: Nur für marvin101010
Hi, also ein Winkel ist bei Linien/LW/Polylinen nicht in den Gruppencode's gespeichert. Den mußt du dir aus dem Anfangs und Endpunkt errechnen. Mit dem Rest Deiner Ausführungen weiß ich nichts so recht anzufangen, weiß also auch nicht, was du da wissen möchtest. Zu deinem Code: Ich denke, dass dieser nicht funkt, weil die Prüfung fehlt. Was hast Du überhaupt vor? Es ist immer schwierig zu antworten wenn man nicht alles weiß. Deswegen: Lieber etwas ausführlicher posten. >>...nerv manchmal vieleicht ein wenig ... Suche mal nach einem Author namens 'Zeichner' - dann weißt Du was nerven ist. Bei Fragen ... Grüße Holger ------------------ Holger Brischke CADlon - Lisp over night! Wieder 2 neue Tool's im FreeDownload Wissen wie es gemacht wird? Jetzt Quellcode für die Hälfte Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
marvin101010 Mitglied ingenieur der architektur ohne diplom, bauzeichner ohne lehre, cad-admin ohne wissen :-)
Beiträge: 562 Registriert: 22.01.2003 Pentium 4 Windows XP Autocad 2002 Autocad 2002LT + Extender ADT 3.3 ArchiCAD
|
erstellt am: 03. Feb. 2003 09:25 <-- editieren / zitieren --> Unities abgeben:
@ brischke wir haben von einem subunternehmer pläne erhalten. das ist schon ein jahr her und diese müssen jetzt auf den neuen standart des kunden gebracht werden. unter anderem sollen linien eines layers auf einen anderen gelegt werden...mit einer farbe die nicht die des layers ist. jetzt habe ich halt festgestellt, dass der sub fast ausschliesslich mit LWPOLILINES gearbeitet hat... gott weiss warum. die sache mit der fehlenden abfrage funzt, weil ich weiss, dass alle ausgelesenen linien auf 256 liegen ;-) ...is natürlich unsauber...ok! ich nehme an die abfrage nach 62 starte ich mit if... korrekt? ------------------ alle wege führen nach rom, bis auf den mittleren! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Brischke Moderator CAD on demand GmbH
Beiträge: 4187 Registriert: 17.05.2001 AutoCAD 20XX, defun-tools (d-tools.eu)
|
erstellt am: 03. Feb. 2003 09:44 <-- editieren / zitieren --> Unities abgeben: Nur für marvin101010
Hallo Marvin, ich würde dann wie volgt vorgehen: zunächst alle LWPolylinien in den Ursprung versetzen, obwohl ich die Sinnhaftigkeit dessen bezweifle. Dann den Auswahlsatz bilden und die Layer und Farbe ändern. Mal eine andere Frage, existiert der Ziellayer schon? Wenn nicht, dann würde doch ein umbenennen des Layers reichen. Dann wäre nur noch die Farbe, obwohl ich da nicht verstehe, wieso die Linienfarbe von der des Layers abweichen soll. Das halt ich nicht für die richtige Herangehensweise. Naja - wie dem auch sei - denk mal drüber nach. Die Abfrage würde ich so machen: (setq neu (if (assoc 62 neu) (subst ....) (cons (cons 62 1) neu) );if );setq Bei Fragen ... Grüße Holger ------------------ Holger Brischke CADlon - Lisp over night! Wieder 2 neue Tool's im FreeDownload Wissen wie es gemacht wird? Jetzt Quellcode für die Hälfte Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
marvin101010 Mitglied ingenieur der architektur ohne diplom, bauzeichner ohne lehre, cad-admin ohne wissen :-)
Beiträge: 562 Registriert: 22.01.2003 Pentium 4 Windows XP Autocad 2002 Autocad 2002LT + Extender ADT 3.3 ArchiCAD
|
erstellt am: 03. Feb. 2003 09:47 <-- editieren / zitieren --> Unities abgeben:
hab schon länger aufgehört, bei standards, die uns von kunden vorgegeben werden nach einer evtl. sinnhaftigkeit zu suchen ;-) dank einstweilen ------------------ alle wege führen nach rom, bis auf den mittleren! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |