adamstef Posted September 5, 2022 Report Share Posted September 5, 2022 Witam serdecznie, jestem nowy na tym forum więc serdecznie witam wszystkich. Opisze w kilku słowach mój problem, mam np. 100 plików DWG z elementami, które musze następnie obrobić w programie CAM. Chciałbym się zapytać czy zna ktoś jakiś sposób żeby te 100 rysunków umieścić w 1 pliku ?? Quote Link to comment Share on other sites More sharing options...
Adam Klaczek Posted September 5, 2022 Report Share Posted September 5, 2022 Dzień dobry, Może załadować wszystkie poleceniem _XREF (skrót XR): Quote Link to comment Share on other sites More sharing options...
adamstef Posted September 5, 2022 Author Report Share Posted September 5, 2022 Wszystko nakłada się na siebie 😞 Quote Link to comment Share on other sites More sharing options...
Adam Klaczek Posted September 5, 2022 Report Share Posted September 5, 2022 Pewnie takie mają współrzędne. Ale łatwo je rozsunąć, bo xref wystarczy kliknąć i zaznaczy się całość. Gdyby je wstawiać pojedynczo, można wskazać punk wstawienia. Quote Link to comment Share on other sites More sharing options...
BKW Posted September 10, 2022 Report Share Posted September 10, 2022 Jako dodatkową podpowiedź polecam użyć polecenia XBIND lub z okna XREF kliknąć PPM na potrzebnego xrefa i wywołać polecenie BIND Quote Link to comment Share on other sites More sharing options...
zwonko Posted September 13, 2022 Report Share Posted September 13, 2022 moze taki lisp (defun c:InsertAll ( / cmd dir extn pt vec ) (setq extn "dwg") ;; Extension of files to Insert e.g "dwg" (if (and (setq dir (LM:DirectoryDialog (strcat "Select Directory of " (strcase extn) " Files to Insert") nil 512)) (setq vec (getpoint "\nPick Spacing Vector: " '(0 0 0))) ) (progn (setq cmd (getvar 'CMDECHO)) (setvar 'CMDECHO 0) (setq pt '(0 0 0)) (foreach file (vl-directory-files dir (strcat "*." extn) 1) (vl-cmdf "_.-insert" (strcat dir "\\" file) "_S" 1.0 "_R" 0.0 "_non" pt) (setq pt (mapcar '+ pt vec)) ) (setvar 'CMDECHO cmd) ) (princ "\n*Cancel*") ) (princ) ) ;;-------------------=={ Directory Dialog }==-----------------;; ;; ;; ;; Displays a dialog prompting the user to select a folder ;; ;;------------------------------------------------------------;; ;; Author: Lee Mac, Copyright © 2011 - www.lee-mac.com ;; ;;------------------------------------------------------------;; ;; Arguments: ;; ;; msg - message to display at top of dialog ;; ;; dir - root directory (or nil) ;; ;; flag - bit coded flag specifying dialog display settings ;; ;;------------------------------------------------------------;; ;; Returns: Selected folder filepath, else nil ;; ;;------------------------------------------------------------;; (defun LM:DirectoryDialog ( msg dir flag / Shell Fold Self Path ) (vl-catch-all-apply (function (lambda ( / ac HWND ) (if (setq Shell (vla-getInterfaceObject (setq ac (vlax-get-acad-object)) "Shell.Application") HWND (vl-catch-all-apply 'vla-get-HWND (list ac)) Fold (vlax-invoke-method Shell 'BrowseForFolder (if (vl-catch-all-error-p HWND) 0 HWND) msg flag dir) ) (setq Self (vlax-get-property Fold 'Self) Path (vlax-get-property Self 'Path) Path (vl-string-right-trim "\\" (vl-string-translate "/" "\\" Path)) ) ) ) ) ) (if Self (vlax-release-object Self)) (if Fold (vlax-release-object Fold)) (if Shell (vlax-release-object Shell)) Path ) (vl-load-com) (princ) dmatusz3 1 Quote Link to comment Share on other sites More sharing options...
dmatusz3 Posted September 21, 2022 Report Share Posted September 21, 2022 Ciekawy pomysł, skrypt wstawia kolejne pliki przesunięte o początkowy wektor. Żeby było łatwiej zapisałem lispa w pliku dwg i zapisałem na serwerze, można go pobrać tutaj. Sposób działania: Pobrany plik przeciągamy na obszar roboczy programu CAD. Wpisujemy polecenie INSERTALL. W oknie eksploratora wybieramy katalog z plikami dwg - do rysunku zostaną wstawione wszystkie pliki z tego katalogu. Definiujemy odstęp pomiędzy kolejnymi plikami dwg (można wskazać myszką lub wpisać na klawiaturze). Poniżej film przedstawiający sposób działania lispa (jako plików dwg użyłem kilku bloków ze znakami drogowymi z nakładki ZWTraffic ). Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.