---

Hallo Lisp-Profis

Bin gerade dabei, ein Makro zum zeichnen von Blechen im Querschnitt zu proggen.
Nach Aufruf des Makros zeichne Ich einen Polylinienzug - gebe eine Versetzrichtung an und versetze die Polylinie um die vorher definierte Blechstärke.
Nun möchte Ich die jeweiligen Start -und Endpunkte miteinander verbinden.
Wie bekomme Ich nun Start- und Endpunkt bei der durch versetzen gezeichneten Polylinie?
Bin hier im Moment komplett auf dem Holzweg.

- Mario -

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

---

da brauchst du doch bloß den GC70 auf 1 setzen ... ??

ansonsten ( wenn du eine LWPolylinie hast ) den 1. GC10 und den letzten GC10
------------------
      - 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

---

Hallo Mario,

und wenn du dir anstatt einer Polylinie eine Multilinie mit einem Multilinienstil erstellen läst, bei dem die Enden geschlossen sind.

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

---

Hallo Mario,
geht folgendes?

Code:

---

(defun c:test ( / ENDPOINT STARTPOINT VLA_OBJ)
(setq vla_obj (vlax-ename->vla-object (car(entsel "\nPoly wählen:"))))
(setq startPoint (vlax-curve-getStartPoint vla_obj))
  (setq endPoint (vlax-curve-getEndPoint vla_obj)))

---

------------------
viele Grüße

Jörn
http://www.bosse-engineering.com

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

---

ach so .... na da kann ich schnell was von der Platte anpassen:

(defun C:BLECH (/ PL BREITE VLA-PL PL1 PL2 OLDCMD oldosm)
 
  (if(and(setq PL (car(entsel "\n LWPolylinie wählen: ")))
        (setq BREITE (getreal "\n BLECHDICKEe : "))
        (=(cdr(assoc 0(entget PL))) "LWPOLYLINE")
    )   
    (progn
      (setq VLA-PL (vlax-ename->vla-object PL))
      (setq PL1(car(vlax-safearray->list(vlax-variant-value(vla-offset VLA-PL (/ BREITE  2.0))))))
      (setq PL2(car(vlax-safearray->list(vlax-variant-value(vla-offset VLA-PL (/ BREITE -2.0))))))     
      (vla-addvertex PL1 0 (vla-get-coordinate PL2 0))
      (vla-setbulge PL1 (1-(/(length(vlax-safearray->list(vlax-variant-value(vla-get-coordinates PL1))))2))0)
      (vla-addvertex
        PL1
        (/(length(vlax-safearray->list(vlax-variant-value(vla-get-coordinates PL1))))2)
        (vla-get-coordinate
          PL2
          (1-(/(length(vlax-safearray->list(vlax-variant-value(vla-get-coordinates PL2))))2))
        )
      )
      (vla-delete VLA-PL)
      (setq OLDCMD(getvar "cmdecho"))
      (setq OLDOSM(getvar "osmode"))
      (setvar "cmdecho" 0)
      (setvar "osmode" 0)
      (vl-catch-all-apply
        'vl-cmdf
        (list "_pedit" (vlax-vla-object->ename PL1) "_j" (vlax-vla-object->ename PL2)"" "")
      )
     
      (setvar "cmdecho" oldcmd)
      (setvar "osmode" oldosm)
    )
  )
  (princ)
)

------------------
  - 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

---

@cadmium

GC nehme Ich an = Gruppencode?
Wie sieht so eine Schleife aus, in der ich an den 1. und letzten GC 10 komme?

@thors-hammer

Das mache Ich derzeit.
Ich möchts nur einfach gerne etwas eleganter haben und in weiterer folge auch die Biegeradien draufbringen. (Zusatzapplikationen wie Athena, Syscad,... kommen leider nicht in Frage)

@jörn + cadmium
Leider Absturz mit:
; Fehler: no function definition: VLAX-ENAME->VLA-OBJECT

Bin leider noch ziemlicher Newbie, was LISP angeht und daher noch etwas wackelig auf den Beinen.

- Mario -

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

---

ok .. da fehlt
(vl-load-com)
an Anfang..
also

(defun C:BLECH (/ PL BREITE VLA-PL PL1 PL2 OLDCMD oldosm)
  (vl-load-com)
  (if.........

------------------
      - 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

---

@cadmium

Funktioniert.

Der andere Weg mit den GC's würde mich trotzdem interessieren.
Wie lese ich in einer Schleife (nehme ich an) die einzelnen GC's aus und speichere 1. und letzten in entsprechende Variabeln?
In VBA wär das für mich alles kein Problem aber wie gesagt -> Lisp lerne ich gerade autodidakt.

LG, Mario

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

---

zum Verständnis .. teste mal die Zeilen einzeln duch copy&paste in der Befehlszeile ...

(setq OBJ(car(entsel "\nPL wählen:")))
(setq DATA(entget OBJ))
(setq GC10LIST(vl-remove-if-not '(lambda(X) (=(car X) 10)) DATA))
(setq PKTS(mapcar 'cdr GC10LIST))
(setq START(car PKTS))
(setq ENDE(car(reverse PKTS)))

------------------
  - 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

---

Oh Mann - jetzt kommts dicke.
mapcar und lambda - ich habs befürchtet.
Trotzdem aufgrund der Schritt für Schritt-Variante super nachvollziehbar obwohl ich mich mit den ganzen vl(ax) noch nicht so auskenne.
Trotzdem Danke für die tollen Beispiele.

LG, Mario

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

---

du must ja nicht mapcar nehmen ....

(foreach GCWERT DATA
  (if(=(car GCWERT) 10))
    (setq PKTS(cons (cdr GCWERT) PKTS))
  )
)
(setq PKTS(reverse PKTS))

------------------
  - 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