---

Hi

Ich bastel gerade an Beschriftungsroutinen herum.
Für die Problematik Backround Offset habe ich nur folgendes gefunden
was nicht wirklich nach VBA aussieht.

Man kann damit auch leider nicht die Settings abfragen.
Zumindest ich nicht, da ich nicht wirklich lispele 

Vielleicht kann mir einer der Lisp Gurus hier ja mal erläutern, was die Routine macht um das in VBA nachbauen zu können.
Falls dies möglich ist.

Backfill on ist kein Problem . Das hab ich nativ im VBA.
Nur der Rahmenabstand drumherum ist etwas geheimnisvoll um nicht zu sagen mysterieös  .

So das war Teil 1 der Frage.
Teil 2 der Frage bezieht sich auf die seit ACAD 2016 bestehende Möglichkeit MTEXT und Leader automatisch mit einem nativen Rahmen zu vesehen.

Also nicht die bisherigen Bastellösungen mit Polygon drumherum und wipeout drunter etc.
Ich hab nun mindestens 12h zweisprachig gegoogelt und nix brauchbares gefunden 

Ich bräuchte etwas was wenn es nur mit LISP geht, die Abstände, den Backfill, den Rahmen anhand eines Entity handles setzt bzw. abfragt.
(Am besten als Einzeiler für sendcommand)
LISP Variablen zu setzen per VBA sollte ich hinbekommen die Routinensammlung hab ich und läuft auch bei mir.

' VLAX.CLS v2.0 (Last updated 8/1/2003)
' Copyright 1999-2001 by Frank Oquendo

Anbei die Lisp routine die den Rahmenabstand und den Backfill setzt.
Keine Ahnung was eine ELIST ist und welche parameter die in VBA braucht. Irgendwie schraubt man da scheints an ominösen
DXF settings herum. Ähnlich wie bei den Maßketten.

Für Hilfe wär ich wirklich dankbar.
Gruß
Thomas

; Set 'Border Offset Factor' to 1.15
(defun c:BGON (/ ss1 num cnt obj ent)
  (setq ss1 (ssget '((0 . "mtext")))
  num (sslength ss1)
  cnt 0)
  (repeat num
      (setq obj (vlax-ename->vla-object (ssname ss1 cnt)))
        (progn
          (vlax-put-property obj 'BackgroundFill :vlax-true)
          (setq ent (vlax-vla-object->ename obj)
                elist (entget ent)
                elist (subst (cons 45 1.15)(assoc 45 elist) elist)
          )
          (entmod elist)
        ); progn
     
      (setq cnt (1+ cnt))
  ); repeat
)

------------------
Wer es nicht versucht, hat schon verlorn 
Und bei 3 Typos gibts den vierten gratis !
<<< for sale !

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

---

(defun c:BGON (/ ss1 num cnt obj ent)
  (setq ss1 (ssget '((0 . "mtext")))  ...  auswahlsatz aus MTEXTEN erstellen
  num (sslength ss1)                  ... Anzahl der Elemente im Auswahlsatz ermitteln
  cnt 0)                              ... Schleifenzähler mit 0 initialisieren
  (repeat num                        ... Schleife über alle Elemente
      (setq obj (vlax-ename->vla-object (ssname ss1 cnt)))  ... Objekt in VLA-Objekt umwandeln
        (progn
          (vlax-put-property obj 'BackgroundFill :vlax-true .... BackgroundFill auf "ein" setzen
          (setq ent (vlax-vla-object->ename obj)            ... Objekt wieder in "Lisp"-Objekt wandeln
                elist (entget ent)  ... Gruppencodes des Objektes (Siehe dxf Hilfe) auslesen
                elist (subst (cons 45 1.15)(assoc 45 elist) elist)  ... GC 45 auf 1.15 setzen
          )
          (entmod elist)                                            ... Objekt aktualisieren
        ); progn
   
      (setq cnt (1+ cnt))                                          ... Schleifenzähler erhöhen
  ); repeaten
)

VBA greift ja auf die Activx-Schnittstelle zurück ... leider haben da die Adesk-Programmierer nicht alles implementiert ... ebenso gibts Sachen, wo ich mit Lisp nicht rankomme ..
--> Alternative C# und .NET  , da ist das Objektmodell am umfassensten nachgestellt

------------------
Also ich finde Unities gut ... und andere sicher auch
---------------------------------------
  - 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

---

Vielen lieben Dank !

------------------
Wer es nicht versucht, hat schon verlorn 
Und bei 3 Typos gibts den vierten gratis !
<<< for sale !

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