| |
| 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, eine Pressemitteilung
|
Autor
|
Thema: Texthintergrund (2707 mal gelesen)
|
Björn Möller Mitglied
Beiträge: 96 Registriert: 22.03.2004 AutoCad Map 2012,Topobase 2,Rasterdesign
|
erstellt am: 08. Sep. 2010 15:43 <-- editieren / zitieren --> Unities abgeben:
|
Dorfy Mitglied Double-Dipl.-Ing. Bleistiftanspitzer
Beiträge: 900 Registriert: 21.07.2006 AutoCad2007, ProE, HiCad
|
erstellt am: 08. Sep. 2010 16:30 <-- editieren / zitieren --> Unities abgeben: Nur für Björn Möller
Hi als Schnellschuss (vla-put-backgroundfill (vlax-ename->vla-object (car(entsel))) 0) und wenn nicht mal die passende Eigenschaft suchen (vlax-Dump-Object(vlax-Ename->Vla-Object (car (entsel)))T)
------------------ Mfg Heiko Elefantenjagd in Afrika "... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..." Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Bernd P Ehrenmitglied V.I.P. h.c. cook-general
Beiträge: 3424 Registriert: 07.06.2001 W10-64bit, AMD Ryzen 7 3700X,32GB RAM, Sapphire Pulse Radeon RX 570 8G G5, Canon TX-3000 MFP, Maus Cherry MW4500, Sub:Infrastructure Design Suite, Office 365
|
erstellt am: 08. Sep. 2010 16:40 <-- editieren / zitieren --> Unities abgeben: Nur für Björn Möller
hatte mal ein LISP das dies erledigt hatte aber deins is ja noch viel besser danke! ------------------ <----- Bitte Systeminfo eintragen, warum siehst du hier. "Warum Einfach es geht auch kompliziert". Schöne Grüsse aus der Steiermark Bernd P. Sport ist Mord Rekorde: Scalelist>11727, Fehler>34365, Layerfilter>XXXX Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Björn Möller Mitglied
Beiträge: 96 Registriert: 22.03.2004 AutoCad Map 2012,Topobase 2,Rasterdesign
|
erstellt am: 09. Sep. 2010 09:50 <-- editieren / zitieren --> Unities abgeben:
|
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 09. Sep. 2010 09:53 <-- editieren / zitieren --> Unities abgeben: Nur für Björn Möller
|
Dorfy Mitglied Double-Dipl.-Ing. Bleistiftanspitzer
Beiträge: 900 Registriert: 21.07.2006 AutoCad2007, ProE, HiCad
|
erstellt am: 09. Sep. 2010 10:01 <-- editieren / zitieren --> Unities abgeben: Nur für Björn Möller
|
Bernd P Ehrenmitglied V.I.P. h.c. cook-general
Beiträge: 3424 Registriert: 07.06.2001 W10-64bit, AMD Ryzen 7 3700X,32GB RAM, Sapphire Pulse Radeon RX 570 8G G5, Canon TX-3000 MFP, Maus Cherry MW4500, Sub:Infrastructure Design Suite, Office 365
|
erstellt am: 02. Dez. 2010 10:50 <-- editieren / zitieren --> Unities abgeben: Nur für Björn Möller
Servus Wie müsste den der Befehl aussehen wenn er auf das/die markierten Objekte angewendet werden soll. "(vla-put-backgroundfill (vlax-ename->vla-object (car(entsel))) 0)" ------------------ <----- Bitte Systeminfo eintragen, warum siehst du hier. "Warum Einfach es geht auch kompliziert". Schöne Grüsse aus der Steiermark Bernd P. Sport ist Mord Rekorde: Scalelist>11727, Fehler>34365, Layerfilter>XXXX Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Dorfy Mitglied Double-Dipl.-Ing. Bleistiftanspitzer
Beiträge: 900 Registriert: 21.07.2006 AutoCad2007, ProE, HiCad
|
erstellt am: 02. Dez. 2010 12:40 <-- editieren / zitieren --> Unities abgeben: Nur für Björn Möller
Zitat: Original erstellt von Bernd P: ServusWie müsste den der Befehl aussehen wenn er auf das/die markierten Objekte angewendet werden soll. "(vla-put-backgroundfill (vlax-ename->vla-object (car(entsel))) 0)"
... alle auf dem Weg zur Messe im Schnee stecken genlieben ;-) ungetestet (if (ssget'((0 . "*TEXT"))) (vlax-for obj (vla-get-ActiveSelectionSet ActDoc) (if (= (vla-get-ObjectName obj) "AcDbText") (vla-put-backgroundfill obj 0)... Klammern zu... oder ne "normale" Schleife die die Objekte durchläuft (setq aws (ssget) e nil ) (if aws (repeat (sslength aws) (setq ename (ssname aws (setq e (if e (1+ e) 0 ) ) ) ... (vla-put-backgroundfill (vlax-ename->vla-object ename 0)....
------------------ Mfg Heiko Elefantenjagd in Afrika "... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..." Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 07. Dez. 2010 08:02 <-- editieren / zitieren --> Unities abgeben: Nur für Björn Möller
|
Bernd P Ehrenmitglied V.I.P. h.c. cook-general
Beiträge: 3424 Registriert: 07.06.2001 W10-64bit, AMD Ryzen 7 3700X,32GB RAM, Sapphire Pulse Radeon RX 570 8G G5, Canon TX-3000 MFP, Maus Cherry MW4500, Sub:Infrastructure Design Suite, Office 365
|
erstellt am: 11. Jan. 2011 08:17 <-- editieren / zitieren --> Unities abgeben: Nur für Björn Möller
Servus Die "normale" Schleife würde gut passen da ich auch andere Objekte und andere Eigenschaften anpassen will (zB Maßstab von Ansichtsfenter über Auswahl der Einheit (Zentimeter/Meter) und Maßstab (10 50 100 500 etc). Dazu leg ich mir den Befehl ins Kontextmenü des Objektes darum sollen die schon gewählten Objekte verwendet werden. Wenn ich dich richtig verstanden habe sollte der Code so aussehen, da bekomme ich aber die Meldung ; Fehler: Zu viele Argumente Code: ((setq aws (ssget) e nil ) (if aws (repeat (sslength aws) (setq ename (ssname aws (setq e (if e (1+ e) 0 ) ) ) ) ) ) (vla-put-backgroundfill (vlax-ename->vla-object ename 0)))
------------------ <----- Bitte Systeminfo eintragen, warum siehst du hier. "Warum Einfach es geht auch kompliziert". Schöne Grüsse aus der Steiermark Bernd P. Sport ist Mord Rekorde: Scalelist>11727, Fehler>34365, Layerfilter>XXXX Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 11. Jan. 2011 08:30 <-- editieren / zitieren --> Unities abgeben: Nur für Björn Möller
|
Bernd P Ehrenmitglied V.I.P. h.c. cook-general
Beiträge: 3424 Registriert: 07.06.2001 W10-64bit, AMD Ryzen 7 3700X,32GB RAM, Sapphire Pulse Radeon RX 570 8G G5, Canon TX-3000 MFP, Maus Cherry MW4500, Sub:Infrastructure Design Suite, Office 365
|
erstellt am: 11. Jan. 2011 09:06 <-- editieren / zitieren --> Unities abgeben: Nur für Björn Möller
Servus irgendwie hab ich das von euch net so hinbekommen..... unter http://cad-spiegel.jimdo.com/autolisp/code-beispiele/ hab ich eine Schleife gefunden die ich zum laufen gebracht habe. Anbei die Früchte meiner Arbeit AF-Maßstab ruft eine Kontextmenu mit Auswahl für Einheit und Maßstab auf die auf die Ansichtsfenster angewendet werden. ------------------ <----- Bitte Systeminfo eintragen, warum siehst du hier. "Warum Einfach es geht auch kompliziert". Schöne Grüsse aus der Steiermark Bernd P. Sport ist Mord Rekorde: Scalelist>11727, Fehler>34365, Layerfilter>XXXX [Diese Nachricht wurde von Bernd P am 11. Jan. 2011 editiert.] [Diese Nachricht wurde von Bernd P am 11. Jan. 2011 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Sanru Mitglied
Beiträge: 24 Registriert: 23.07.2010
|
erstellt am: 11. Jan. 2011 09:10 <-- editieren / zitieren --> Unities abgeben: Nur für Björn Möller
|
Bernd P Ehrenmitglied V.I.P. h.c. cook-general
Beiträge: 3424 Registriert: 07.06.2001 W10-64bit, AMD Ryzen 7 3700X,32GB RAM, Sapphire Pulse Radeon RX 570 8G G5, Canon TX-3000 MFP, Maus Cherry MW4500, Sub:Infrastructure Design Suite, Office 365
|
erstellt am: 11. Jan. 2011 09:47 <-- editieren / zitieren --> Unities abgeben: Nur für Björn Möller
versuch es nochmal jetzt aber------------------ <----- Bitte Systeminfo eintragen, warum siehst du hier. "Warum Einfach es geht auch kompliziert". Schöne Grüsse aus der Steiermark Bernd P. Sport ist MordRekorde: Scalelist>11727, Fehler>34365, Layerfilter>XXXX [Diese Nachricht wurde von Bernd P am 11. Jan. 2011 editiert.] [Diese Nachricht wurde von Bernd P am 11. Jan. 2011 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Sanru Mitglied
Beiträge: 24 Registriert: 23.07.2010
|
erstellt am: 11. Jan. 2011 09:49 <-- editieren / zitieren --> Unities abgeben: Nur für Björn Möller
|
Dorfy Mitglied Double-Dipl.-Ing. Bleistiftanspitzer
Beiträge: 900 Registriert: 21.07.2006 AutoCad2007, ProE, HiCad
|
erstellt am: 11. Jan. 2011 11:48 <-- editieren / zitieren --> Unities abgeben: Nur für Björn Möller
hi, auf die Schnelle im Überfliegen... du stopfst alle Objekte in die Schleife... haben die denn die gewünschte Eigenschaft? vllt so --> Code: (repeat (sslength ss) (setq objekt (ssname ss zähler) zähler (1+ zähler) vlobj (vlax-ename->vla-object objekt)) (if (vlax-property-available-p vlobj "CustomScale") (vla-put-CustomScale vlobj AF-Faktor)) ) ;schleife Ende
ungetestet ggf liegt af-faktor im falschen Format vor - hab ich aber nicht nachvollzogen ------------------ Mfg Heiko Elefantenjagd in Afrika "... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..." Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Bernd P Ehrenmitglied V.I.P. h.c. cook-general
Beiträge: 3424 Registriert: 07.06.2001 W10-64bit, AMD Ryzen 7 3700X,32GB RAM, Sapphire Pulse Radeon RX 570 8G G5, Canon TX-3000 MFP, Maus Cherry MW4500, Sub:Infrastructure Design Suite, Office 365
|
erstellt am: 11. Jan. 2011 16:38 <-- editieren / zitieren --> Unities abgeben: Nur für Björn Möller
Zitat: Original erstellt von Dorfy: haben die denn die gewünschte Eigenschaft?
Scheint kein Problem zu sein Mtexte und Ansichtsfenter markiert, es gibt dann zwar eine Fehlermeldung aber es funkt trotzdem. ------------------ <----- Bitte Systeminfo eintragen, warum siehst du hier. "Warum Einfach es geht auch kompliziert". Schöne Grüsse aus der Steiermark Bernd P. Sport ist Mord Rekorde: Scalelist>11727, Fehler>34365, Layerfilter>XXXX Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Sanru Mitglied
Beiträge: 24 Registriert: 23.07.2010
|
erstellt am: 11. Jan. 2011 17:23 <-- editieren / zitieren --> Unities abgeben: Nur für Björn Möller
|