---

Hallo Leute,

ich möchte bei allen MTexten den Hintergrund ausschalten.
Gibt es einen AutoCAD-Befehl den ich im LISP per Command mit Variablen nutzen kann?

Gruß Björn

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

---

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

---

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

---

Hallo Heiko,

danke für deine Antwort.
Diese VLA-Befehle sind mir noch nicht so geläufig.
Hast Du einen Tip für ein Buch mit Beispielen?

Gruß Björn

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

---

<< ein Link >>

und
<<gedruckt>>

Beispiele gibts auch in der Lisp-onlinehilfe .... activx und VBA-Referenz .. muß man sich allerdings ins deutsche und in Lisp übersetzen
------------------
       - 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

---

Autocad 2010 - Handbuch von A-Z - Thomas Flandera
dem Buch liegt das Lisp-Kochbuch bei - welches dann von Interesse wäre  
die Seiten vom Link CADmium (siehe oben) als "Papier"

als Seite noch AFRALisp

Edit: auf dieser Seite STBartel wurden noch weitere Seiten zusammengetragen

------------------
Mfg Heiko

Elefantenjagd in Afrika
"... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..."

[Diese Nachricht wurde von Dorfy am 09. Sep. 2010 editiert.]

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

---

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

---

Zitat:

---

Original erstellt von Bernd P:
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)"

---

... 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

---

ich trau mich mal, auch auf www.d-tools.eu  Tool Nr.99 zu verweisen....

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

---

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

---

(vla-put-backgroundfill (vlax-ename->vla-object (car(entsel))):vlax-true)

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

---

AFMassstab.zip

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

---

Hallo,
leider funktioniert der download der ZIP Datei nicht!

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

---

AFMassstab.zip

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

---

Nein, immer noch nicht

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

---

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

---

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

---

-

[Diese Nachricht wurde von Sanru am 11. Jan. 2011 editiert.]

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