|
Lisp : Lisp zur Attributweitergabe an ein Schriftfeld
Bernhard GSD am 29.10.2018 um 13:36 Uhr (1)
Zitat:Original erstellt von cadffm:[B]STRCAT erwartet/akzeptiert nur STRINGs, keine Zahlen.Bezogen auf (VLA-GET-OBJECTID #object) ?Zitat:Und als Quelle kannst du kein Attribut wählen mit ENTSEL,entweder du möchstest eine Attributdefinition oder benötigst NENTSEL für ein Attribut.Ja, der Punkt ist mir inzwischen aufgefallen, trotzdem danke dafür!Zitat:Mal eine Frage: Warum kommst du nicht an die Problem-Stelle,wenn man Schritt für Schritt durchgeht MUSS man doch darüber stolpern?Dafür verstehe ich von VISUA ...
|
| In das Form Lisp wechseln |
|
Lisp : Lisp zur Attributweitergabe an ein Schriftfeld
Bernhard GSD am 29.10.2018 um 13:44 Uhr (1)
Zitat:Original erstellt von cadffm:lateEDIT:Und ein schließendes "%" fehlt auch noch, wie bist du zu diesen Zeilen gekommen die Quelle an der du dich bedient hast zeigte diese Fehler nicht auf.[/B]Das war´s! In meiner Version für Polylinien war da noch ein "m²" dabei und ich habe irrtümlich das Ganze entsorgt.Herzlichen Dank jedenfalls! ------------------Gruß aus WienBernhard
|
| In das Form Lisp wechseln |
|
Lisp : Lisp zur Attributweitergabe an ein Schriftfeld
cadffm am 29.10.2018 um 13:48 Uhr (1)
"Bezogen auf (VLA-GET-OBJECTID #object) ?"Teste es doch aus?"Dafür verstehe ich von VISUAL Lisp zu wenig."Es ist doch völlig unerheblich ob das eine Funktion aus dem erweiterten VL Funktionssatz kommt oder nicht,man füttert eine Funktion und erwartet eine Rückgabe die man dann mit STRCAT (AutoLISP) weiterverarbeitenmöchte und STRCAT wie auch die Rückgabe hat nichts mit VL zutun."Aber es wäre natürlich ein Weg, es weiter zu zerlegen.."Ja, das ist der Weg, wobei man es vorher eigentlich bereits beim Zusammen ...
|
| In das Form Lisp wechseln |
|
Lisp : Lisp zur Attributweitergabe an ein Schriftfeld
Bernhard GSD am 29.10.2018 um 14:09 Uhr (1)
Zitat:Ja, das ist der Weg, wobei man es vorher eigentlich bereits beim Zusammenbau getestet hat und somitkeine Fehlerquelle mehr suchen muß.Das mache ich ja auch normalerweise. Nur kenne ich mich mit VL_* und VLA_* kaum aus und tue mir daher beim Debuggen schwer.Sonst habe ich in den letzten fast 30 Jahren schon tausende Zeilen Lisp-Code geschrieben. ------------------Gruß aus WienBernhard
|
| In das Form Lisp wechseln |
|
Lisp : Lisp zur Attributweitergabe an ein Schriftfeld
Bernhard GSD am 29.10.2018 um 16:06 Uhr (1)
Zitat:Dann läufts jetzt? [/B]Ja, der Code von 14:46 läuft einwandfrei! Wenigstens unter bei mir üblichen Bedingungen. Danke nochmals für Hinweise und Denkanstöße!------------------Gruß aus WienBernhard
|
| In das Form Lisp wechseln |
|
Lisp : Lisp zur Attributweitergabe an ein Schriftfeld
cadffm am 29.10.2018 um 16:12 Uhr (1)
Zitat:Original erstellt von Bernhard GSD:der Code von 14:46 läuft einwandfrei! Habt ihr in Ö nicht auch seit fast 40Jahren die Winterzeitregeluing, oder läuft die nicht parallel zu unserer?hmm - ein Durcheinander
|
| In das Form Lisp wechseln |
|
Lisp : Blockfarbe
Jota123457 am 31.10.2018 um 11:20 Uhr (1)
Hallo vision,also ich vermute mal, dass Du die sichtbaren Farben IM Block gespeichert selektiren willst?Wenn Du INSERT, also einen Block in die Auswahl nimmst, dann wird in Deinem Lispbeispiel nach einem gruenen Block gesucht. Egal welche Farben die im Block gespeicherten Elemente haben.Aber wenn Du dem Block selbst die Farbe gruen zuweist, (sieht man das zwar nicht, da der Container "Block" nur durch seinen Inhalt sichtbar ist)muesste Dein Lisp aber funktionieren.Ich wuerde in so einem Fall eher mit Layer ...
|
| In das Form Lisp wechseln |
|
Lisp : Lisp zur Attributweitergabe an ein Schriftfeld
Bernhard GSD am 30.10.2018 um 14:46 Uhr (1)
Zitat:Habt ihr in Ö nicht auch seit fast 40Jahren die Winterzeitregeluing, oder läuft die nicht parallel zu unserer?hmm - ein DurcheinanderKomisch, gestern stand noch 14:46, heute aber 13:46. Aber ja, noch haben wir die gleiche Regelung. Aber wie lange noch?------------------Gruß aus WienBernhard
|
| In das Form Lisp wechseln |
|
Lisp : Lisp zur Attributweitergabe an ein Schriftfeld
Bernhard GSD am 05.11.2018 um 11:15 Uhr (1)
Eine Frage noch:Kann man in ein Schriftfeld auch die Fläche eines Objekts aus einer XREF einbauen? Bisher ist es mir jedenfalls noch nicht gelungen... Die Idee wäre, die Gesamtfläche aus mehreren Geschoßen zu summieren.------------------Gruß aus WienBernhard
|
| In das Form Lisp wechseln |
 |
Lisp : Lisp zur Attributweitergabe an ein Schriftfeld
Bernhard GSD am 05.11.2018 um 16:32 Uhr (1)
Schriftfeld nochmals:In einen Text, der später als MTEXT ausgegeben wird, habe ich einen Schriftfeldcode eingebaut. Das Schriftfeld wird aber erst richtig ausgewertet, wenn ich den MTEXT-Editor öffne. Ich verändere aber nichts.Kann man diese Auswertung auch anders anstoßen oder gibt es sonst einen Weg, dass nach dem Programmablauf DIREKT die Werte stimmen?Danke im Voraus für eure Unterstützung!Die Schriftfeldstrings sind vollständig:Code:%AcObjProp.16.2 Object(%\_ObjId 2262815616%).Area f "%lu2%pr2%ps[, m² ...
|
| In das Form Lisp wechseln |
|
Lisp : Lisp zur Attributweitergabe an ein Schriftfeld
joern bosse am 05.11.2018 um 16:46 Uhr (1)
Hallo Bernhard,vielleicht einfach mit dem Command-Befehl (command-s "_.updatefield" (MText als vla-obj)"")???------------------viele GrüßeJörnhttp://www.bosse-engineering.comFoto-Manager Youtube
|
| In das Form Lisp wechseln |
|
Lisp : Lisp zur Attributweitergabe an ein Schriftfeld
cadffm am 05.11.2018 um 16:48 Uhr (1)
Zum eine alle Aktionen welche du eingestellt hast mit FieldEval oder unabhängig davon für TopLevel Elemente (unverschachtelte), Befehl: schriftfeldaktNach einer Lösung ohne AutoCAD-Befehle habe ich jetzt nicht geschaut.
|
| In das Form Lisp wechseln |
|
Lisp : Attribute abfragen
vision am 06.11.2018 um 12:37 Uhr (1)
Hallo,in dem Lisp möchte ich noch den Wert vom Attribut BEZEICHNUNG2 im Block abfragen.Für ein Beispiel hierzu währe ich sehr dankbar.(if(and(SETQ ent (car(ENTSEL "
Text-Block anklicken: "))) (setq gg (assoc 10 (entget ent))) (=(cdr(assoc 66 (entget ENT)))1) ) (WHILE (AND (SETQ ent (ENTNEXT ent)) (/= (CDR (ASSOC 0 (ENTGET ent))) "SEQEND") ) (IF(AND (=(CDR (ASSOC 0 (ENTGET ent))) "ATTRIB") (=(strcase(CDR (ASSOC 2 (ENTGET ent)))) "BEZEICHNUNG1") ;Attributname 1! ) (progn (SETQ BLATT ...
|
| In das Form Lisp wechseln |
