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