---

; ausgeben von Längen
(defun c:ST (/ #SS #Len)
  (vl-load-com)
  (princ "\nSelect Arc, Line, LWPolyline object(s) to calculate total length: ")
  (cond
    ((setq #SS (ssget '((0 . "ARC,LINE,LWPOLYLINE"))))
    (or *AcadDoc* (setq *AcadDoc* (vla-get-activedocument (vlax-get-acad-object))))
    (setq #Len 0.)
    (vlax-for x (setq #SS (vla-get-activeselectionset *AcadDoc*))
      (cond ((eq (vla-get-objectname x) "AcDbArc")
              (setq #Len (+ #Len (vla-get-ArcLength x)))
            )
            ((vl-position (vla-get-objectname x) '("AcDbLine" "AcDbPolyline"))
              (setq #Len (+ #Len (vla-get-Length x)))
            )
      ) ;_ cond
    ) ;_ vlax-for
    (vla-delete #SS)
    (alert (strcat "Total Length: "
                    (setvar 'users5 (rtos #Len))
            ) ;_ strcat
    ) ;_ alert
    )
  ) ;_ cond
  (princ)
  (setq PKT (cdr(assoc 10 #SS)))
  (command "text" PKT "0.375" "" #Len )
) ;_ defun

irgenwie funktioniert das nicht so, wie muss es richtig lauten das alle gewählten Objekte mit einem Text versehen werden?

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

---

hi,
du musst die Textausgabe in die Schleife packen wenn du jedes Element mit Text versehen möchtest.

Und du fragst derzeit den gc von etwas ab, dass du zuvor gelöscht hast, was außerdem ein selection set ist und kein einzelnes entity.

EDIT: was zudem ein vla-object ist...  oh-man(n) ... 

Im Notfall mit getpoint den Absetzpunkt neu erfragen...

die Zeilen sehen nach c&p aus  

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

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

[Diese Nachricht wurde von Dorfy am 18. Mai. 2011 editiert.]

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

---

Ja dumm gemacht von mir, wie ist das wenn ich nicht den Texteinfügepkt abfragen will (getpoint )sondern der Text immer Anfang eines Elementes liegen soll ?

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

---

vlax-vla-object->ename wandelt dein vla-objekt in ein "herkömmliches" Objekt um...
dann kannst du mit deinen Zeilen weitermachen und diese in der Schleife einbauen...

EDIT: gc10 ist beim Bogen der Kreismittelpunkt...

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

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

[Diese Nachricht wurde von Dorfy am 18. Mai. 2011 editiert.]

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

---

Meinst Du so...

  (vl-load-com)
  (princ "\nSelect Arc, Line, LWPolyline object(s) to calculate total length: ")
  (cond
    ((setq SS (ssget '((0 . "ARC,LINE,LWPOLYLINE"))))
     (or *AcadDoc* (setq *AcadDoc* (vla-get-activedocument (vlax-get-acad-object))))
     (setq ELE 0.)
     (vlax-for x (setq SS (vla-get-activeselectionset *AcadDoc*))
       (cond ((eq (vla-get-objectname x) "AcDbArc")
              (setq ELE (+ ELE (vla-get-ArcLength x)))
             )
             ((vl-position (vla-get-objectname x) '("AcDbLine" "AcDbPolyline"))
              (setq ELE (+ ELE (vla-get-Length x)))
      (setq PKT (vlax-vla-object->ename SS))
             )
       ) ;_ cond
     ) ;_ vlax-for
;;;     (vla-delete SS)
     (alert (strcat "Total Length: "
                    (setvar 'users5 (rtos ELE))
            ) ;_ strcat
     ) ;_ alert
    )
  ) ;_ cond
  (princ)
  (command "text" PKT "" "" ELE )
) ;_ defun

Nebenbei gefragt: gibt es den AutoLispGuide auch auf Deutsch http://www.kxcad.net/autodesk/autocad/AutoLISP_Reference_Guide/WSfacf1429558a55de1a7524c1004e616f8b-5913.htm

[Diese Nachricht wurde von cadplayer am 18. Mai. 2011 editiert.]

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

---

nein...

in der (vlax-for x... Schleife (am Ende der Schleife) das vla-objekt mittels vlax-vla-object->ename wandeln und deine Zeilen  (setq PKT (cdr(assoc 10 #SS)))(command "text" PKT "0.375" "" #Len ) entsprechend einpassen... oder besser die gewünschten Infos vom vla-objekt abfragen und den text mit vla-addtext einfügen

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

---

Ich weiss nicht genau wo ich
(vlax-vla-object->ename SS) einbauen soll

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

---

#ss ist bei dir ein selection set
vlax-for x ist die Schleife, x ist dein vla-object

EDIT: x ist ein bzw. sind die Objekte des selection sets, welche nacheinander einzeln angesprochen werden...

wenn du mit den gc arbeiten möchtest brauchst du das "klassische" Objekt, welches du mit (vlax-vla-object->ename x) innerhalb der Schleife erhälts
wenn du dies hast, kannst du es weiter verwurschten...
nun kannst du dir überlegen, wo innerhalb der vlax-for-schleife du es einbaust ggf in der cond-schleife innerhalb der vlax-for-schleife oder
nach der cond-schleife aber noch innerhalb der vlax-for-schleife...

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

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

[Diese Nachricht wurde von Dorfy am 19. Mai. 2011 editiert.]

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

---

achso
assoc verlangt nach einer Liste also -->
(entget(vlax-vla-object->ename x))

so nu aber - Ergebnisse!

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

---

Danke für die Hilfestellung... als VLISP-neuling

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

---

und Ergebnisse?

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

---

ich bemühe mich das zum mittag noch zu deixeln

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

---

@cadplay bis zum mittag?! 

na so kompliziert ist es doch nicht?! 

quick and dirty

Code:

---

    (vlax-for x (setq #SS (vla-get-activeselectionset *AcadDoc*))
      (cond ((eq (vla-get-objectname x) "AcDbArc")
              (setq #Len (+ #Len (vla-get-ArcLength x)))
      (setq PKT (cdr(assoc 10 (entget(vlax-vla-object->ename x)))))
              (command "text" PKT "0.375" "" #Len )
            )
            ((vl-position (vla-get-objectname x) '("AcDbLine" "AcDbPolyline"))
              (setq #Len (+ #Len (vla-get-Length x)))
    (setq PKT (cdr(assoc 10 (entget(vlax-vla-object->ename x)))))
              (command "text" PKT "0.375" "" #Len )
            )
      ) ;_ cond

---

so?

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

---

Danke rein theoretisch ist das korrekt...
Nur mein Problem ist, dass nicht die richtigen Werte an die gew. Objekte geschrieben wird, sondern immer die Schnittsumme, da ja in der Schleife (setq #Len (+ #Len (vla-get-Length x))) immer der nächste Wert dazuaddiert wird.

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

---

na und nu aber... das solltest du doch selber ändern   

(command "text" PKT "0.375" "" (vla-get-ArcLength x))

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

---

Kannst du mir vielleicht einen Tip geben, wo ich alle VLISP-funktionen sehen kann. In der Acadhilfe fehlen bsp die vla-funktionen (nicht ganz vollständig wie mir scheint)

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

---

hallo cadplayer,
leider scheint die seite http://intervision.hjem.wanadoo.dk/vla-index.htm
nicht mehr zu funktionieren.
aber du kannst dir das ganze auch selbst aus der vba-hilfe herleiten.

gruss
marco

------------------
Marco Heuer
www.arc-aachen.de
Airport Office

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

---

vlide-Hilfe
Reiter Inhalt
   ActiveX and VBA Reference
     ... was das Herz begehrt  

sonst? www? Suchmaschine...

Für Eigenschaften und Methoden am Objekt -->
(vlax-dump-object (vlax-ename->vla-object(car(entsel))) 'T)

Edit: stopfe mal in eine Suchmaschine "Visual LISP Functions reference" sollte ne pdf recht weit oben kommen...

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

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

[Diese Nachricht wurde von Dorfy am 19. Mai. 2011 editiert.]

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

---

Zitat:

---

Original erstellt von cadplayer:
...sondern der Text immer Anfang eines Elementes liegen soll ?

---

vlax-curve-getStartPoint...

Grüsse, Henning

------------------
Henning Jesse
VoxelManufaktur
Computer-Dienstleistungen für Architekten und Ingenieure

  http://www.voxelman.de

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

---

vlax-curve-getStartPoint

läuft nur bei Bögen, kann das sein?

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

---

nein, funktioniert auch fuer linien, polylinien, ...
einfach mal ausprobieren:

Code:

---

(vlax-curve-getStartPoint (vlax-ename->vla-object (car (entsel))))

---

------------------
Marco Heuer
www.arc-aachen.de
Airport Office

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

---

Du brauchst noch nichtmal ein vla-Objekt:

Code:

---

(vlax-curve-getstartpoint (car (entsel)))

---

Grüsse, Henning

------------------
Henning Jesse
VoxelManufaktur
Computer-Dienstleistungen für Architekten und Ingenieure

  http://www.voxelman.de

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

---

ja das funktioniert
wenn ich eingebe (setq PKT (vlax-curve-getStartPoint(vlax-ename->vla-object (car(entsel)))))

warum gehts nicht in der Schleife mit der Variable x?

(vlax-for x (setq #SS (vla-get-activeselectionset *AcadDoc*))
      (cond ((eq (vla-get-objectname x) "AcDbArc")
              (setq #Len (+ #Len (vla-get-ArcLength x)))
      (setq PKT (vlax-curve-getStartPoint(vlax-ename->vla-object x))) 

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

---

1.JPG 2.JPG

Hallo cadplayer,

 

Zitat:

---

Original erstellt von cadplayer:
Kannst du mir vielleicht einen Tip geben, wo ich alle VLISP-funktionen sehen kann.

---

ich schreibe einen Teil (z.B. vla in eine Lsip-Datei) und markiere den Text. Danach klicke ich auf "AufSymbolsatz ergäzen". Im neuen Fenser die gewünschte Funktion wählne und auf Hilfe klicken. IN der Anlage sind noch Bilder dazu.

Viele Grüße
Bernd

[Diese Nachricht wurde von Bernd10 am 20. Mai. 2011 editiert.]

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

---

Edit: du hast versucht ein vla-objekt zu vla-objekt zuwandeln - da steigt er sicherlich aus...

das wird teuer... grins

Code:

---

    (vlax-for x (setq #SS (vla-get-activeselectionset *AcadDoc*))
      (cond ((eq (vla-get-objectname x) "AcDbArc")
              (setq #Len (+ #Len (vla-get-ArcLength x)))
              (command "text" (vlax-curve-getStartPoint x) "0.375" "" (vla-get-ArcLength x))
            )
            ((vl-position (vla-get-objectname x) '("AcDbLine" "AcDbPolyline"))
              (setq #Len (+ #Len (vla-get-Length x)))
              (command "text" (vlax-curve-getStartPoint x) "0.375" "" (vla-get-Length x))
            )
      ) ;_ cond
    ) ;_ vlax-for

---

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

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

[Diese Nachricht wurde von Dorfy am 20. Mai. 2011 editiert.]

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

---

@Bernd: super danke für den Tip

@Dorfy: danke für die grosszügige Hilfe

Vlisp ist mir noch eine Nummer zu gross - man muss sehr viele Funktionen im Kopf haben. Bis man die alle durchgespielt hat vergehen wahrscheinlich Monate
Das Grundprinzip finde ich aber sehr logisch und nachvollziehbar. Toll das ihr mir so hilfreich seid.

(rtos (vlax-curve-getStartPoint x) 2 2) ist vermutlich quatsch, wenn ich nur 2 Nachkommastllen haben will?

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

---

Zitat:

---

Original erstellt von cadplayer:
[B(rtos (vlax-curve-getStartPoint x) 2 2) ist vermutlich quatsch, wenn ich nur 2 Nachkommastllen haben will?[/B]

---

naja fast - du willst doch die Länge mit zwei Nachkommastellen und nicht den Einfügepunkt - sonst passt es schon 

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

---

ja... Schusselfehler

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