|
Lisp : Hilfe bei command schleife
CADmium am 28.08.2012 um 10:14 Uhr (0)
wie sieht dir Datendatei denn nun überhaupt aus ?bis dahin ein paar Funktionen mit nur einer Aufgabe;; Funktion zum Einlesen einer Datei(defun DT:TEXTFILE-LST (DATEINAME / DATEI ZEILE BASE-LST ) (if (and(=(type DATEINAME) STR) (setq DATEINAME(findfile DATEINAME)) (setq DATEI (open DATEINAME "r")) ) (progn (while(=(type(setq ZEILE(read-line DATEI)))STR) (setq BASE-LST (cons (vl-string-trim " " ZEILE) BASE-LST)) ) (setq DATEI(close DATEI)) BASE-LST ...
|
| In das Form Lisp wechseln |
|
Rund um Autocad : DWGNAME ohne Erweiterung
CADmium am 16.08.2004 um 08:18 Uhr (0)
Nachtrag : (setq DateiName (vl-filename-base(getvar dwgname ))) ------------------ - Thomas -
|
| In das Form Rund um Autocad wechseln |
|
Rund um AutoCAD : Ausrichten per Script?
CADmium am 19.09.2012 um 16:25 Uhr (0)
mal auf die schnelle (ungetestet) zusammengeklöppelt :(defun C:TESTUS(/ FNAME)(vl-load-com)(defun DT:ALIGN(AP1X AP1Y ZP1X ZP1Y AP2X AP2Y ZP2X ZP2Y / OBJ FUZZY) (setq FUZZY 1.0) (if(or(and (setq OBJ(ssget "_C" (list (- AP1X FUZZY)(- AP1Y FUZZY))(list (+ AP1X FUZZY)(+ AP1Y FUZZY)))) (setq OBJ(ssname OBJ 0)) ) (vla-zoomwindow (vlax-get-acad-object) (vlax-3d-point (list (- AP1X 100) (- AP1Y 100))) (vlax-3d-point (list (+ AP1X 100) (+ AP1Y 100))) ) (setq OBJ (car(entsel (strcat ...
|
| In das Form Rund um AutoCAD wechseln |
|
Lisp : Kontrollfrage vor dem verlassen!
CADmium am 02.03.2007 um 07:59 Uhr (0)
Zitat:Original erstellt von joern bosse:@Udo: wenn ich vl-filename-base man schon vorher gekannt hätte... schon mal (fnsplitl "D:ACADBSP.DWG") versucht? ------------------ - Thomas -"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form Lisp wechseln |
|
Rund um Autocad : Frage (Problem) mit Koordinaten Lisp
CADmium am 29.10.2004 um 11:01 Uhr (0)
getpoint liefert einen A 2D or 3D base point in the current UCS .. da fallen mir in Hinblick auf Ansichtsfenster alle möglichen Systemvariablem mit UCS.. ein .. ein wegen Zeitmangels ungetester Schuß ins Blaue .. ------------------ - Thomas - Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben.
|
| In das Form Rund um Autocad wechseln |
|
AutoLisp : Basislayergruppe
CADmium am 03.03.2006 um 08:42 Uhr (0)
1. sag doch bitt, dass das eine Mechanical-Funktion ist, sonst suchen sich manche hier einen Wolf2.(command "_-amlayer" "_g" "_s" "BASE") ...------------------ - Thomas -"Du bist einen uns unbekannten Weg in eine andere Form des Seins gegangen. - Wir sehen uns wieder in deinem Paradies! - Tschüß Axel.."
|
| In das Form AutoLisp wechseln |
|
Lisp : Hilfe bei AutoLisp Script
CADmium am 29.09.2009 um 09:30 Uhr (0)
(getvar "DWGNAME")oder bei vorhandenem Teststring(strcat(vl-filename-base "H:CADDatenKundenProjekte7099870998244.dwg") (vl-filename-extension "H:CADDatenKundenProjekte7099870998244.dwg") )oder(strcat (cadr(fnsplitl "H:CADDatenKundenProjekte7099870998244.dwg")) (caddr(fnsplitl "H:CADDatenKundenProjekte7099870998244.dwg")))------------------ - Thomas -"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form Lisp wechseln |
|
Lisp : Umwandlung von (getvar DWGNAME)
CADmium am 29.09.2006 um 10:29 Uhr (0)
es gibt auch die Funktionen (cadr(fnsplitl(getvar "DWGNAME")))oder (vl-filename-base (getvar "DWGNAME"))das mit dem (- (strlen (getvar "DWGNAME")) 4)) funktioniert zwar auch, aber die anderen Funcs sind besser für die anderen Eventualitäten gerüstet------------------ - Thomas -"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form Lisp wechseln |
|
Rund um AutoCAD : Beim speichern einer Zeichnung automatisch Layout benennen
CADmium am 09.11.2005 um 14:42 Uhr (0)
(DEFUN C:SICHALS (/ ITEM) (vl-load-com) (command "_.SAVEAS" "" "~") (vlax-for item(vla-get-layouts (vla-get-activedocument(vlax-get-acad-object)) ) (if(=(vla-get-taborder ITEM)1) (vla-put-name ITEM (vl-filename-base (getvar"dwgname"))) ) ) (command "_.save" ""))da ist es dann egal, wie das Layout heißt.P.S. ein Prog mit dem vlr-dwg-reactor ist noch eleganter ------------------ - Thomas -"Bei 99% aller Probleme ist die umfassende Beschreibung des ...
|
| In das Form Rund um AutoCAD wechseln |
|
Lisp : Einschränkungen beim Befehl open?
CADmium am 28.07.2006 um 08:29 Uhr (0)
Zitat:Original erstellt von andi2050:[BÜbrigens: "(while (= T (wcmatch dn2 "*`.*"))(setq dn2 (substr dn2 1 (1- (strlen dn2)))))" lässt sich einfach durch (vl-filename-base filename) ersetzen ...[/B]der Vollständigkeit halber möchte ich doch noch auf die (undokumentierte) Funktion fnsplitl hinweisen :(fnsplitl "d:ACADacad.exe") -- ("D:ACAD" "acad" ".exe")wo man mittels car / cadr / caddr auf die einzelnen elemente des Dateinamens zugreifen kann..------------------ - Thomas -"Bei 99% aller Probleme ist di ...
|
| In das Form Lisp wechseln |
|
AutoCAD Mechanical : Layer erstellen
CADmium am 29.01.2008 um 09:04 Uhr (0)
Versuch macht kluch ...Befehl: -amlayerOption eingeben [Layer/Gruppe/Objekt/Norm/Modus]: gOption eingeben[?/eRzeugen/setZen/Neu/frIeren/Tauen/Sperren/Entsperren/Farbe/Umbenennen/Auswahlsatz/Hervorheben]: rLayergruppenname eingeben (wird die aktuelle Layergruppe) BASE: MEINEOption eingeben[?/eRzeugen/setZen/Neu/frIeren/Tauen/Sperren/Entsperren/Farbe/Umbenennen/Auswahlsatz/Hervorheben]:Option eingeben [Layer/Gruppe/Objekt/Norm/Modus]: oObjektschlüssel oder [?] ?: CON1- erzeugt den Konturlayer: MEINE-AM_0---- ...
|
| In das Form AutoCAD Mechanical wechseln |
