|
Lisp : Texte einfügen
Dorfy am 18.05.2011 um 13:36 Uhr (0)
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.]
|
| In das Form Lisp wechseln |
|
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..."
|
| In das Form Lisp wechseln |
|
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..."
|
| In das Form Lisp wechseln |
|
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..."
|
| In das Form Lisp wechseln |
|
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 ...
|
| In das Form Lisp wechseln |
|
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..."
|
| In das Form Lisp wechseln |
|
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..."
|
| In das Form Lisp wechseln |
|
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 ...
|
| In das Form Lisp wechseln |
|
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..."
|
| In das Form Lisp wechseln |
|
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 ...
|
| In das Form Lisp wechseln |
|
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.]
|
| In das Form Lisp wechseln |
|
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 ...
|
| In das Form Lisp wechseln |
|
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 ...
|
| In das Form Lisp wechseln |
