|
Lisp : Texte einfügen
Dorfy am 18.05.2011 um 16:11 Uhr (0)
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..."
|
|
Lisp : vla-explode: MTexte?
Dorfy am 18.05.2011 um 15:39 Uhr (0)
beim "dumpen" vom mtext wird explode nicht aufgeführt....------------------Mfg Heiko Elefantenjagd in Afrika "... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..."
|
|
Lisp : vla-explode: MTexte?
Dorfy am 18.05.2011 um 15:39 Uhr (0)
beim "dumpen" vom mtext wird explode nicht aufgeführt....------------------Mfg Heiko Elefantenjagd in Afrika "... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..."
|
|
Lisp : vla-explode: MTexte?
Dorfy am 18.05.2011 um 15:59 Uhr (0)
Block oder Blockreferenz...Objekt wählen: ; IAcadBlockReference: AutoCAD Block Reference-Schnittstelle (Blockreferenz); Eigenschaftswerte:; Application (RO) = ...; InsUnits (RO) = "Millimeter"; InsUnitsFactor (RO) = 1.0; IsDynamicBlock (RO) = 0...; Unterstützte Methoden:; ArrayPolar (3); ArrayRectangular (6); ConvertToAnonymousBlock (); ConvertToStaticBlock (1); Copy (); Delete (); Explode (); GetAttributes (); GetBoundingBox (2); GetConstantAttributes (); GetDynamicBlockProperties (); GetE ...
|
|
Lisp : Texte einfügen
Dorfy am 19.05.2011 um 09:01 Uhr (0)
achsoassoc 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..."
|
|
Lisp : Texte einfügen
Dorfy am 19.05.2011 um 10:19 Uhr (0)
und Ergebnisse?------------------Mfg Heiko Elefantenjagd in Afrika "... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..."
|
|
Lisp : Texte einfügen
Dorfy am 19.05.2011 um 10:52 Uhr (0)
@cadplay bis zum mittag?! na so kompliziert ist es doch nicht?! quick and dirtyCode: (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 (ent ...
|
|
Lisp : Texte einfügen
Dorfy am 19.05.2011 um 13:28 Uhr (0)
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..."
|
|
Lisp : Texte einfügen
Dorfy am 19.05.2011 um 14:39 Uhr (0)
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 ...
|
|
Lisp : Listenabfrage
Dorfy am 19.05.2011 um 16:21 Uhr (0)
(mapcar (lambda (x) (if (equal (car x) "Ablei")(setq BJ:Trans2 (cadr x)BJ:Trans3 (caddr x))) ) BJ:Trans)Werte in BJ:Trans2 und BJ:Trans3...------------------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.]
|
|
Lisp : Texte einfügen
Dorfy am 18.05.2011 um 13:15 Uhr (0)
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 ...
|
|
Lisp : Texte einfügen
Dorfy am 20.05.2011 um 08:37 Uhr (0)
Edit: du hast versucht ein vla-objekt zu vla-objekt zuwandeln - da steigt er sicherlich aus...das wird teuer... grinsCode: (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 (vl ...
|
|
Lisp : Texte einfügen
Dorfy am 20.05.2011 um 08:58 Uhr (0)
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..."
|