---

Hallo zusammen,

ich hab einen Längsschnitt vor mir und es soll von der Geländeoberkante eine parallele nach unten erzeugt werden(Abstand 1.1m).
Folgendes habe ich mir nun gedacht um dies mit kleinen Schritten zu tun:

Code:

---

(defun C:DeckLinie (/)

(setq gelaende (SSGET))  ;Geländeoberkante wird ausgewählt
(setq BP (getpoint "\nBasispunkt auswählen: "))
(setq BPx (car BP))  ;X-Koordinaten werden ausgelesen
(setq BPy (cadr BP))  ;Y-Koordinaten werden ausgelesen
(setq BPy1 (- BPy 1.1))  ;Y-Koordinaten -1.1m
(setq BP1 '(BPx BPy1))  ;BP1 mit X- und Y-Koordinaten

(command "_Copy" gelaende "" BP BP1)  ;Geländeoberkante kopieren und 1.1m weiter unten einfügen

) ;end defun

---

Ich gehe davon aus, das ich irgendwo in den Auswahlsätzen einen Hänger habe.
Nach dieser Funktion soll dann die eingefügte Linie auf einen seperaten Layer gelegt werden, aber das müsste ich dann wieder hinbekommen.
Für Tipps, Tricks und Anregungen, würde ich mich sehr freuen 

Grüße
Silcono

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

---

(setq BP1 (list BPx BPy1))
oder
(setq BP1 (list BPx BPy1 0.0))

------------------
Also ich finde Unities gut ... und andere sicher auch
---------------------------------------
  - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Vielen Dank CADmium!!!
Funktioniert!

Gruß Silcono

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

---

Es geht auch, ohne einen Basispunkt zu wählen.
Außerdem hab ich noch eine zusätzliche Anfrage sowie eine Meldung falls nichts gewählt wird eingebaut.

Code:

---

(defun C:DeckLinie (/ gelaende )
  (Prompt "Bitte Geländeoberkante(n) wählen:")
  (if (setq gelaende (SSGET))  ;Geländeoberkante wird ausgewählt
    (command "_Copy" gelaende "" (list 0.0 -1.1) "") ;Geländeoberkante  1.1m nach unten kopieren
    ;else
    (prompt "nichts zu kopieren gewählt.")
  )
  (prin1); nil am Ende unterdrücken
) ;end defun

---

------------------
Mit freundlichem Gruß

Udo Hübner
www.CAD-Huebner.de

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

---

Hallo CAD-Huebner,
vielen Dank für deine elegante Lösung, gefällt mir sehr gut.

Ein Frage hätte ich noch:

Kann ich die die Geländeoberkante, in einen bestimmten Layer kopieren?
Hätte hierfür ja den Befehl _Chprop um den Layer zu ändern. Aber mir fehlt der Ansatz, die kopierten Elemente in eine Variable zu stecken.

Vielen Dank im Voraus und beste Grüße

Silcono

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

---

kopieren? die Oberkante oder die neu erzeugte Linie?

Layer von Objekten ändern: Das geht grundsätzlich mit ÄNDERN
Für _chprop/eiganpass müßte man ja zuvor ein anderes Objekt wählen?

Layer für die vorhandenen Oberkanten-Objekte
Der Auswahlsatz der Elemente für die Oberkante hast du bereits in der Variable "gelaende",
diese kannst du mit dem Befehl ÄNDERN anpassen (zuvor dafür Sorgen das der Layer auch wirklich existiert)

Layer für die neuen Objekte:
Die neu erzeugten Objekte kannst du nicht "so einfach" fassen, aber mit etwas nachdenken klappts auch mit einfachem Makro:
Ändere den Layer der vorhandenen Objekte (Ziellayer der neuen Objekte),
für den Kopiervorgang durch, ändere den Layer der alten "gelaende"Objekte wieder.

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

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

---

Hallo cadffm,

danke für deine Hilfestellung, aber habe es noch kurzer Googlei von Funktionen, einfacher hinbekommen:

Code:

---

(defun C:DeckLinie (/ gelaende )

  (Prompt "Bitte Geländeoberkante(n) wählen:")
 
  (if (setq gelaende (SSGET))  ;Geländeoberkante wird ausgewählt
    (command "_copytolayer" gelaende "" "T-WB_110 cm Linie" (list 0.0 -11.0) "") ;Geländeoberkante  1.1m nach unten kopieren
    ;else
    (prompt "nichts zu kopieren gewählt.")
  )
 
  (prin1); nil am Ende unterdrücken
 
) ;end defun

---

Also ich habe den Code jetzt von CAD-Huebner übernommen und den Befehl dementsprechend angepasst.
Funktioniert einwandfrei.

Nicht wundern bzgl. '-11.0', ich hab eine Überhöhung in meinem Schnitt  

Viele Grüße und Danke an euch alle!

Silcono

[Diese Nachricht wurde von silcono am 03. Nov. 2016 editiert.]

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