CADsite forum

@ Cumen: Probeer FolderInsert (zie bijlage).

Roy,


Bedankt voor je moeite.
BaBe heb ik uitprobeert maar dit is niet wat ik zocht, maar de FolderInsert.lsp is wel wat ik in gedachten had.
Echter moet ik nu de coördinaten zelf opgeven (klikken) en de folder waar de tekeningen staan handmatig opgeven.
Ik heb geprobeerd deze te veranderen  en de coördinaten vaste waardes te geven (het is altijd A3 en 10 moeten naast elkaar komen en de rest dan naar boven opbouwen).
Nu wil ik de lsp zo veranderen dat het automatisch naar de projectmap gaat die ik opgeef en deze dan zonder de X en Y coördinaten moet opgeven zelf opbouwd.
Wat heb ik nu niet goed aangegeven in onderstaande lsp deze werkt nog niet.


(defun c:dxf ( / extPattern files oldOsmode path pt ptShift)
  (if
    (and
      (setq proj (getstring T "\nProject: "))
      (setq map (strcat "C:\\archief\\" proj "\\aanzichttekeningen\\"))
      (setq proj (getfiled "Selecteer de project map" "" "dxf;dwg" 0))
      (setq extPattern (strcat "*" (vl-filename-extension proj)))
      (setq proj (strcat (vl-filename-directory proj) "\\"))
      (setq files (vl-directory-files proj extPattern 1))
      (setq pt (getpoint (strcat "\nFirst insertion point for " (strcase extPattern) " FolderInsert: ")))
      (setq ptShift (getdist "\nHorizontal distance: "))
      (setq ptShift (list ptShift 0 0))
    )
    (progn
      (setq oldOsmode (getvar 'osmode))
      (setvar 'osmode 0)
      (setvar 'cmdecho 0)
      (mapcar
        '(lambda (file)
          (command "_.-insert" (strcat (vl-filename-base file) "=" proj file) "_x" 1 "_y" 1 "_z" 1 "_r" 0 pt)
          (setq pt (mapcar '+ pt ptShift))
        )
        (vl-sort files '(lambda (a b) (< (strcase a) (strcase b))))
      )
  )
  (princ)
)



Grotjes,

FolderInsert2.lsp bevat 2 lisp commando's:
1. FolderInsertOptions
2. FolderInsertSpecial
Het laatste commando is een variant aangepast aan jouw defaults.

Als je verder wilt gaan met lisp dan is het aan te raden om eerst een (internet) cursus te volgen.
Wat links:
http://www.autolisp-tutorial.mapcar.net/ (Bijzonder goed maar wel in het Duits)
http://www.afralisp.net/
http://www.cadsite.be/lisp/lisp.php

Beste Roy, 

Nogmaals bedankt voor al je moeite en mijn complimenten werkt perfect.
Ik ga de internet cursus zeker volgen, bedankt.

Alleen heb ik nog een laatste vraag, kan ook in deze lsp na inlezen van de tekeningen, ook automatisch layouts genereren?
Ik heb al een poging gewacht, maar het lukt niet echt zie bijlage.

Groetjes,

Ik volsta op dit moment met jou veel succes en plezier toe te wensen bij het volgen de Lisp-cursus van jouw voorkeur. Als je daarna een SERIEUZE poging doet om de Lisp aan te passen dan zal ik proberen daar op te reageren.