|
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 |
|
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..."
|
| In das Form Lisp wechseln |
|
Lisp : R14-Lisp konvertieren zu ACAD2011
cadffm am 14.07.2011 um 07:50 Uhr (0)
Nicht wenn man nur einen Bruchteil hat (da fängt man gar nicht an zu suchen wenn man auf derersten "Seite" schon sieht das nicht alle nötigen Programmbestandteile vorhanden sind) .Mein Tip: Jemanden suchen/finden/BEAUFTRAGEN: Wenn man an einem Rechner sitzt an dem alle Dateienund AutoCAD vorhanden sind, dann kann man den Fehler sicher schnell dingfest machen. Das Problem,was immer es ist, wird sicher eine Kleinigkeit sein da sich keine grundsätzlichen Dinge geänderthaben schnell behoben sein.(Schade das du ...
|
| In das Form Lisp wechseln |
|
Lisp : LISP Code plotdwgs
Daniel Möller am 20.05.2011 um 10:57 Uhr (0)
Hi zusammen,durch das Forum kam ich auf den LISP Code "Plotdwgs" dass zb alle Zeichnungen eines Ordners plotten kann.Hat dieses Tool schonmal jemand ausprobiert?Soweit konnte ich alles eintragen aber ich schaffe es nicht dass er druckt. Im Autocad Textfenster zeigt er am Schluß an dass er die Zeichnungen gedruckt hat allerdings passiert nichts. Weiter oben steht auch ein Fehler. Das sieht bei mir so ausNamen der zu öffnenden Zeichnung eingeben O:ACADautocad 2010LISPPlotDWGSTestzeichnungen1 (1).dwg: "O:ACAD ...
|
| In das Form Lisp wechseln |
|
Lisp : LISP Code plotdwgs
Andreas Kraus am 20.05.2011 um 11:10 Uhr (0)
Hallo Daniel,ich glaube dass die PlotDwgs.lsp nicht geladen werden kann.Liegt die bei dir in einem Supportpfad? Wenn nicht = ändern.------------------Geht nicht, gibts nichtGrußAndreashttp://kraus-cad.de
|
| In das Form Lisp wechseln |
