---

Hallo zusammen,

habe hier gesucht, aber nix genaues gefunden.
Ich fürchte für das Problem gibts keine Hauslösung.

Ich möchte in einer Zeichnung den Linientypfaktor aller markierten Linien um den Faktor X verändern.
Z.B. Faktor 20:

Alle Linien deren Linientypfaktoren auf 1 stehen sollen nach dem Befehl, auf LTF 20 stehen,
alle Linien deren Linientypfaktoren auf 2 stehen sollen nach dem Befehl, auf LTF 40 stehen...
usw.

Den LKFAKTOR kann ich in diesem Fall nicht ändern (können schon, wollen nicht).

Hat da jemand einen Tipp, oder eine LISP ?

------------------
Mit freundlichen Grüssen

Attilio

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

---

Hallo Attilo,

benutz doch den Befehl sauswahl, dort Linien auswählen und nach entprechendem Linientypfaktor "filtern" lassen und danch im Eigenschaftsfenster den Wert für alle ausgeählten Linien ändern.
Das würde für Linien, Polylinien, Kreise, etc. ungefähr so lange dauern, wie ich diesen Beitrag geschrieben habe.

Gruß
Robert

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

---

oder sowas
(defun C:NEWLTSCALE(/ AWS)
  (vl-load-com)
  (if(setq AWS(ssget))
    (mapcar
      '(lambda(X / Y)
        (if(and(setq Y(vlax-ename->vla-object(cadr X)))
                (setq LF(vl-catch-all-apply 'vla-get-linetypescale (list Y)))
            )   
          (vl-catch-all-apply 'vla-put-linetypescale (list Y (* LF 20)))
        ) 
      ) 
      (ssnamex AWS)
    ) 
  )
) 

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

---

Hallo Fiedel,

ich habe ja im Auswahlsatz Linien mit unterschiedlichsten Linientypfaktoren (1,2,20, etc...).
Ich kann das ja nicht global ändern auf z.B. 50, sondern muss ja jeden Linentypfaktor einzeln betrachten.

Im Auswahlsatz habe ich Linien deren LTF 1,2 und 20 ist.
Am Ende sollen die LTF 20, 40 und 400 sein (also Faktor 20).

@Cadmium:
Danke für den Tip, werde ich gleich ausprobieren.

------------------
Mit freundlichen Grüssen

Attilio

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

---

@CADdmium:

Hat funktioniert !
Super, vielen Dank ! Genau das was ich gesucht habe !

------------------
Mit freundlichen Grüssen

Attilio

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

---

Hallo cadmium
hört sich gut, bricht bei mir nach Auswahl allerdings mit folgender Meldung ab:

Befehl: NEWLTSCALE
Objekte wählen: Entgegengesetzte Ecke angeben: 5 gefunden
Objekte wählen:
; Fehler: Fehlerhafter Argumenttyp: lentityp (0 (113.743 226.556 0.0))
Befehl:

Gruß Torsten

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

---

DWG mit einem Objekt würde kein Rätselraten auslösen.
[EDIT: Sieht aber so aus als würdest du nicht mit dem obigen Code testen]
------------------
CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD

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

---

Sorry: Du lässt den Code wohl auf Objekte los, die sich auf gesperrten Layern befinden,
diese mußt du zuvor natürlich entsperren.

In der Programmierung sollte man so Objekte entweder übergehen ("normal"),
oder Layerstand merken, entsperren, Objekte ändern, Layerstand wieder herstellen.

Es ist nur ein funktionierendes Codebeispiel, kein fertiges Programmm für den Produktiveinsatz.

------------------
CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD

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

---

Hallo,

das funktioniert bei mehrfacher Auswahl scheinbar nur mit den selben Linientyp!

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

---

test-newltf.dwg newltscale.lsp

hallo
ich fands recht praktisch und wollte es mal "archivieren" - haben den Code kopiert und newltscale.lsp genannt. Dann einfach zum Testen ne neue Zeichnung mit ein paar Linien (auf Layer 0) mit unterschiedlichen LTF erstellt und probiert.
Dann brichts hat leider mit der Meldung ab.

Gruß Torsten

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

---

Zitat:

---

Original erstellt von whf_muc:
Dann brichts hat leider mit der Meldung ab.

---

servus, aber es übernimmt den neuen Faktor trotz Fehlermeldung...

------------------
<----- Bitte Systeminfo eintragen, warum siehst du hier.
Wünsche:
Tabllen (XLS,ODS) FDO nativ einbinden,  FDO-WMTS, richtige Ebenen für Layer, Erweiterter Attribut-Editor "auffrischen", dyn. Xrefs, mehrere modell Bereiche, Halo4Texte, verschränkte Attribute, Linientypen überarbeiten (doppellinien) , XREF>VISRETAIN pro XREF
Fehler:
FDORasterdaten im Layout Richtigen Maßstab verwenden, funktionierende updates u. erweiterungen inkl. installationsroutinen, Fehler zwischen Normal MAP Civil beheben

Schöne Grüsse aus der Steiermark  Bernd P.

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

---

Tausche die Zeile (ssnamex AWS) gegen (vl-remove-if 'listp (mapcar 'cadr (ssnamex AWS))), 
(vl-remove-if 'listp (ssnamex AWS))

------------------
CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD

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

---

Zitat:

---

Original erstellt von cadffm:
Tausche die Zeile (ssnamex AWS) gegen (vl-remove-if 'listp (mapcar 'cadr (ssnamex AWS))),  

---

Dann kommt auch nur eine (wenn auch andere) Fehlermeldung (Fehlerhafter Argumenttyp: consp <Objektname: 28cd3450> ).
Ich denke es hängt damit zusammen, daß die If-Schleife einmal zu oft durchlaufen wird. Habs aber noch nicht bis zu Ende ausgetüftelt (muß jetzt weg).

Jürgen

------------------
Bildung kommt nicht vom Lesen, sondern vom Nachdenken über das Gelesene. (Carl Hilty)

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

---

EDIT: Also noch einmal ganz neu:

;;------------------------------------------------------------;;
;;  Author: cadmium                                          ;;
;;------------------------------------------------------------;;
;;  LT Faktor auf 1 TW  aus Forum                            ;;
;;------------------------------------------------------------;;
(defun C:NEWLTSCALEx10 (/ AWS)
  (vl-load-com)
  (if(setq AWS(ssget))
    (mapcar
      '(lambda(X / Y)
        (if(and(setq Y(vlax-ename->vla-object X))
                (setq LF(vl-catch-all-apply 'vla-get-linetypescale (list Y)))
            )
          (vl-catch-all-apply 'vla-put-linetypescale (list Y (* LF 10)))
        )
      )
      (vl-remove-if 'listp (mapcar 'cadr (ssnamex AWS)))
    )
  )
(princ)
)
;;------------------------------------------------------------;;
;;                        End of File                        ;;
;;------------------------------------------------------------;;

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

---

Zitat:

---

Original erstellt von cadffm:
Also noch einmal ganz neu:
...

---

Nun paßt's. 
Danke auch von meiner Seite.

Jürgen

------------------
Bildung kommt nicht vom Lesen, sondern vom Nachdenken über das Gelesene. (Carl Hilty)

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

---

prima - jetzt passts
Danke

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