---

Hallo Zusammen,

ich komme leider nicht mehr weiter.
Ich möchte zwei funktionierende Programm in eines verbinden.
Alle vorhanden Objekte drehen und schieben. (Die Objekte sind alle auf Layer 0)

Hier mein letzter Versuch:

(defun C:DrehenSchiebenTest ( / DrehenTest SchiebenTest ())

;drehen der Daten
(defun DrehenTest ( / BasisDrehenP1 Winkel AWS1)
(if(and(setq BasisDrehenP1 (list 0 0 0)
)
(setq Winkel -90)
(setq AWS1(ssget "X" (list'(-4 . "<or")
'(-4 . "<and")
'(0 . "circle")
'(62 . 256)
'(-4 . "and>")
'(0 . "POLYLINE,LWPOLYLINE,line")
'(-4 . "or>")
(cons 410 (getvar "CTAB")
)
)
)
)
)
(command "_rotate" AWS1 "" BasisDrehenP1 Winkel )
)
)
;schieben der Daten
(defun SchiebenTest ( / BasisSchiebenPos1 Pos2 AWS)
(if(and(setq BasisSchiebenPos1 (list 0 0 0)
) ;
(setq Pos2 (list -166.5 226.5 0)
)
(setq AWS(ssget "X" (list'(-4 . "<or")
'(-4 . "<and")
'(0 . "circle")
'(62 . 256)
'(-4 . "and>")
'(0 . "POLYLINE,LWPOLYLINE,line")
'(-4 . "or>")
(cons 410 (getvar "CTAB")
)
)
)
)
)
(command "_move" AWS "" BasisSchiebenPos1 Pos2 )
)
)

Vielen Dank schon mal im Voraus.

Gruß

hummel.mj

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

---

Zitat:

---

Original erstellt von hummel.mj:(defun C:DrehenSchiebenTest ( / DrehenTest SchiebenTest ())

---

wenn du den Schreibfehler? "()" entfernst und den geposteten Code um folgende drei Zeilen ergänzt:

Code:

---

(DrehenTest)
(SchiebenTest)
)

---

Sollte es funktionieren.

------------------
CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD

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

---

Hallo cadffm,

vielen Dank für die schnelle Hilfe.

Gruß

hummel.mj

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