Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Lisp
  POLYLINIEN

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor Thema:  POLYLINIEN (30565 mal gelesen)
marvin101010
Mitglied
ingenieur der architektur ohne diplom, bauzeichner ohne lehre, cad-admin ohne wissen :-)


Sehen Sie sich das Profil von marvin101010 an!   Senden Sie eine Private Message an marvin101010  Schreiben Sie einen Gästebucheintrag für marvin101010

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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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




Sehen Sie sich das Profil von Brischke an!   Senden Sie eine Private Message an Brischke  Schreiben Sie einen Gästebucheintrag für Brischke

Beiträge: 4171
Registriert: 17.05.2001

AutoCAD 20XX, defun-tools (d-tools.eu)

erstellt am: 03. Feb. 2003 08:29    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für marvin101010 10 Unities + Antwort hilfreich

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 :-)


Sehen Sie sich das Profil von marvin101010 an!   Senden Sie eine Private Message an marvin101010  Schreiben Sie einen Gästebucheintrag für marvin101010

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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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




Sehen Sie sich das Profil von Brischke an!   Senden Sie eine Private Message an Brischke  Schreiben Sie einen Gästebucheintrag für Brischke

Beiträge: 4171
Registriert: 17.05.2001

AutoCAD 20XX, defun-tools (d-tools.eu)

erstellt am: 03. Feb. 2003 09:14    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für marvin101010 10 Unities + Antwort hilfreich

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 :-)


Sehen Sie sich das Profil von marvin101010 an!   Senden Sie eine Private Message an marvin101010  Schreiben Sie einen Gästebucheintrag für marvin101010

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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

@ 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




Sehen Sie sich das Profil von Brischke an!   Senden Sie eine Private Message an Brischke  Schreiben Sie einen Gästebucheintrag für Brischke

Beiträge: 4171
Registriert: 17.05.2001

AutoCAD 20XX, defun-tools (d-tools.eu)

erstellt am: 03. Feb. 2003 09:44    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für marvin101010 10 Unities + Antwort hilfreich

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



Teamleiter Elektro- und Energiebetriebe (m/w/d)

TEEKANNE ? Wir sind Category Leader der Tee­industrie mit einem einzig­artigen Port­folio an unter­schied­lichen Geschmacks­erlebnissen. Als traditions­reiches und dynamisches Familien­unter­nehmen mit Haupt­sitz in Düssel­dorf erfinden wir den Klassiker Tee immer wieder neu, und das seit über 140 Jahren. Wir bringen unsere Produkte auf den Welt­markt und setzen dabei konse­quent auf starke Marken und auf ein noch stärkeres Team....

Anzeige ansehenTeamleitung, Gruppenleitung
marvin101010
Mitglied
ingenieur der architektur ohne diplom, bauzeichner ohne lehre, cad-admin ohne wissen :-)


Sehen Sie sich das Profil von marvin101010 an!   Senden Sie eine Private Message an marvin101010  Schreiben Sie einen Gästebucheintrag für marvin101010

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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz