Hi, ich habe da etwas im CAD.DE Forum gefunden das mir die "x" Blöcke relativ zum Basispunkt und ihrem Drehwinkel um eine einzugebende ZE verschiebt jedoch habe ich da kleine Probleme: ich habe es so gemacht dass ich einen Block einklicke dieser dann als Referenz
...
(setq block (entsel "\nVORGABEBLOCK WÄHLEN:")
block (if block
(car block)
)
)
(if (and block
(= "INSERT" (cdr (assoc 0 (entget block))))
)
(setq bname (cdr (assoc 2 (entget block)))
bang (* (/ (cdr (assoc 50 (entget block))) pi) 180.0)
#bloecke (ssget "x" (list (cons 0 "INSERT") (cons 2 bname)))
x 0
)
)
gespeichert wird mit Winkel dann entsprechend in die Richtung einfach geschoben wird.
....
Wie richte ich das ein dass alle gleichnammigen ebenfalls in Abhänigkeit von ihren Winkel um die eingegebene Entfernung verschoben werden ? Muss ich dann wirklich für jeden Block einen Verschiebevektor mit Berücksichtigung einer Spiegelung (GC 41,42,43) errechnen. Wie ist es am besten mit der Eingabe (Interaktiv => Reaktor {da habe ich etwas Angst vor} nötig ?) oder kann ich den alten Basispunkt des Blockes (WKS) dann einfacher verrechnen ?
Hoffe das ich es halbwegs gut erklärt habe und mir mit Tipps helfen kann.
------------------
"Lisp?!?! Why the Hell did you pick the most arcane, obscure, and hopelessly-rooted-in-the-computer-science-department language in the world for an AutoCAD programming language?" Read the whole story: The Autodesk File ca. 890 Seiten | 7500 KB PDF
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP