|
AutoLisp : Teilstring ausfiltern
Brischke am 09.11.2003 um 00:29 Uhr (0)
Hallo Theodor, so bekommst du den Pfad: Code: (defun getpath (file /) (apply strcat(reverse (cdr(member (reverse (f:str-in-list file)))))) ) (defun f:str-in-list (sil_str / sil_i sil_strli) (setq sil_i 0) (if (= STR (type sil_str)) (reverse (while ( sil_i (strlen sil_str)) (setq sil_i (1+ sil_i) sil_strli (cons (substr sil_str sil_i 1) sil_strli) ) ) ) ) ) Und die Datei dann mit : Code: (setq pfad(getpath(setq gewdat(getfiled Datei aus Verzeichn ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Teilstring ausfiltern
fuchsi am 10.11.2003 um 08:26 Uhr (0)
muss helmut recht geben (print (vl-filename-base D:userdwg_sTEST.TXT )) ; ergibt TEST (print (vl-filename-directory D:userdwg_sTEST.TXT )) ; ergibt D:userdwg_s (print (vl-filename-extension D:userdwg_sTEST.TXT )) ; ergibt .EXE ------------------ *********************************************** AutoCad 2000i, 2002, 2004 deutsch und englisch Windows 2000, NT, XP
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Teilstring ausfiltern
Brischke am 10.11.2003 um 09:47 Uhr (0)
Hallo, auch wenn vieles mit den VisualLISP-Befehlen einfacher ist, versuche ich weitesgehend ohne diese auszukommen, da viele der Tool s eben auch auf LT+Extender zum Einsatz kommen. Dann sitzt man früher oder später doch da und bastelt sich eigene Funktionen. Kann man das ausschließen, dann ist die (vl-irgendwas ..)-Variante sicher auch eine elegante Möglichkeit. Bei Fragen ... Grüße Holger ------------------ Holger Brischke (defun - Lisp over night! AutoLISP-Programmierung für AutoCAD NEU: AutoLISP ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Dateiname aus Attributen bilden
HansGeorg am 10.11.2003 um 09:56 Uhr (0)
Hallo zusammen, wie kann man bei der Ausgabe eines wblock s den Dateinamen aus Attributen zusammensetzen. Soll die neue Datei den Dateinamen der jetzigen Zeichnung erhalten gehe ich folgendermaßen vor: (strcat c:/temp/ (substr (getvar DWGNAME ) 1 (- (strlen (getvar DWGNAME )) 4)) .dwg ) Wie kann man vorhandene Attribute als Dateiname verwenden? Und wie kann man dwgname mit dem Wert des Attributs A kombinieren? Z.B. dwgname ergibt XX und Attribut A ergibt Z - Ergebnis XX-Z Vielen Dank! Grüße HansGe ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : rtext in eine lisp einbinden
CADchup am 10.11.2003 um 15:26 Uhr (0)
Hi, zu Deinem zweiten Problem: Suchmal im Acad-Help-Verzeichnis die Datei acet.chm Das ist die Express-Hilfe. Gruß CADchup ------------------ www.cadditions.de
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Schnittpunkt Gerade Kreis
fuchsi am 11.11.2003 um 11:54 Uhr (0)
sind die beiden objekte bereits gezeichnet ?? dann geht es so (setq a1 (vlax-ename- vla-object (car (entsel)))) ; 1. wählen (setq a2 (vlax-ename- vla-object (car (entsel)))) ; 2.wählen (setq ret (vlax-invoke a1 IntersectWith a2 acExtendBoth)) ; schnittpunkt(e) ergibt z.B.: bei angehängtem JPG (4.79101 7.81705 0.0 7.89297 3.85528 0.0) ------------------ *********************************************** AutoCad 2000i, 2002, 2004 deutsch und englisch Windows 2000, NT, XP
|
| In das Form AutoLisp wechseln |
|
AutoLisp : AddRegion
fuchsi am 11.11.2003 um 12:09 Uhr (0)
VLA-ADDREGION möchte keinen auswahlsatz, sondern ein savearray gefüllt mit acad-objekten kurzes beispiel, ich gehe davon aus, dass der auswahlsatz nur ein element enthält (setq ss (ssget)) :: auswahlsatz erstellen (setq pl (vlax-ename- vla-object (ssname ss 0))) ; das erste element umwadndeln in ein VLA-Object (setq va (vlax-make-safearray vlax-vbObject (0 . 0))) ; savearray erstellen (vlax-safearray-put-element va 0 pl) ; saearray füllen mit VLA-Object (vla-addregion (vla-get-modelspace (vla-get-a ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Schraffurwinkel ändern
Brischke am 11.11.2003 um 14:37 Uhr (0)
Hallo Thomas, vielleicht hilft dir der folgende Link: http://ww3.cad.de/foren/ubb/Forum54/HTML/001056.shtml? oder bei mir (http://www.defun.de) als Programm unter Hilfe-Download-Prog15 Bei Fragen ... Grüße Holger ------------------ Holger Brischke (defun - Lisp over night! AutoLISP-Programmierung für AutoCAD NEU: AutoLISP- Projektschulung NEU: Praxisorientierte Schulungen und Workshops durch die bekannten CAD.de Moderatoren AutoCAD, AutoCAD LT, AutoCAD Mechanical, Mechanical Desktop, Architect ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : neue farben, linienweite und plotbar - layereigenschaften
Brischke am 11.11.2003 um 20:05 Uhr (0)
Hallo Jan, (entget(tblobjname LAYER name)) sollte dir alle GC des Layers listen. Bei Fragen ... Grüße Holger ------------------ Holger Brischke (defun - Lisp over night! AutoLISP-Programmierung für AutoCAD NEU: AutoLISP- Projektschulung NEU: Praxisorientierte Schulungen und Workshops durch die bekannten CAD.de Moderatoren AutoCAD, AutoCAD LT, AutoCAD Mechanical, Mechanical Desktop, Architectural Desktop
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Arbeitsgeschwindigkeit durch Anzeigen in Befehlszeilen
Brischke am 12.11.2003 um 09:29 Uhr (0)
Hallo Andrea, jede Ausgabe am Bildschirm, egal ob in der Textzeile oder im Grafikbereich beeinflußt die Geschwindigkeit eines Programms. Deshalb sind in meinen Programmen nur auf besonderen Wunsch Statusmeldungen zu finden. Ebenfalls ist CMDECHO immer auf 0 gesetzt. Wenn das Programm mit vielen Koordinatensystemen arbeitet schalte ich zusätzlich auch das BKS aus. Bei Fragen ... Grüße Holger ------------------ Holger Brischke (defun - Lisp over night! AutoLISP-Programmierung für AutoCAD NEU: AutoLISP- ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : wer kann mir helfen
Brischke am 12.11.2003 um 09:32 Uhr (0)
Hallo Petra, auf meiner Seite bin ich mit der Aktualisierung etwas im Verzug. Deshalb hier der Link auf die Datei: www.cadlon.de/freedwnload/03_Autolisp.zip Bei Fragen ... Grüße Holger ------------------ Holger Brischke (defun - Lisp over night! AutoLISP-Programmierung für AutoCAD NEU: AutoLISP- Projektschulung NEU: Praxisorientierte Schulungen und Workshops durch die bekannten CAD.de Moderatoren AutoCAD, AutoCAD LT, AutoCAD Mechanical, Mechanical Desktop, Architectural Desktop
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Listenberechnung
Brischke am 13.11.2003 um 09:59 Uhr (0)
Hallo Patrick, folgende Zeilen machen das: Code: (defun addcdrsortli (li /) (mapcar (lambda (W) (cons W (apply + (mapcar cdr (vl-remove-if-not (lambda (CW) (= W (car CW)) ) li ) ) ) ) ) (remove_dopp (mapcar car li)) ) ) (defun remove_dopp (li / erg) (mapcar (lambda (W) (if (not (member W erg)) (setq erg (cons W erg)) ) ) li ) (reverse erg) ) (vl-load-com) (set ...
|
| In das Form AutoLisp wechseln |
|
Lisp : BUCH TIP !!!
cadffm am 13.11.2003 um 12:32 Uhr (4)
An alle die schon immer "alles" über AutoCAD-Objektewissen wollten.Das Buch "AutoCAD-Objekte" von Rudolph Dietmar ist wirklichwärmstens zu empfehlen.[ Es ist KEIN AutoLISP / kein Programmier-Handbuch ! ]Es zeigt vielmehr den Aufbau einer AutoCAD-Datei undalle Eigenschaften (Gruppencodes) und weitere interessanteInformationen zu allen ACAD-Objekten.Der Grund warum ich hier "Werbung" mache ist folgender:Der Normale VP des Buches liegt bei fast 80€ !!! Das war mirzuviel und ich habe das Buch zum Glück für 9,9 ...
|
| In das Form Lisp wechseln |
