Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Lisp
  entmod GC 41

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:  entmod GC 41 (878 mal gelesen)
sponk-mg
Mitglied



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

Beiträge: 38
Registriert: 10.10.2011

erstellt am: 11. Nov. 2011 13: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,

GC 41 soll auf den Wert 0.75 gesetzt werden.
In der Eingabezeile wird dieser dann auch angezeigt.
Graphisch ändert sich jedoch leider nichts.
Und der Ausgangswert wird in der Datenbank auch nicht verändert.
Bitte um Abhilfe.

(defun ampel (/ lwahl)
(setq lwahl (entget (car(entsel "Bitte Polylinie wählen:"))))
  (setq lwahl
      (subst '(41 . 0.75)
      (assoc 41 lwahl)
      lwahl
      )
    )
(entmod lwahl)
  )


LG

Martin

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

CADmium
Moderator
Maschinenbaukonstrukteur




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

Beiträge: 13508
Registriert: 30.11.2003

.

erstellt am: 11. Nov. 2011 14:01    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 sponk-mg 10 Unities + Antwort hilfreich

und so ?
(defun ampel (/ lwahl)
(setq lwahl (entget (car(entsel "Bitte Polylinie wählen:"))))
  (setq lwahl
      (subst '(43 . 0.75)
      (assoc 43 lwahl)
      lwahl
      )
    )
 
(entmod lwahl)

  )

------------------
  - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

sponk-mg
Mitglied



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

Beiträge: 38
Registriert: 10.10.2011

erstellt am: 11. Nov. 2011 14:06    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

Leider nicht.

43 setzt die gesamte Linie auf Breite 0.75
Das Anfangssegment soll auf 0.00 gesetzt bleiben.
Nur das Endsegment soll von 0.00 auf 0.75 verändert werden.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

CADmium
Moderator
Maschinenbaukonstrukteur




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

Beiträge: 13508
Registriert: 30.11.2003

.

erstellt am: 11. Nov. 2011 14:19    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 sponk-mg 10 Unities + Antwort hilfreich

da war aus dem Code aber nicht ersichtlich


zu subst aus F1
Return Values: A list, with newitem replacing all occurrences of olditem

bsp (subst "A" "B" '("B" "C" "B"))--->("A" "C" "A")

(assoc 41 lwahl) -> liefert die segmentbreite des 1.Segments
(subst '(41 . 075)(assoc 41 lwahl)lwahl)  -> ändert nun alle Segmentbreiten, die mit der des ersten Sements übereinstimmen auf 0,75

d.h. so funktioniert das also nicht, wie du dir das vorgestellt hast ...

du bist dran  

------------------
      - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

sponk-mg
Mitglied



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

Beiträge: 38
Registriert: 10.10.2011

erstellt am: 11. Nov. 2011 14:43    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

Ich liefere nach!

Ist die globale Breite  GC43 nicht gesetzt,
funktioniert es wie ich es mir vorgestellt habe.
Ich muss also nur GC43 entfernen, wenn man weiß wie das geht.
Ich weiß es noch nicht. Dazu nen Tipp und ich bin wieder glücklich.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Meldin
Mitglied



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

Beiträge: 381
Registriert: 15.07.2011

ACA2020
Windows10

erstellt am: 11. Nov. 2011 14: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 Nur für sponk-mg 10 Unities + Antwort hilfreich

Vielleicht so

Code:
(vl-remove-if-not '(lambda (x) (/= (car X) 43)) lwahl)

------------------
Gruß Wolfgang

Alias: Rabbit007 und Wolli1 die aus unerklärlichen Gründen aus dem System hier gelöscht wurden. 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

sponk-mg
Mitglied



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

Beiträge: 38
Registriert: 10.10.2011

erstellt am: 11. Nov. 2011 16:24    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

Danke sehr Wolfgang,

ich hab's erfolgreich ausprobiert.
Da ich nur LISP-Handbücher wälze,
kann ich den VL-Befehl zwar nachvollziehen,
so ganz verstanden hab ich ihn noch nicht.
Gibt's Entsprechendes auch in LISP-Form?

Schönes WE.

Martin

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Meldin
Mitglied



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

Beiträge: 381
Registriert: 15.07.2011

ACA2020
Windows10

erstellt am: 11. Nov. 2011 19:23    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 sponk-mg 10 Unities + Antwort hilfreich

Hallo Martin,
VL ist lisp in der hilfe sind die entsprechenden Befehle auch aufgeführt. (F1)
Aber vielleicht kommst du damit eher klar.
Code:
(foreach teil lwahl
  (if (/= 43 (car teil))
    (setq Elem (cons teil Elem))
  )
)
(setq Elem (reverse Elem))

Du musst dann wohl mit Elem weiterarbeiten anstatt mit lwahl.
Aber vom Grundsatz her ist das dass gleiche in grün   

------------------
Gruß Wolfgang

Alias: Rabbit007 und Wolli1 die aus unerklärlichen Gründen aus dem System hier gelöscht wurden. 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

joern bosse
Ehrenmitglied
Dipl.-Ing. Vermessung


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

Beiträge: 1734
Registriert: 11.10.2004

Window 10
ACAD 2021
CIVIL 2021
BricsCAD V14-V22
Intel(R) Core(TM)i5-8250U CPU @ 1.60GHz 1.80 GHz
16.0GB RAM
NVIDIA GeForce GTX 1050<P>

erstellt am: 12. Nov. 2011 10:11    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 sponk-mg 10 Unities + Antwort hilfreich

Hallo Martin,
wenn Du in folgender Zeile das Apostroph gegen FUNCTION auswechselst, dann kannst Du mit dem VLIDE-Debugger (Haltepunkt setzen) Schritt für Schritt durch die Funktion gehen und die Werte überwachen, das ist sicherlich auch schon aufschlussreich für die Analyse.

(vl-remove-if-not (function(lambda (x) (/= (car X) 43))) lwahl)

------------------
viele Grüße

Jörn
http://www.bosse-engineering.com

Stammtisch in Wolfsburg

http://ww3.cad.de/foren/ubb/Forum491/HTML/000179.shtml

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