CADsite forum

Hallo, met onderstaande code kan ik de padnaam opvragen.
Weet iemand hoe ik 3 mappen hoger te pakken krijg ?
via dos misschien? cd.. cd.. cd.. maar hoe vang ik die naam?


(setq teknaam (substr (getvar "dwgprefix") 1 (- (strlen (getvar "dwgprefix")) 0)))    ;; zoekt tekening padnaam

dit dus niet :
(setq filenam (substr (getvar "dwgprefix") 1 (- (strlen (getvar "dwgprefix")) 34)))
want de padnamen hebben niet altijd 34 karakters

Bedankt alvast,
Martin

Kan waarschijnlijk eleganter maar dit werkt:
; (ParentDirectory (getvar 'dwgprefix) 1) => "D:\\bKG_tmp"
; Let op:
; (ParentDirectory (getvar 'dwgprefix) 1000) => "D:"
(defun ParentDirectory (path n)
  (setq path (vl-string-right-trim "\\/" path))
  (repeat n (setq path (vl-filename-directory path)))
  path
)

Citaat van: martin op vr 29 04 2016, 23:46:20Weet iemand hoe ik 3 mappen hoger te pakken krijg ?

(setq #path4 (vl-filename-directory (vl-filename-directory (vl-filename-directory (vl-filename-directory (getvar 'dwgprefix))))))

Citaat van: martin op vr 29 04 2016, 23:46:20(setq teknaam (substr (getvar "dwgprefix") 1 (- (strlen (getvar "dwgprefix")) 0)))    ;; zoekt tekening padnaam

(getvar "dwgprefix") doet exact hetzelfde.

Edit: (vl-load-com) niet vergeten!

Citaat van: gery op za 30 04 2016, 11:54:18
(getvar "dwgprefix") doet exact hetzelfde.

Niet helemaal. De code van martin verwijdert het laatste karakter (= 'path separator').

Edit:
Oops: Ik zie dat ik niet goed heb gelezen. Gery heeft gelijk. Door (- (strlen (getvar "dwgprefix")) 0) i.p.v. (- (strlen (getvar "dwgprefix")) 1) heeft de code geen effect.

Super bedankt !!! dit kan ik gebruiken.
groet,Martin

nog een vraag :
Met "dwgprefix" kan ik het pad zoeken
Hoe kan ik het AANTAL .dxf files uit deze map halen ?
die heb ik nodig voor mijn loop.
iets met "length" ? dan moet ik eerst een list hebben, toch ? Hoe kan dat?
Alvast bedankt,
groet, Martin

(vl-directory-files path "*.dxf" 1)