|
Lisp : Welche Dias sind in SLB ?
joern bosse am 11.12.2007 um 11:09 Uhr (0)
Hallo Andreas,vielleich helfen Dir folgende Codeschnipsel weiter:Code:(if (setq pfad (ext_folder "Bitte sld-Verzeichnis auswählen:")) (mapcar vl-filename-base(vl-directory-files pfad "*.sld" 1)));;;Verzeichnisauswahl(defun ext_folder (str / folder obj_shell) (setq obj_shell (vlax-get-or-create-object "shell.application")) (if (setq folder (vlax-invoke obj_shell "BrowseForFolder" 0 str 1)) (setq folder (vlax-get (vlax-get folder "Self") "Path"))) (vlax-release-object obj_shell) folder)------------------vie ...
| | In das Form Lisp wechseln |
|
Lisp : Kontrollfrage vor dem verlassen!
joern bosse am 02.03.2007 um 07:25 Uhr (0)
Hallo Steinwurm,dann müßte es doch eigentlich so funktionieren: (den Serverpfad in der ersten SETQ-Anweisung müßtest Du anpassen)Code:(setq serverpfad "K:Server")(command "bereinig" "bl" "" "n") (cond ((tblsearch "BLOCK" "A$C783F64F9") ( (if (not (findfile (strcat serverpfad (vl-filename-base(getvar "DWGNAME"))".dxf") )) (alert "DXF für ASS bitte erstellen!")))))@Udo: wenn ich vl-filename-base man schon vorher gekannt hätte... ------------------viele GrüßeJörn
| | In das Form Lisp wechseln |
|
Lisp : Block mit Command _.insert und * für Ursprung einfügen?
joern bosse am 08.08.2016 um 08:51 Uhr (1)
Hallo,ich habe mich jetzt für folgende Version entschieden:Code:(setq pfad "s:MeineBloeckeMeinBlock.dwg")(command "_.insert" (strcat (vl-filename-base pfad)"="pfad))(command)(vla-delete (vla-item (vla-get-blocks (vla-get-activedocument (vlax-get-Acad-Object)))(vl-filename-base pfad)))Damit habe ich mein Ziel erreicht, es geht sehr viel schneller als meine bisherige Version. Jetzt ist das Thema für mich abgehakt, danke für die vielen Antworten.------------------viele GrüßeJörnhttp://www.bosse-engineering.co ...
| | In das Form Lisp wechseln |
|
Lisp : Xref, Pfadangabe
joern bosse am 20.08.2008 um 08:26 Uhr (0)
Hallo Thomas,eigentlich war es mir klar, aber gestern abend war ich wohl schon ein bißchen durcheinander.Was mir noch gefehlt hatte war das XREF selber, also nicht die Referenz, zu aktualisieren:Code:(vla-reload(vla-item (vla-get-blocks(vla-get-activedocument(vlax-get-acad-object))) (vl-filename-base name_XREF)))Ohne Deine Hilfe hätte ich es bestimmt nicht hinbekommen, danke!!!------------------viele GrüßeJörnhttp://www.bosse-engineering.com
| | In das Form Lisp wechseln |
|
Lisp : Block mit Command _.insert und * für Ursprung einfügen?
joern bosse am 05.08.2016 um 18:11 Uhr (1)
Hallo Sebastian,also nochmal von Anfang:Ich habe eine ziemlich große Vorlagendatei mit jede Menge sichtbarer Geometrie (also nicht nur die Tabellen mit Blöcken, Layer usw.)Für einen Programmablauf müssen die Tabelleneinträge Blöcke und Layer aus der Vorlagendatei zur Verfügung stehen.Mein bisheriges Verfahren: (command "_.insert" "s:MeineBloeckeMeinBlock.dwg" "0,0" "" "" "")Dann habe ich die Vorlagenzeichnung komplett als Blockreferenz in er Zeichnung, also: (vla-delete (vlax-ename-vla-object(entlast)))Und ...
| | In das Form Lisp wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
