| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY bietet das umfangreichste Ökosystem von B2B als auch B2C-Lösungen für IT-Akteure auf dem Markt, eine Pressemitteilung
|
Autor
|
Thema: letzter befehl (1271 mal gelesen)
|
fca_mi2 Mitglied Bauingenieur
Beiträge: 508 Registriert: 10.01.2003 ACAD2018
|
erstellt am: 24. Jun. 2011 12:00 <-- editieren / zitieren --> Unities abgeben:
hi, man kann ja eine lisp datei auch starten, indem man sie einfach ins autocad fenster zieht. wie kann ich in autocad feststelle aus welchem ordner die lisp datei stammt ? ------------------ MfG Frank Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Ex-Mitglied
|
erstellt am: 24. Jun. 2011 12:08 <-- editieren / zitieren -->
Hi, >> wie kann ich in autocad feststelle aus welchem ordner die lisp datei stammt ? Der Befehl _APPLOAD bringt Dir einen Dialog, in welchem Du geladene Apps samt Quellpfad angezeigt bekommst. - alfred - ------------------ www.hollaus.at |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 24. Jun. 2011 12:47 <-- editieren / zitieren --> Unities abgeben: Nur für fca_mi2
|
fca_mi2 Mitglied Bauingenieur
Beiträge: 508 Registriert: 10.01.2003 ACAD2018
|
erstellt am: 24. Jun. 2011 13:13 <-- editieren / zitieren --> Unities abgeben:
danke für die antworten, schnall ich aber nicht ich wollte es ganz einfach halten und in der eingefügten datei praktisch eine abfrage einbauen a la "woher komme ich ? nur für eine bestimmte datei
------------------ MfG Frank Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
joern bosse Ehrenmitglied Dipl.-Ing. Vermessung
Beiträge: 1763 Registriert: 11.10.2004 Window 11 ACAD 2021 CIVIL 2021 BricsCAD ab V14 11th Gen Intel(R) Core(TM) i7-1165G7 @ 2.80GHz 2.80 GHz 32.0GB RAM NVIDIA GeForce MX450<P>
|
erstellt am: 25. Jun. 2011 12:12 <-- editieren / zitieren --> Unities abgeben: Nur für fca_mi2
|
archtools Mitglied
Beiträge: 965 Registriert: 09.10.2004 Entwickler für AutoCAD, BricsCAD u.a., alle Systeme
|
erstellt am: 26. Jun. 2011 11:39 <-- editieren / zitieren --> Unities abgeben: Nur für fca_mi2
Zitat: Original erstellt von joern bosse: Hallo Frank, nur für den Fall daß Deine Datei auf einem bekannten Supportpfad liegen sollte: (findfile "Dateiname")
Das funkioniert natürlich dann nicht, wenn man mehrere Dateien gleichen Namens hat. VitalLisp hatte noch so eine Funktion, die zurück gab, aus welchem Pfad eine geladene ARX (die VLX-Dateien waren damals noch ARX) stammte. Aus nicht-nachvollziehbaren Gründen hat Autodesk diese Funktion nach Übernahme von VitalLISP ersatzlos gestrichen. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
fca_mi2 Mitglied Bauingenieur
Beiträge: 508 Registriert: 10.01.2003 ACAD2018
|
erstellt am: 05. Jul. 2011 12:26 <-- editieren / zitieren --> Unities abgeben:
folgende datei filter den pfad heraus, wenn ich eine lisp in das autocad-fenster schiebe aber irgendwas stimmt mit dem format nicht, wenn den pfad weiter verwursten will (princ "\n...") (Command "_copyhist") (command "_pasteclip" "0,0") (setq textobj (entlast)) (setq text "") (foreach n (entget textobj) (if (or (= (car n) 3) (= (car n) 1) ) (setq text (strcat text (cdr n))) ) ) (setq textlaenge (strlen text)) (entdel (entlast)) ;suchen (setq pfad nil) (setq suchtext "LOAD") (setq stelle (- textlaenge (strlen suchtext))) (setq fund 0) (setq vorfundstelle textlaenge) (while (and (> stelle 0) (= fund 0) ) (if (= (substr text stelle (strlen suchtext)) suchtext) (progn (setq fund 1) (setq fundstelle stelle) (setq pfad (substr text fundstelle (- textlaenge fundstelle))) ;anfang abschneiden (setq pfad (substr pfad 7 (- (strlen pfad) 7))) ;ende abschneiden (vl-load-com) (setq pfad (substr pfad 1 (+ (vl-string-position (ascii "/") pfad 0 T) 1))) );progn );if (setq stelle (- stelle 1)) );while (if pfad (progn ;"/P" herausfiltern (while (/= pfad (vl-string-subst "" "\\P" pfad)) (setq pfad (vl-string-subst "" "\\P" pfad)) );while (princ "\n\n\nPfad: ") (princ pfad) );progn );if (princ) ------------------ MfG Frank Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Bernd10 Mitglied
Beiträge: 763 Registriert: 20.11.2003 Intel(R) Xeon(R) W-2123 CPU @ 3.60GHz 16 GB RAM Windows 10 Pro 64-bit AutoCAD Mechnical 2020 Deu
|
erstellt am: 06. Jul. 2011 09:07 <-- editieren / zitieren --> Unities abgeben: Nur für fca_mi2
|
neurosis Mitglied dipl.ing.
Beiträge: 224 Registriert: 22.08.2006
|
erstellt am: 06. Jul. 2011 10:12 <-- editieren / zitieren --> Unities abgeben: Nur für fca_mi2
von http://www.theswamp.org/index.php?topic=31536.msg370785#msg370785 die funktion Code:
(defun GetClipText(/ html result) (setq html (vlax-create-object "htmlfile") result (vlax-invoke (vlax-get (vlax-get html 'ParentWindow) 'ClipBoardData) 'GetData "Text") ) (vlax-release-object html) result )
ladendann
Code:
(Command "_copyhist") (setq cb-str (GetClipText)) (if (setq pos (vl-string-search "(LOAD" cb-str)) (setq load-str (substr cb-str (1+ pos) (vl-string-search ")" (substr cb-str pos)))) )
es wird das erste auffinden von (load ...) in load-str gespeichert in der form "(LOAD \"c:/test/test.lsp\")" gruss marco ------------------ Marco Heuer www.arc-aachen.de Airport Office Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |