---

Reihe.zip

Hallo

Ich habe eine Frage an andere Anwender des Programms.

Im Anhang seht ihr dazu ein Beispiel-Schnitt von einem Gebäude.

Wie würdet ihr die vertikalen Hilfslinien für die Wände erstellen?

Es gibt ja eigentlich vier Vorgehensweisen:

1. Man zeichnet die vertikale Hilfslinie ganz links, wählt Versetzen, tippt 20 ein, erstellt die Parallele, wählt erneut versetzen, tippt 2 ein, wählt die zweite Linie aus usw.

2. Dasselbe könnte man auch mit dem Befehl „Kopieren“ machen, Befehl wählen, erste Linie 20 rüber kopieren, wieder den Befehl wählen, zweite Linie wählen und 2 m rüber kopieren usw.

3. Oder man zeichnet die vertikale Linie ganz links, wählt Versetzten, tippt 20 ein, erstellt die Parallele, wählt wieder den Befehl, gibt 2.20 ein und wählt erneut die erste Linie (hat zum Vorteil, das man nicht immer die nächste Linie anklicken muss, man muss aber gut im Kopfrechnen sein).

4. Befehl Kopieren wählen, erste Linie auswählen, Abstand 20 eintippen, dann 2.20, dann 250 usw. Damit ist man sicherlich am schnellsten.

Mir kam jedoch der Gedanke, dass das doch auch einfacher gehen müsste? Wir würde ihr das machen?

Ich habe mal versucht mit dem Befehl „Reihe…“ beim Spaltenabstand die einzelnen Abstände einzutippen und mit Kommas zu trennen, das funktioniert jedoch nicht (Bild ebenfalls im Anhang).

Gibt es einen anderen Befehl oder könnte man dazu irgendwie eine Lisp-Datei erstellen? Oder kennt jemand eine solche? Oder ein Makro von div. Eingaben/Befehlen zusammen basteln?

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

---

Edit: gelöscht - man sollte halt die Aufgabe genau lesen.

------------------
Ciao Günter
--------------------------------------------------------------------------------
"Wir haben keine Probleme, sondern Aufgaben zu lösen."

[Diese Nachricht wurde von GWH am 05. Mai. 2011 editiert.]

[Diese Nachricht wurde von GWH am 05. Mai. 2011 editiert.]

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

---

Nicht elegant, aber funktionierend

   (defun c  k ()
     (setq x1 (entsel "Wähle Strecke oder Polyline: "))
     (terpri)
     (setq stp1 (getpoint "Auf welche Seite soll verschoben werden?"))
     (terpri)
     (setq x2 (getdist "Abstand zur gezeigten Strecke:"))
     terpri
     (command "_offset" x2 x1 stp1 "")
     (setq x3 (getdist "Abstand zur letzten Linie:"))
      (setq sux (+ x2 x3))
      (command "_offset" sux x1 stp1 "")

     (setq x3 (getdist "Abstand zur letzten Linie?"))
      (setq sux (+ sux x3))
       (command "_offset" sux x1 stp1 "")
         terpri

     (setq x3 (getdist "Abstand zur letzten Linie?"))
      (setq sux (+ sux x3))
       (command "_offset" sux x1 stp1 "")
         terpri

     (setq x3 (getdist "Abstand zur letzten Linie?"))
      (setq sux (+ sux x3))
       (command "_offset" sux x1 stp1 "")
         terpri

     (setq x3 (getdist "Abstand zur letzten Linie?"))
      (setq sux (+ sux x3))
       (command "_offset" sux x1 stp1 "")
         terpri

     (setq x3 (getdist "Abstand zur letzten Linie?"))
      (setq sux (+ sux x3))
       (command "_offset" sux x1 stp1 "")
         terpri

     (setq x3 (getdist "Abstand zur letzten Linie?"))
      (setq sux (+ sux x3))
       (command "_offset" sux x1 stp1 "")
         terpri

     (setq x3 (getdist "Abstand zur letzten Linie?"))
      (setq sux (+ sux x3))
       (command "_offset" sux x1 stp1 "")
         terpri

     (setq x3 (getdist "Abstand zur letzten Linie?"))
      (setq sux (+ sux x3))
       (command "_offset" sux x1 stp1 "")
         terpri

     (setq x3 (getdist "Abstand zur letzten Linie?"))
      (setq sux (+ sux x3))
       (command "_offset" sux x1 stp1 "")
         terpri

(setq x3 (getdist "Abstand zur letzten Linie?"))
      (setq sux (+ sux x3))
       (command "_offset" sux x1 stp1 "")
         terpri

     (setq x3 (getdist "Abstand zur letzten Linie?"))
      (setq sux (+ sux x3))
       (command "_offset" sux x1 stp1 "")
         terpri

     (setq x3 (getdist "Abstand zur letzten Linie?"))
      (setq sux (+ sux x3))
       (command "_offset" sux x1 stp1 "")
         terpri

     (setq x3 (getdist "Abstand zur letzten Linie?"))
      (setq sux (+ sux x3))
       (command "_offset" sux x1 stp1 "")
         terpri

     (setq x3 (getdist "Abstand zur letzten Linie?"))
      (setq sux (+ sux x3))
       (command "_offset" sux x1 stp1 "")
         terpri

     (setq x3 (getdist "Abstand zur letzten Linie?"))
      (setq sux (+ sux x3))
       (command "_offset" sux x1 stp1 "")
         terpri

     (setq x3 (getdist "Abstand zur letzten Linie?"))
      (setq sux (+ sux x3))
       (command "_offset" sux x1 stp1 "")
         terpri

     (setq x3 (getdist "Abstand zur letzten Linie?"))
      (setq sux (+ sux x3))
       (command "_offset" sux x1 stp1 "")
         terpri

     (setq x3 (getdist "Abstand zur letzten Linie?"))
      (setq sux (+ sux x3))
       (command "_offset" sux x1 stp1 "")
         terpri
        
)

PS: bitte Kommasetzung bei den Zahlenangaben(Deine Anfrage) beachten, damit der Leser es leichter hat ;-)

[Diese Nachricht wurde von cad4fun am 05. Mai. 2011 editiert.]

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

---

ich würde über meine Arbeitsweise grundsätzlich nachdenken und z. besser den vorhandenen Grundriss als Xref einfügen und dessen Linien als Fangpunkt für die Hilfslinien des Schnittes nutzen

------------------

Gruß Thomas
CADdog, the dog formerly known as TR

AutoCAD spricht mit einem, aber viele hören nicht zu.

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

---

@cad4fun

Code:

---

    (setq x3 (getdist "Abstand zur letzten Linie?"))
      (setq sux (+ sux x3))
      (command "_offset" sux x1 stp1 "")
        terpri

---

das kann man doch sicher in eine schleife setzen oder?

da wird man schon beim überfliegen uschig 

------------------
Mfg Heiko

Elefantenjagd in Afrika
"... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..."

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

---

Gebe auch noch meinen Senf dazu 

Code:

---

(defun c:vers-vortlaufend ( / ent pkt abstand eingabe)
  (setq ent (entsel "\nZu Versetzendes Objekt wählen: ")
        pkt (getpoint "\nPunkt auf Seite angeben, auf die versetzt werden soll: ")
        abstand 0)
 
  (while abstand
    (if (setq eingabe (getreal "\nAbstand angeben: "))
      (progn
        (setq abstand (+ abstand eingabe))
        (command "_offset" abstand ent pkt "")
      )
      (setq abstand nil)
     
    )
  )
  (princ)
)

---

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

---

Danke Steff,
Routine stammt aus meinen Anfangslisptagen. Inzwischen bin ich einen halben Schritt weiter, was meine Kenntnisse betrifft und nachdem es ja funktioniert hat, greife ich sowas nicht an. Danke für Deinen Aufwand.

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

---

@ cad4fun
Danke für den Code, genau das, was ich brauche. Zum Glück konnte ich anhand der Zitieren-funktion noch den Anfang des Codes heraus finden, da der Smilie ja wohl nicht dazu gehört. Ist zwar nicht eine Endlosschleife, aber 20 Abstände genügen sicherlich. Und sonst kann ich den Befehl ja einfach nochmals starten.

@ CADdog
Wenn man einen alten von Hand gezeichneten Plan besitzt und davon nur einen Schnitt braucht? Es gibt immer mal Situationen, in der ein solcher Befehl praktischer ist als Xref oder Block des Grundrisses zur Hilfe zu nehmen.

@ Steff179
Danke für den Code, funktioniert wunderbar, ist leider aber “nur“ vom ersten Element an aktiv, also gleich wie wenn ich den Kopierebefehl verwenden würde.

Danke für eure Hilfe.

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

---

Zitat:

---

Original erstellt von BaCAD:
@ Steff179
Danke für den Code, funktioniert wunderbar, ist leider aber “nur“ vom ersten Element an aktiv, also gleich wie wenn ich den Kopierebefehl verwenden würde.

---

Ist nicht gleich wie wenn du den Kopierbefehl verwenden würdest. Du musst nicht rechnen  was ja eigentlich der Sinn sein sollte.

Wenn du zbsp.
0.2 enter
2 enter
0.3 enter
1 enter
0.2 enter
enter

eingiebst, hast du nachher 6 Linien inkl. der Ursprungslinie und die sind Total 3.7m Auseinander...

Aber wenn das andere funktionier auch gut.

Gruss

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

---

Zitat:

---

Original erstellt von BaCAD:

@ Steff179
Danke für den Code, funktioniert wunderbar, ist leider aber “nur“ vom ersten Element an aktiv, also gleich wie wenn ich den Kopierebefehl verwenden würde.

---

Nein, nein, Steff's Code funktioniert im Ergebnis genau so wie meiner. Habe meinen bereits gegen seinen ausgetauscht.

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