---

hallo, habe ein Frage an die Auskenner:
Ich möchte in einer Zeichnung eine ausgewählte Linie in ihrer Darstellung verändern in dem ich den Faktor CELTSCALE oder LTSCALE über die Eigenschaften verändere. Welcher Befehl da ausgeführt wird weis ich nicht genau. Kann mir jemand den Befehl so aufschreiben,das ich nur die markierte Linie über ein Button verändern kann ohne das alle anderen Linien davon betroffen sind. Oder kann man über einen Faktor für diese einzelne Linie bspweise sagen 'Line um 0,5 in Darstellung verkleiner'.
Wohlgemerkt nur für die markierte Linie!
Wer kann mir helfen ?

------------------
Gruß vom Bauvermesser;

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

---

Hi,

um nur markierte Objekte in ihrer Linientypskalierung zu verändern musst du die Objekte einfach wählen und dann unter den Eigenschaften den Linientypfaktor verändern - zum Eigenschaftsfenster kommst du via STRG+1.

Oder aber du arbeitest mit _change - da kannst du auch die Linientypskalierung verändern.

------------------
Grüsse

Thomas

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

---

hallo thomas,
über die eigenschaften die skalierung zu verändern ist mir schon klar,
ich suche einen befehl oder eine lsp mit der ich eine linie mit symbolen drauf - durch einen klick verleinern oder vergrößern kann,
mit dem befehl '_auswahl,_CELTSCALE..' geht das nicht für nur eine linie 

hat jemand eine idee

------------------
Gruß vom Bauvermesser;

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

---

Kurz zur Erläuterung
a) Eine Änderung der Systemvariable LTSCALE = globaler Skalierfaktor wirkt sich (multiplizierend) auf alle Linientypen/Abstände aus
b) Die Systemvarable CELTSCALE = Current Entity Linetypescale = aktuelle Objektlinientypskalierung wirkt sich (zusätzlich zum LTSCALE muliplizierend) als Vorgabe auf alle NEUEN Objekte aus, existierende Objekte werden davon NICHT beinflusst.
Mit EIGÄNDR/_CHPROP Option LTFaktor/_LTScale oder
ÄNDERN/_CHANGE kann die aktuelle Objektlinientypskalierung für vorhandene Objekte auf einen anderen Faktor geändert werden (wie Thomas im obigen beitrag Bbereits ausgeführt hat).

Um den Linientypskalierfaktor markierter Objekte um z.B. 50% zu verkleinern, müsste man allerdings eine Lisp-Routine schreiben, die zuerst den jeweiligen Objektskalierungsfaktor ermittelt und dann halbiert, das kann man mit _CHPROP so nicht lösen.
_CHPROP

------------------
Mit freundlichem Gruß

Udo Hübner

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

---

LTFakScale.VLX.txt

Hab auf meiner Platte noch was Entsprechendes gefunden. Siehe Anhang..
Vielleicht etwas komfortabler als _change + Taschenrechner...

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

---

danke,
eigentlich genau das richtige,
kann man in so einer vlx eigentlich was anpassen,
- würde den fest eingestellen lt faktor von 2,0 auf 0,5 umändern
habe aber keinen editor der so was liest

------------------
Gruß vom Bauvermesser;

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

---

Hallo Thomas,habe eine super lsp gefunden mit der man den 'ltfaktor' für jede Linie ja nach Wunsch Vergrößern oder Verkleinern kann.
Leider wird in der lsp nicht die markierte Linie am Bildschirm irgendwie markiert, und man weis nicht ob die Linie gegriffen wurde oder nicht,
1. kannst du mir bitte mal eine Zeile aufschreiben mit der man in dieser lsp die markierte Linie deutlich machen kann
2: kann ich mit einem einfachen Befehle (setq obj (ssget)) die Auswahl auf mehrere Linie ausdehnen

Hier für alle die lsp; habe sie von http://www.cadalyst.com/cadalyst/
(große Auswahl an Tools, sicher für viele Interessant)

;Tip1569A:  LTSMOD.LSP  Modify LTSCALE  (C)1999, Mike Haff
(defun C:LTS ()
  (setq ENT (entsel))
  (setq ENTA (entget (car ENT)))
  (princ
    "\nUSE THE NUMERIC KEYPAD - '8' TO INCREASE...'2' TO DECREASE...'ENTER' WHEN DONE"
  ) ;_ end of princ
  (while (/= (setq UP_OR_DOWN (cadr (grread))) 13)
    (progn
      (if (= (assoc 48 ENTA) NIL)
        (progn
          (setq ENTB (append (cdr ENTA) '((48 . 1.01))))
          (entdel (car ENT))
          (entmake ENTB)
          (setq ENTA (entget (entlast)))
        ) ;_ end of progn
      ) ;_ end of if
      (cond ((= UP_OR_DOWN 56) (DEC_SCALE))
            ((= UP_OR_DOWN 50) (INC_SCALE))
            (t (INVALKEY))
      ) ;_ end of cond
    ) ;_ end of progn
  ) ;_ end of while
  (princ)
) ;_ end of defun

(defun INC_SCALE ()
  (setq ENTA (subst (cons 48 (* (cdr (assoc 48 ENTA)) 0.75))
                    (assoc 48 ENTA)
                    ENTA
            ) ;_ end of subst
  ) ;_ end of setq
  (princ (strcat "\nNew ltscale is " (rtos (cdr (assoc 48 ENTA)))))
  (entmod ENTA)
) ;_ end of defun

(defun DEC_SCALE ()
  (setq ENTA (subst (cons 48 (* (cdr (assoc 48 ENTA)) 1.5))
                    (assoc 48 ENTA)
                    ENTA
            ) ;_ end of subst
  ) ;_ end of setq
  (princ (strcat "\nNew ltscale is " (rtos (cdr (assoc 48 ENTA)))))
  (entmod ENTA)
) ;_ end of defun

(defun INVALKEY ()
  (princ
    "\nINVALID KEY - USE THE NUMERIC KEYPAD - '8' TO INCREASE...'2' TO DECREASE...'ENTER' WHEN DONE"
  ) ;_ end of PRINC
) ;_ end of defun

(princ "Type LTS to run")

------------------
Gruß vom Bauvermesser;

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

---

zum sichtbar machen:
nach (setq ENTA (entget (car ENT)))
(redraw ENTA 3) einfügen

und am Ende der Routine, also vor (princ)
(redraw ENTA 4) einfügen

der Programmhauptteil arbeitet mit einem Objekt , ssget erzeugt aber einen Auswahlsatz, geht ohne mehr umzuschreiben also nicht ...

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

---

Hallöchen,

ich  habe gerade mal versucht die Lsp einzuspielen. Ich bekomme die Fehlermeldung: Fehlerhafter Lesevorgang für Zeichen (Oktal): 21 

Ich habe den Text in ein Word-Doc kopiert und umbenannt. War das falsch? Wie macht man es richtig?

Gruß

Tessa

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

---

Hallo Tessa,

nimm zum speichern einen "ordinären" Editor wie Notepad oder pass beim speichern im Word auf, daß nur Text gespeichert wird.

Es dürfen keine Formatierungen wie im Word-Doc üblich drin sind in der Lisp erscheinen.

Gruß Angelika

------------------
Lieber Fehler riskieren als Initiative verhindern.
(Reinhard Mohn)

Bitte Supportangaben eintragen, warum siehst du hier

'Wie sprechen Menschen mit Menschen? Aneinander vorbei!' (Kurt Tucholsky)

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

---

Danke, Angelika. Daran hatte ich nicht gedacht. Jetzt funktioniert es und die Lsp wird geladen.

Ist aber eine merkwürdige Funktion  . Immer 8 oder 2 wählen um den Faktor zu ändern    und dann wird irgendein Faktor automatisch angezeigt. *grübel* oder sehe ich da was falsch ??

Gruß

Tessa

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

---

 

Zitat:

---

Original erstellt von Tessa:
Ist aber eine merkwürdige Funktion    . Immer 8 oder 2 wählen um den Faktor zu ändern      und dann wird irgendein Faktor automatisch angezeigt. *grübel* oder sehe ich da was falsch ??

---

Nö,machste nicht. Den Anhang von hier haste dir aber schon angeguckt?

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

---

habe ich angesehen und geladen. Das gefällt mir da schon eher 

Gruß

Tessa

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

---

Hallo Tessa, genauso habe ich es erst auch gedacht, doch die Logik ist folgende:
Die Tasten 8 und 2 werden wie auf der Tatsatur abgebildet als 'Größer' und 'Kleiner' Tasten eingesetzt. Wenn du mehrmals auf 8 drückst wird der Faktor auf die gewählte Linie immer mit 0,75 multipliziert und die Linie wird auch gleich so dargestellt und man kann an der Abbildung sehen ob man nochmal drücken muss und kann sofort eine Änderung vornehmen. Klasse!!!!!!
Geht übrigens auch im Modellfenster.
Wenn dir der Faktor (0,75) zu groß ist, ändere ihn einfach (bsp.0,9)in der lsp, die Stelle ist leicht zu finden.
Kann  die Lsp nur allen empfehlen.

------------------
Gruß vom Bauvermesser;

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

---

Thomas-Danke für die Befehlszeilen werde versuchen klarzukommen.
melde mich nochmal

------------------
Gruß vom Bauvermesser;

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

---

Hallo Thomas, Lsp läuft mit Ergänzung leider nicht

(redraw ENTA 3)
...
...
(redraw ENTA 4)

noch eine IDEE??

------------------
Gruß vom Bauvermesser;

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

---

war ein Variablenmischmasch

(defun C:LTS ()
  (setq ENT (entsel))
  (redraw (car ENT 3))
  (setq ENTA (entget (car ENT)))
  (princ
    "\nUSE THE NUMERIC KEYPAD - '8' TO INCREASE...'2' TO DECREASE...'ENTER' WHEN DONE"
  ) ;_ end of princ
  (while (/= (setq UP_OR_DOWN (cadr (grread))) 13)
    (progn
      (if (= (assoc 48 ENTA) NIL)
        (progn
          (setq ENTB (append (cdr ENTA) '((48 . 1.01))))
          (entdel (car ENT))
          (entmake ENTB)
          (setq ENTA (entget (entlast)))
        ) ;_ end of progn
      ) ;_ end of if
      (cond ((= UP_OR_DOWN 56) (DEC_SCALE))
            ((= UP_OR_DOWN 50) (INC_SCALE))
            (t (INVALKEY))
      ) ;_ end of cond
    ) ;_ end of progn
  ) ;_ end of while
  (redraw (car ENT) 4)
  (princ)
) ;_ end of defun

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

---

läuft nicht, trotzdem dank

------------------
Gruß vom Bauvermesser;

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

---

test mal nochmal, hab noch ein car eingefügt..(aber immer noch nicht selbst getestet  )

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

Diese Zeile noch änder Klammer falsch.

 
  (redraw (car ENT )3)
 
  mfg heinz
 

------------------
Heinz 

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

---

Danke allen, jetzt läufts

------------------
Gruß vom Bauvermesser;

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