---

mvaria.zip

hallo zusammen.

ich habe hier eine kleine lsp datei, die unter acad 2006 das skalieren mehrerer objekte mit unterschiedlichen basispunkten ermöglicht. leider läßt sich die datei nicht mehr unter acad 2011 ausführen. wer kann helfen?

(defun c:mvaria (/ ss ed en en_main faktor neulaenge bezlaenge pt text )

  (c:eaws_err)                        ;        Fehlerroutine laden (AutoLoad)
;;(eaws_SETERROR)
  (eaws_SETVAR "CMDECHO" 0)
  (eaws_SETVAR "OSMODE" 0)
  (eaws_UNDOGROUP)

  (defun text (var /)
    (eaws_text "MVARIA" "MVARIA" var)
  )

  (if (setq ss (ssget))
    (progn
      (initget 7 (text "InitBezug"))
      (setq faktor (getdist (text "FaktorBezug")))
      (if (eq faktor (text "InitBezug"))
        (progn
          (initget 7)
          (setq bezlaenge (getdist (text "Bezugslaenge")))
          (initget 7)
          (setq neulaenge (getdist (text "NeueLaenge")))
          (setq faktor (/ neulaenge bezlaenge))
        )
      )
      (while (> (sslength ss) 0)
        (setq en_main (setq en (ssname ss 0)))
        (setq ed (entget en))
        (if (equal (assoc 0 ed) '(0 . "POLYLINE"))
          (progn
            (setq en (entnext en))
            (setq ed (entget en))
          )                              ;progn
        )                                ;if
        (setq pt (trans (cdr (assoc 10 ed)) en 1)) ;transformiert ins BKS
        (command "_scale" en_main "" pt faktor)
        (setq ss (ssdel en_main ss))
      )                                  ;while
    )
  )

;;(eaws_ERROR nil)                  ; Verlassen ohne Fehler
  (eaws_SETVAR "CMDECHO" 1)
  (princ)
)
(princ)

danke

------------------
herzliche grüße
matthias

  ... blue sky and happy landing

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

---

Wie ist denn die Meldung ?
imho liegt es nicht an dieser Lispdatei, eher an der Funktion
eaws_text welche aber nicht darin definiert ist.

------------------
CAD.de System-Angaben  -  CAD on demand  -  User:FAQ(Acad)

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

---

hallo.

die meldung lautet:

Befehl: mvaria
; Fehler: no function definition: C:EAWS_ERR
Befehl:

------------------
herzliche grüße
matthias

  ... blue sky and happy landing

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

---

auch diese Funktion ist in der anhängenden Datei nicht definiert, nach deiner Antwort
wäre meine neue Schlußfolgerung:

Es hat nichts mit AutoCAD zutun, du hast nur nicht alle Programmteile (Dateien) geladen !

------------------
CAD.de System-Angaben  -  CAD on demand  -  User:FAQ(Acad)

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