---

hallo

ich habe das problem, dass ich im autocad (2004) nicht frei skalieren/transformieren kann.
die klassische skalierfunktion in verbindung mit "bezug" wäre optimal, wenn sie auch unproportional zu nutzen wäre.
ich hatte schon die idee mit punktefiltern zu skalieren, komme da aber zu keinem ergebnis. (2x seperat in x- und dann in y-richtung skalieren)

habe schon versucht, meine objekte als block zu skalieren. problem ist nur, dass dies per faktor geschehen muss. ich benötige aber eine grafisch variante mit griffpunkten.

beim einfügen von blöcken funktioniert es ansatzweise. ich definiere den ursprungspunkt (liegt genau links unten) und könnte den oberen rechten griffpunkt perfekt positionieren, wenn!!! mein zweiter griff nicht mittig in meinem block sitzen würde.

gibt es eine möglichkeit irgendwo einzustellen, das die beiden griffpunkte diagonal am äussersten rand meines blocks positioniert sind?

oder eben eine andere möglichkeit der freien transformation.

vielen dank im voraus
arno

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

---

Hallo Arno,

meinem Wissen nach gibt es mit Acad-Bordmitteln nur die Möglichkeit Objekte per Blockfaktor ungleichmäßig zu skalieren.

Per Lisp-Programm läßt sich das auch mit Mausauswahl realisieren.
Hier mal ein Ansatz:

Code:

---

(defun C:ModX()
  (setq ed(entget(car(entsel))))
  (setq xf(cdr(assoc 41 ed)))  ;X-Faktor auslesen / Y=42 / Z=43
  (setq bp(getpoint "\nBasispunkt angeben:"))
  (setq bl(getdist bp "\nBezugslänge angeben"))
  (setq xfneu(/ (* xf (getdist bp "\nNeue Länge angeben:")) bl))
  (setq ed (subst  (cons 41 xfneu) (assoc 41 ed) ed))  ;neuen X-Faktor übernehmen
  (entmod ed)
(princ)
)

---

Der Befehl müsste noch folgendermaßen erweitert werden:
- Fehlerroutine bei xfneu=0
- Optionsauswahl um auch y- und z-Faktor verändern zu können
- das Programm sollte automatisch einen neuen Block erstellen und als Basispunkt "bp" verwenden,
  um die Objekte vom Basispunkt ausgehend skalieren zu können.
  Anschließend Block wieder automatisch auflösen.
- skalieren in negative Richtung

Da ich mich noch nicht so gut in Lisp auskenne muss dir dieser Ansatz vorerst reichen.
Vielleicht hat ja einer der Lisp-Experten im Forum interesse daran, den Befehl zu perfektionieren (Mapcar, CADmium, marc.scherer, tunnelbauer...).

Oder vielleicht gibt es dafür auch schon einen fertigen Lisp-Befehl.

Würd mich auf jeden Fall auch interessieren.

------------------
Gruß
Markus

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

---

Hi,

Zitat:

---

Original erstellt von Jonapap:

Oder vielleicht gibt es dafür auch schon einen fertigen Lisp-Befehl.

---

gibt es. Heißt VARIO.lsp und lässt sich mit der Suche finden.

Gruß
CADchup

------------------
CADmaro.de

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

---

hallo

danke erst einmal für die tips. und auch schade. ich hatte gehofft eine
lispanwendung umgehen zu können.
da ich zwar kein cad-noob bin aber in lisp ebenfalls recht unbewandert bin,
kostet mich die anwendung unverhältnismäßig viel zeit, die ich leider momentan nicht habe...

nichts desto trotz werde ich bei gelegenheit damit wohl auseinandersetzen müssen.
nochmals vielen dank und
viele grüsse
mimikri

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

---

http://ww3.cad.de/foren/ubb/Forum54/HTML/007058.shtml
Hier findest Du Hilfe.
Ich schätze den zeitaufwand für googeln, Hilfe lesen ,speichern und Laden der Routine auf ca. 15min.
Das sollte doch nicht unverhältnismäßig viel sein.

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