---

Hallo Leute,

wer kann mir helfen, ich bräuchte eine Lisp Datei die mir in meiner Zeichnung allen Blöcken den Plotstil auf "Vonblock" stellt.

------------------
MFG

Heiko

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

---

... du meinst den Objekten in allen Blockdefinitionen ...

Wo konkret kommst denn nicht weiter?

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

---

Hallo CADmium,

habe von dir letzte Woche auch den Lisp Code für die Zuweisung der Pfeilgröße im Block bekommen.
wie ich auch da schon geschrieben habe bin ich im Kochbuch Autolisp gerade erst am Anfang.

D.h. im klar text weiß ich eigentlich ja noch nicht einmal wo ich Anfangen soll !

------------------
MFG

Heiko

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

---

nee, sorry ... da hab ich ein anderes Verständnis von Forenhilfe ... erbring du auch einen Beitrag zur Problemlösung und dann sehen wir weiter.

Und wenn du keine Zeit zum Lispeln lernen hast, dann steht IMHO auf der ersten Seite im Kochbuch was zu ... "Keine Zeit zum lesen ? ...." Einfach mal aufschlagen! 

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

---

OK

(defun c:plstimbl ()

????? :-))

------------------
MFG

Heiko

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

---

Change_Plotstyle.gif

Hallo!

Meiner Auffassung nach verwendest du benannte Plotstile. Und da finde ich dass du gar keine Lisp brauchst. Mach einfach ein Quickselect auf alle Blöcke und weis dann den Plotstil zu. Hab dir dazu ein Video angehängt(animated Gif)

Geht auch ruck zuck und du ersparst dir die Arbeit mit dem Lisp.

Lg _THE_ONE_

[Diese Nachricht wurde von THE_ONE am 29. Jul. 2008 editiert.]

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

---

PLTSTYLE_BYBLOCK.VLX.txt

naja, es geht wohl mehr um die Objekte in den Blöcken ... das kann man halt nicht mit Schnellauswahl und Eigenschaftsfenster realisieren ( es sei denn unter zuhilfenahme von _refedit ).

Anbei mal als Hilfestellung für ein paar Zeichnungen so ein Tool, das bei benannten Plotstilen den Plotstil bei allen Objekten in Blöcken auf "VonBlock" setzt.

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

Funktioniert top !

------------------
MFG

Heiko

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

---

Hallo Heiko,

Zitat:

---

Original erstellt von Heiko-T:
(defun c:_plstimbl ()

---

Da Du ja ernsthaft versuchst Lisp zu lernen (gehe ich zumindest von aus, sonst braucht man das Kochbuch ja nicht;) ), und schon so einen grossartigen Anfang hingelegt hast, füge ich noch ein paar wenige Zeilen hinzu, damit Du auch nicht nur Boa sagst, sondern vielleicht auch verstehst, was da eigentlich abgeht. Vielleicht verstehst Du's ja noch nicht alles, aber mal als Anreiz:

Code:

---

(defun c:_plstimbl (/ bl ele)
  (vl-load-com)
  (if (= (getvar "pstylemode") 0)                          ; benannter Plotstil in der Zeichnung, also nicht farbabhängig
    (progn                                                  ;dann
      (setq bl (tblnext "block" t))                        ;erster Block in der Blocktabelle
      (while bl                                            ;solange Blöcke in der Tabelle ...
        (if (/= (substr (cdr (assoc 2 bl)) 1 1) "*")        ;Block ist kein anonymer Block
          (progn
            (setq ele (cdr (assoc -2 bl)))                  ;erstes Element in der Blockdefinition
            (while ele                                      ;solange Blockelemente folgen
              (vla-put-PlotStyleName
                (vlax-ename->vla-object ele)
                "ByBlock"
              )                                            ;Plotstil auf "vonblock"
              (setq ele (entnext ele))                      ;nächstes Element
            )
;;;wenn automatisch ein attsync erfolgen soll, dann die auskommentierten Zeilen aktivieren:
;;;            (if (= (logand (cdr (assoc 70 bl)) 2) 2); Flag 2 im GC 70 gesetzt: Block hat variable Attribute
;;;              (command "_attsync" "_name" (cdr (assoc 2 bl)))
;;;            )
          )
        )
        (setq bl (tblnext "block"))                        ;nächster Block in der Blocktabelle
      )
    )
    (prompt                                                ;sonst
      "\nDie Zeichnung ist nicht für benannte Plotstile eingerichtet!"
    )
  )
)

---

Ne schöne Übungsaufgabe für Dich wäre, Das ganze dann so umzustricken, dass man den Block (die Blöcke) in der Zeichnung wählt...
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

---

Danke erste einmal !

versuche das mal so umzustricken !

probleme habe ich bei den befehlen von Autocad ! Gibt es irgenwo eine Liste mit den
ganzen Befehlen und Systemvariablen ??
Das würde mir schon etwas helfen !

Sobald ich das Programm so umgestrickt habe das man den bzw. die Blöcke auswählen kann werde ich es
hier reinstellen !

------------------
MFG

Heiko

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

---

Zitat:

---

Original erstellt von Heiko-T:
probleme habe ich bei den befehlen von Autocad ! Gibt es irgenwo eine Liste mit den
ganzen Befehlen und Systemvariablen ??
Das würde mir schon etwas helfen !

---

Das ist jetzt nichts lisp-spezifisches, oder?
Diese Liste findest Du mit der F1  Im Netz ist z.B. HIER eine.. es gibt aber noch andere...

------------------
Gruß,
runkelruebe          Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

System-Info     Excel -Suche    RuA-Suche     FAQ-ACAD     Hilfe zu CAD.de 

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