---

Problem: Block mit strichlierter Linie mit Linientypfaktor 1 in Architektenpläne mit verschiedenen LTFaktoren einfügen (über Werkzeugpalette)

Die Systemvariable CELTSCALE sollte sich zwar auf alle NEUEN Objekte auswirken – funktioniert aber bei Blöcke nicht

Blockeditor ist zu umständlich weil es um ca. 50 versch. Blöcke geht.

Lispprogramm LTFakScale.vlx  funktioniert auch nicht bei Blöcke

Lispprogramm OBJ_LTFAKTOR_SET hab ich schon 5 verschiedene angelegt mit verschiedenen Linientyptfaktoren, aber dann kommt wieder ein neuer Plan eines Architekten mit wieder anderem Ltfaktor…

Vielleicht hat jemand noch eine Idee

------------------
mfg
Peter

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

---

OBJ_LTFAKTOR_SET  mit ner Eingabe für den Faktor versehen ? oder sowas wie ein abgespecktes PROPSEDIT einsetzen ....

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

---

Propsedit muss man kaufen - ist nat. eine Option.

OBJ_LTFAKTOR_SET  mit ner Eingabe für den Faktor versehen ?  - wäre ideal wenn das ginge (so ähnlich wie bei einefarb.lsp) oder wer schon hat.

------------------
mfg
Peter

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

---

Zitat:

---

Original erstellt von caddonner:
Propsedit muss man kaufen

---

nö .... muss man nicht  .... man kanns auch selber schreiben 

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

---

Zitat:

---

Original erstellt von CADmium:

nö .... muss man nicht   .... man kanns auch selber schreiben  

---

oder Testversion herunterladen und crecken (schreibt man mit nat. a) 

------------------
mfg
Peter

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

---

Zitat:

---

Original erstellt von caddonner:

oder Testversion herunterladen und crecken (schreibt man mit nat. a) 

---

.. was natürlich ne tolle Anerkennung der geleisteten Arbeit von anderen ist.

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

---

Wenn du das kannst - kannst du es auch selber schreiben - ist bestimmt einfacher als 'cräcken'

------------------
Gruß
CADwiesel
Besucht uns im CHAT

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

---

Genau deshalb kam diese Antwort (mit Augenzwickern) von mir, weil ich nat. beides nicht kann.

Aber so ein Codeschnipsel mit Eingabeaufforderung für lt.faktor wär sicher ein hilfreicher Ansatz - ist aber im Lispforum vielleicht eher zu ergattern ?

------------------
mfg
Peter

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

---

Hallo Peter,
vielleicht reicht Dir schon SOWAS ?

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

---

Werd ich mir mal reinziehn.
Danke schonmal für den Link.

------------------
mfg
Peter

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

---

spiro-dn250-mm.dwg spirobogen90-250mm.dwg

Bin jetzt erst dazugekommen Codes von Hennings Link zu probieren.
Folgender funktioniert – aber leider nicht bei allen Blöcken.

(vl-load-com)
(defun c:SetLTScale (/ ss scale blk eo doc blocks bcol)
  (if (and (setq scale (getreal "Neuer LTFaktor: "))
          (setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))
          (setq ss (ssget))
          (setq ss (vla-get-ActiveSelectionSet doc))
      )
    (progn
      (vlax-for eo ss
        (if (vlax-property-available-p eo 'LinetypeScale t)
          (vla-put-LinetypeScale eo scale)
        )
        (if (and (eq (vla-get-ObjectName eo) "AcDbBlockReference")
                (not (vl-position (vla-get-EffectiveName eo) blocks))
            )
          (setq blocks (cons (vla-get-EffectiveName eo) blocks))
        )
      )
      (setq bcol (vla-get-Blocks doc))
      (foreach blk blocks
        (vlax-for eo (vla-Item bcol blk)
          (if (vlax-property-available-p eo 'LinetypeScale t)
            (vla-put-LinetypeScale eo scale)
          )
        )
      )
    )
  )
  (princ)
)

Hab 2 Beispielblöcke mal dazugehängt. Bei einem ändert sich der LtFaktor bei anderem nicht. (obwohl es im Eigenschaftsfenster anders angezeigt wird)
Dürfte doch nicht so einfach sein die Geschichte.

------------------
mfg
Peter

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