|
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 |
|
Lisp : LISP Code plotdwgs
Daniel Möller am 20.05.2011 um 11:14 Uhr (0)
Der Pfad steht drin. Den Fehler hatte ich am Anfang da lässt sich das Menü aber erst gar nicht aufrufen.Habe dann den Drucker eingestellt, das Papierformat und zwei Befehle ausgetauscht weil SAVEAS konnte er nicht starten hab es dann durch _SAVEAS ersetzt.Grüße
|
| In das Form Lisp wechseln |
|
Lisp : LISP Code plotdwgs
Daniel Möller am 20.05.2011 um 11:30 Uhr (0)
Das müsste ja die Stelle in dem LISP Code sein. Wollte eben die Datei mal hochladen aber irgendwie will das unsere Firewall hier nicht :-( (if (= (getvar "DWGTITLED") 0) (if (findfile "C:TempPlotDwgs.dwg") (command "_SAVEAS" "" "C:TempPlotDwgs.dwg" "Y") (command "_SAVEAS" "" "C:TempPlotDwgs.dwg") );if (if (/= (getvar "DBMOD") 0) (command "_QSAVE") );if );if (setq CurrentDwg$ (strcat (getvar "DWGPREFIX") (getvar "DWGNAME"))) (setq FileName% (open "C:TempPlotDwgs.scr" "w")) (write-line "_FILEOPEN" ...
|
| In das Form Lisp wechseln |
|
Lisp : LISP Code plotdwgs
CADwiesel am 20.05.2011 um 14:14 Uhr (0)
hast du dir mal dieses script angesehen, was da erstellt wird?Und bist du sicher, das das das Lisp Plotdwgs auch gefunden wird und geladen werden kann?(findfile "plotdwgs")------------------Gruß CADwieselBesucht uns im CHAT
|
| In das Form Lisp wechseln |
|
Lisp : LISP Code plotdwgs
Daniel Möller am 20.05.2011 um 15:54 Uhr (0)
Hi,juhu ich hab die Lösung gefunden. Problem lag daran dass die Datei ursprünglich Plotdwgs.lsp hieß und der Ersteller sie für metrische Ausdrucke in plotdwgmetric.lsp umbenannt hat aber im Script nicht.Aber jetzt läuft es. Es gab noch ein paar Kleinigkeiten bei den plotdetails die sind jetzt aber alle behoben :-)Wünsche euch ein schönes WochenendeGrüßeDaniel
|
| In das Form Lisp wechseln |
|
Lisp : Region untere und obere Begrenzung
cad-bonn am 09.05.2011 um 14:11 Uhr (0)
Hallo,ich würde gerne die Grenzen von mehreren Polylinien auslesen.Was ich gefunden habe: Polylinie in Region umwandeln und dann mit dem Befehl Liste die Daten der Region anzeigen. Da werden die Koordinaten der linken unteren sowie der rechten oberen Ecke angezeigt:Befehl: listeObjekte wählen: 1 gefundenREGIONBegrenzungsrahmen: Untere Begrenzung X = 137.2860 , Y = 134.5110 , Z = 0.0000Obere Begrenzung X = 408.4518 , Y = 311.6538 , Z = 0.0000Zuerst wollte ich diese Werte über die Datenextraktion (_EATTEXT) ...
|
| In das Form Lisp wechseln |
|
Lisp : Region untere und obere Begrenzung
cad-bonn am 09.05.2011 um 14:11 Uhr (0)
Hallo,ich würde gerne die Grenzen von mehreren Polylinien auslesen.Was ich gefunden habe: Polylinie in Region umwandeln und dann mit dem Befehl Liste die Daten der Region anzeigen. Da werden die Koordinaten der linken unteren sowie der rechten oberen Ecke angezeigt:Befehl: listeObjekte wählen: 1 gefundenREGIONBegrenzungsrahmen: Untere Begrenzung X = 137.2860 , Y = 134.5110 , Z = 0.0000Obere Begrenzung X = 408.4518 , Y = 311.6538 , Z = 0.0000Zuerst wollte ich diese Werte über die Datenextraktion (_EATTEXT) ...
|
| In das Form Lisp wechseln |
|
Lisp : Region untere und obere Begrenzung
Dorfy am 25.05.2011 um 10:50 Uhr (0)
(vla-get-textstring (vlax-ename-vla-object (car (entsel "
Bitte Befundnummer wählen:")))) ?------------------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 : Region untere und obere Begrenzung
cad-bonn am 01.06.2011 um 09:40 Uhr (0)
Danke für die Antwort! Ich hab es mal ausprobiert.Ergebnis:Befehl: (rtos 2.51489e+006 2 3)"2514890"Leider werden die Kommastellen nicht ausgegeben.Liegt das Problem vielleicht an meinem LISP-Programm, da es zu "große" Koordinaten sind?Ich hab mal meine Zeichnung näher an den Ursprung verschoben, da hat es auch dann mit den Nachkommastellen geklappt. Jetzt muß ich halt die Verschiebung wieder auf die Koordinaten addieren, dass find ich etwas umständlich.%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%(defun c:box ( / B ...
|
| In das Form Lisp wechseln |
