---

Hallo,

ich habe das Makro

Code:

---

^C^C_.select;\_.tcircle;_p;;0.3;_r;_v

---

um schnell und einfach einen Rahmen um einen Text zu zeichnen.

Gibt es auch die Möglichkeit das Makro so anzupassen (oder ein LISP), daß der Rahmen auf den gleichen Layer liegt wie der Text? Denn so muß ich vorher oder nachher immer den Layer auswählen.

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

---

tcircle ist ein Befehl der Expresstools und wird in der acettxt.lsp definiert .... dein wunsch kann man da in den code integrieren.

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

---

bei dem Makro kannst Du ja MEHRERE Objekte wählen, die auf unterschiedlichen Layern liegen können - welcher Layer sollte da eingestellt werden?

Grüsse, Henning

------------------
Henning Jesse
VoxelManufaktur
Computer-Dienstleistungen für Architekten und Ingenieure

  http://www.voxelman.de

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

---

Zitat:

---

Original erstellt von wronzky:
bei dem Makro kannst Du ja MEHRERE Objekte wählen, die auf unterschiedlichen Layern liegen können - welcher Layer sollte da eingestellt werden?

Grüsse, Henning

---

Der Layer soll immer passend zum Text sein.

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

---

Zitat:

---

Original erstellt von CADmium:
tcircle ist ein Befehl der Expresstools und wird in der acettxt.lsp definiert .... dein wunsch kann man da in den code integrieren.

---

Ich habe mir mal die acettxt.lsp angeschaut und muß ehrlich sagen ich hab überhaupt nicht durchgesehen. Einfache LISP verstehe ich ja Stück für Stück, aber das ist doch zu hoch.

Ich gehe mal davon aus das bei einem so großen LISP der Einbau nicht mal fix erledigt ist und sich keiner die Arbeit macht.?

Gibts denn was anderes, schon fertiges?

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

---

 

Zitat:

---

Original erstellt von xem:
Ich habe mir mal die acettxt.lsp angeschaut und muß ehrlich sagen ich hab überhaupt nicht durchgesehen. Einfache LISP verstehe ich ja Stück für Stück, aber das ist doch zu hoch.

Ich gehe mal davon aus das bei einem so großen LISP der Einbau nicht mal fix erledigt ist und sich keiner die Arbeit macht.?

Gibts denn was anderes, schon fertiges?

---

letztendlich brauchst du ca 3 Zeilen in der Funktion
bns_tcircle ergänzen: ... Layer des Textobjektes auslesen ... und bei den beiden Entmake-Funktionen die Zeile mit dem  LAYER-GC einfügen.

Einbauen mußt du dir das selbst da der CODE von Adesk kommt.
------------------
      - 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

---

Zitat:

---

Original erstellt von CADmium:
 
letztendlich brauchst du ca 3 Zeilen in der Funktion
bns_tcircle ergänzen: ... Layer des Textobjektes auslesen ... und bei den beiden Entmake-Funktionen die Zeile mit dem  LAYER-GC einfügen.

Einbauen mußt du dir das selbst da der CODE von Adesk kommt.

---

Danke CADmium,

könntest du mir noch sagen wie diese 3 Zeilen aussehen müssen?

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

---

(setq LAYER (cdr(assoc 8 e1)))
und
(cons 8 LAYER)

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

---

Hm - bekomme jetzt einen Fehler 

Befehl: _.tcircle

Startet...
Select TEXT, MTEXT or ATTDEF objects...
Objekte wählen: _p
1 gefunden

Objekte wählen:

Enter distance offset factor <0.3500>: 0.3

Enclose text with [Circles/Slots/Rectangles] <Circles>: _r

Create rectangles of constant or variable size [Constant/Variable] <Variable>:
_v
Creating Rectangles...
Fehlerhafte DXF-Gruppe: (8)
Befehl:
Befehl: *Abbruch*

habe das mal so eingefügt:

Code:

---

  (setq j 0)
  (setq LAYER (cdr(assoc 8 e1)))
  (if (equal "Variable" rad)
    (progn
      (princ (strcat "\nCreating " ent "..."))
      (setq n 0);setq
      (repeat (sslength ss)
        (setq na (ssname ss n)
              e1 (entget na)
              a (acet-geom-textbox e1 offset)
              b (acet-geom-midpoint (car a) (caddr a))
        );setq
        (if (equal "Circles" ent)
            (entmake  (list '(0 . "CIRCLE")
                      (cons 10 (trans b 1 (cdr (assoc 210 e1))))
                      (cons 40 (distance (car a) b))
                      (assoc 210 e1)
                      (cons 8 LAYER)
                      );list
            );entmake
            (entmake
            (list  '(0 . "LWPOLYLINE")
                    '(100 . "AcDbEntity")
                    '(100 . "AcDbPolyline")
                    '(90 . 4)
                    (cons 38 (last (cdr (assoc 10 e1))))
                    '(70 . 1)
                    (cons 10 (trans (nth 0 a) 1 (cdr (assoc 210 e1))))
                    (if (equal ent "Rectangles")
                      '(42 . 0.0)
                      '(42 . -1.0)
                    );if
                    (cons 10 (trans (nth 3 a) 1 (cdr (assoc 210 e1))))
                    '(42 . 0.0)
                    (cons 10 (trans (nth 2 a) 1 (cdr (assoc 210 e1))))
                    (if (equal ent "Rectangles")
                        '(42 . 0.0)
                        '(42 . -1.0)
                    );if
                    (cons 10 (trans (nth 1 a) 1 (cdr (assoc 210 e1))))
                    '(42 . 0.0)
                    (assoc 210 e1)
                    (cons 8 LAYER)
            )
            );entmake

---

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

---

...
(repeat (sslength ss)
        (setq na (ssname ss n)
              e1 (entget na)
              a (acet-geom-textbox e1 offset)
              Layer (cdr(assoc 8 e1))

....
    (entmake 
      (list '(0 . "CIRCLE")
              (cons 8 LAYER)
....
    (entmake
      (list  '(0 . "LWPOLYLINE")
              (cons 8 LAYER)
              '(100 . "AcDbEntity")
....

d.h. erst Entgetliste erzeugen und dann daraus den Layer ermitteln und beim entmake auf die richtige GC-Reihenfolge auchten     

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

---

Supi!!!

Wieder was dazu gelernt.

CADmium - kannst du mir noch die zwei einträge verraten um auch die Farbe vom Text mit zu übernehmen?

danke

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

---

das wäre der GC 62 .... also nach Layer ...
(or(setq FARBE (cdr (assoc 62 e1)))
  (setq FARBE 256)
)

und im entmake

(cons 62 FARBE)

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

---

   

ein Traum!

"das wäre der GC 62 .... also nach Layer ..."

woher weiß man das? Kann man das irgendwo nachlesen welche Zahl welcher Wert ist?

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

---

jo , F1 ... Autolisp .... DXF-Referenz ... Abschnitt Entities .. gängige Gruppencodes für Elemente

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

---

Zwischenablage01.jpg

Ja - da sie wieder meine 3 Probleme. 

-keine Ahnung
-kein Plan
-keine AutoCAD Hilfe -------------------------->

was ist das für ne Kack-Meldung? So kann ich ja nie was dazu lernen 

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

---

so ging es,

ABER

nicht wenn der Text auf Farbe VONLAYER steht

Code:

---

(setq na (ssname ss n)
              e1 (entget na)
              a (acet-geom-textbox e1 offset)
              b (acet-geom-midpoint (car a) (caddr a))
              Layer (cdr(assoc 8 e1))
              FARBE (cdr (assoc 62 e1))
              FARBE (cdr (assoc 62 e1))
          );setq

---

Creating Rectangles...
Fehlerhafte DXF-Gruppe: (62)

und so ging es gar nicht :(

Code:

---

(setq na (ssname ss n)
              e1 (entget na)
              a (acet-geom-textbox e1 offset)
              b (acet-geom-midpoint (car a) (caddr a))
              Layer (cdr(assoc 8 e1))
              FARBE (cdr (assoc 62 e1))
              (or(setq FARBE (cdr (assoc 62 e1)))
              (setq FARBE 256)
              )
        );setq

---

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

---

.... Fang mit dem Anfang, d.h. Mapcars Tutorial an ... du schmeißt ja alles durcheinander!
...
(setq na (ssname ss n)
          e1 (entget na)
          a (acet-geom-textbox e1 offset)
          b (acet-geom-midpoint (car a) (caddr a))
          Layer (cdr(assoc 8 e1))
)
(or(setq FARBE (cdr (assoc 62 e1)))
  (setq FARBE 256)
)
...
so wird entweder die Farbe , wenn vorhanden, d.h. nicht "von Layer" ausgelesen oderdie Farbe auf 256, d.h. auf "von Layer" gesetzt.
                 

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

---

so wurde ein Schuh drauß 

Code:

---

(repeat (sslength ss)
        (setq na (ssname ss n)
              e1 (entget na)
              a (acet-geom-textbox e1 offset)
              b (acet-geom-midpoint (car a) (caddr a))
              Layer (cdr(assoc 8 e1))
)
(or(setq FARBE (cdr (assoc 62 e1)))
  (setq FARBE 256)
          );setq
        (if (equal "Circles" ent)

---

es war eine Klammer zu viel drin 

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

---

Hallo,

habe versucht die kleine Anpassung in AutoCAD 2011 zu übernehmen, aber irgend wie funktioniert es nicht.

Muß man da noch was anpaßen?

--------------

Ich sollte Feierabend machen ... falsch kopiert

Jetzt läuft wieder alles!!!

------------------
   

[Diese Nachricht wurde von xem am 26. Apr. 2010 editiert.]

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