---

Hallo

mit dem globalen ltfaktor kann man ja den Faktor (Variable) für alle enthaltenen Linien einstellen.

Nun meine Frage. Kann man so was auch bei Schraffuren ermöglichen. Also den Skalierfaktor global anpassen. Hintergrund ist der das eine Zeichnung in 2 verschieden Maßstäben ausgeplottet wird. Die Möglichkeit 2 verschiedene Layer zu verwenden ist mir bekannt.

Oder gibt es vielleicht andere Tipps.

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

MfG Schlotti

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

---

Nicht ohne die Schraffur neuzudefinieren...

(auch keine anderen Tricks möglich)

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

Thomas

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

---

Würde es dir reichen, die Schraffurskalierung einfach global für alle Schraffuren zu multiplizieren, z.B. alle Schraffurskalierungen x einen bestimmten Wert ?

Als Beispiel ein Lisp dass es abhänig von dem aktuellen Bemassungstillmaßstab anpasst.

Code:

---

(defun c:dimhatch (/ ss n dimscale)
  (if (setq ss (ssget ":L" '((0 . "HATCH"))))
    (progn
      (setq n 0)
      (if (zerop (setq dimscale (getvar "dimscale")))
(setq dimscale 1.0)
)
      (repeat (sslength ss)
(vl-cmdf
  "._hatchedit"
  (ssname ss n)
  "_prop"
  ""
  dimscale
  ""
  )
(setq n (1+ n))
)
      )
    )
  (princ)
  )

---

Vielleicht hat ein Profi, Bock (vla-put-patternscale objhatch (* X (vla-get-patternscale objhatch))) zu coden ... oder bereits fertig. Lustig wäre es natürlich in Abhänigkeit des Ansichtsfenstersfaktors im Papierbreich und global für den ganzen Modellbereich. 

Ansatz:

Code:

---

(defun c:hsu () (c:hatchscaleup))
(defun
    c:HatchScaleUp (/ objhatch patterntype)
  (setq
    objHatch (vlax-ename->vla-object (car (entsel)))
    patterntype (vla-get-patterntype objHatch)
    )
  (if (or (= acHatchPatternTypePreDefined patterntype)
  (= acHatchPatternTypeCustomDefined patterntype)
  )
    (vla-put-patternscale objhatch (* 1.5 (vla-get-patternscale objhatch)))
    (vla-put-patternspace objhatch (* 1.5 (vla-get-patternspace objhatch)))
    )
  (vla-update objhatch)
  )

(defun c:hsd () (c:hatchscaledown))
(defun
    c:HatchScaleDown (/ objhatch patterntype)
  (setq
    objHatch (vlax-ename->vla-object (car (entsel)))
    patterntype (vla-get-patterntype objHatch)
    )
  (if (or (= acHatchPatternTypePreDefined patterntype)
  (= acHatchPatternTypeCustomDefined patterntype)
  )
    (vla-put-patternscale objhatch (* 0.75 (vla-get-patternscale objhatch)))
    (vla-put-patternspace objhatch (* 0.75 (vla-get-patternspace objhatch)))
    )
  (vla-update objhatch)
  )

---

------------------
MfG Proxy

Bitte beachten Sie: Die Verwendung der hier bereitgestellten Signatur geschieht auf Ihre eigene Verantwortung. Diese Signatur wird ohne Gewähr auf Richtigkeit, Vollständigkeit und/oder Funktionalität, sowie ohne Anspruch auf Support zur Verfügung gestellt.

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

---

Danke erst einmal!

Ich konnte mir es schon denken. Ist aber nicht so schlimm. Bisher ging es ja auch ohne!

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

MfG Schlotti

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

---

scalehatch.zip

Hi, habe da mal für acad 2004-2006 eine arx "gebastelt".

enthält aber keine gross fehlerprüfung.... also anwendung auf eigene gefahr.

cruss criecky 
<A HREF="http://www.cbyte.de

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

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

Softlan</A>  macht das Netzwerk weich!

[Diese Nachricht wurde von criecky am 04. Sep. 2006 editiert.]

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