---

Hallo!

Ich habe hier eine Routine, mit der ich die Länge einer Linie abfragen kann.
Meine Frage ist die, wie schaffe ich das Ergebnis als Text an die Linie zu erzeugen? Das muss irgenwie mit (command "text"...) möglich sein, weiss aber das anzustellen.

(defun c:ll ( / gl l el eldat)
(setq el (entsel))
(while el
(setq eldat (entget(car el)))
(if (= (cdr (assoc 0 eldat)) "LINE")
(progn
(setq l (distance (cdr (assoc 10 eldat)) (cdr (assoc 11 eldat))))
(princ "
Länge Teilstück: ")
(princ l)
(if gl
(setq gl (+ gl l))
(setq gl l)
)
)
(princ "
KEINE LINIE gewählt!")
)
(setq el (entsel))
)
(princ "
Gesamtlänge: ")
(princ gl)
(princ)
)

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

---

so?

Code:

---

(defun c:ll ( / gl l el eldat)
(setq el (entsel))
(while el
(setq eldat (entget(car el)))
(if (= (cdr (assoc 0 eldat)) "LINE")
(progn
(setq l (distance (cdr (assoc 10 eldat)) (cdr (assoc 11 eldat))))
(princ "
Länge Teilstück: ")
(princ l)
(if gl
(setq gl (+ gl l))
(setq gl l)
)
)
(princ "
KEINE LINIE gewählt!")
)
(setq el (entsel))
)
(princ "
Gesamtlänge: ")
(princ gl)
(if(setq start (getpoint "\nEinfügepunkt:"))
      (entmake (LIST
                  '(0 . "TEXT")
                  (cons 8 (getvar "clayer"))
                  (CONS 10 start)
                  (cons 40 (getvar "textsize"))
                  '(50 . 0.0)
                  (CONS 1 (rtos gl 2 3))
                  ) ;_ end of LIST
                )
)
(princ)
)

---

------------------
Gruß
CADwiesel
Besucht uns im CHAT

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

---

okay, funktioniert - kann mich weiter betun
Dirk

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

---

Hallo Profis!

Hab diese Lisp gefunden.Super Sache muß ich sagen!
Meine Frage: Kann man das so umändern, damit man auch Teilbereiche einer Polylinie (die Länge zwischen den Kontrollpunkten im ausgewählten Bereich) ausgeben kann?

Liebe Grüße
Martin

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

---

Mit Abändern wird das nichts.... da müßte man was komplett neues schreiben. Ich würde dann hierfür die vlax-curve-Funktionen verwenden. 

z.b. sowas wie hier

------------------
  - 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 Cadmium!
Danke für deine Hilfe!
Schönes Beispiel.
Wie findet Ihr solche Sachen so schnell? Ich suche seit Tagen und finde solche Sachen nicht.
Ich stelle mir vor, daß man solch ein Lisp gut dafür verwenden könnte um bei einem Rechteck nach der Eingabe "Abmessungen" diese Distanz als Breite einsetzen könnte. Somit bräuchte man nicht immer mit der Hand die Breite eingeben, nur noch die Länge, oder auch umgekehrt.
Ist so etwas machbar?

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

---

Zitat:

---

Original erstellt von MARTINLE:

Wie findet Ihr solche Sachen so schnell?

---

also ich weiß ungefähr , was ich schon mal geschrieben hab und bei meinen Lisp auf der Platte steht dann auch der zugehörige Link mit bei ;)

Zitat:

---

Original erstellt von MARTINLE:

Ich stelle mir vor, daß man solch ein Lisp gut dafür verwenden könnte um bei einem Rechteck nach der Eingabe "Abmessungen" diese Distanz als Breite einsetzen könnte. Somit bräuchte man nicht immer mit der Hand die Breite eingeben, nur noch die Länge, oder auch umgekehrt.
Ist so etwas machbar

---

Denke, ja ..

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

Gute Idee mit dem Link!

Zitat
---
Denke, ja ..
---

will nicht unverschämt sein  und wie...würde sowas aussehen?

Danke!

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

---

(defun c:PLSEGINFO ( / PL-OBJ PKT PARAM PRE SUF ) 
  (if(and(setq PL-OBJ(entsel "\nPolyliniensegment wählen : "))
        (setq PKT(cadr PL-OBJ))
        (setq PL-OBJ (car PL-OBJ))
        (setq PL-OBJ(cond                                        ;_ VLA-OBJEKT erzeugen
                      ((=(type PL-OBJ) 'VLA-OBJECT) PL-OBJ)
                      ((=(type PL-OBJ) 'Ename) (vlax-ename->vla-object PL-OBJ))   
                    )
        )       
        (setq PKT  (vlax-curve-getClosestPointTo PL-OBJ PKT))
        (setq PARAM(vlax-curve-getparamAtPoint PL-OBJ PKT))
        (setq PRE(vlax-curve-getpointatparam PL-OBJ (fix PARAM)))
        (setq SUF(vlax-curve-getpointatparam PL-OBJ (1+(fix PARAM))))       
    )
(command "Rechteck" pause "Abmessungen" ???????und dann????? PRE oder SUF funktioniert leider nicht??

Bitte Cadmium kannst du mir weiterhelfen?

LG Martin
 

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

---

die gerade SementLänge bekommst du z.B. mit (distance PRE SUF)
wenn Bögen berücksichtigt werden sollen  .... dann z.b. über die Differenzen von vlax-curve-getdistanceatparam bzw. vlax-curve-getdistanceatpoint ....

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

---

Danke! Cadmium Danke!

PS:
Also ich hätte gerne ein Sandkörnchen von deinen Haufen an Wissen!
Ich wäre damit um einen großen Stein an Wissen reicher!

Na ja, werd ich halt weiter Bretter hobeln!Ha Ha

Danke für deine Hilfe!
LG
Martin

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

---

Dafür gibts ja die Spezialisierung ... ich fahr mit meinem Auto auch in die Werkstatt ....

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

---

Genau richtig!

Tschüß!

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

---

Noch ein kleiner Nachtrag:

Da du AutoCAD 2010 am Start hast: Schau dir mal die Parameter an - mit denen kannst du auch vieles automatisieren...

------------------
Grüsse

Thomas

Korrekturen zum Kochbuch AutoLISP

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

---

Hallo Thomas!
Hab deine Zeilen erst jetzt gesehen.
Was meinst du mit automatisieren??
Kannst du ein Beispiel zeigen?

lg
Martin

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

---

Hallo Cadmium

Kannst du mir noch mal helfen?

Heute geht dein Beispiel nicht mehr
----
Befehl:
PLSEGINFO
Polyliniensegment wählen : ; Fehler: no function definition:
VLAX-ENAME->VLA-OBJECT
----

Warum?

LG Martin

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

---

Hallo Martin,
ich bin zwar nicht CADmium, aber vielleicht hilft ein
(vl-load-com) vorweg.

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

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

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

---

Hallo Jörn!

Danke das wars!

LG

Martin

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