CADsite forum

Hallo,
ik zag dat er reeds over deze materie gesproken werd in: http://www.cadsite.be/smf/index.php/topic,3195.0.html
ik had deze lisp reeds een tijdje, maar ze werkt niet echt zoals het hoort.
als ik deze lisp gebruik, dan voegt deze het path toe, en kan je ze ook zien bij de options.
Als "test.txt" een bestand is dat in die nieuwe map staat,
en met mijn lisp komt die nieuwe map bovenaan de lijst te staan van de zoek-paden.
waarom krijg ik dan de nil-melding bij dit commando : (findfile "test.txt")  ???
Het lijkt er op dat mijn map gewoon toegevoegd werd, maar niet geladen of geaktiveerd.
Misschien weet er hier iemand een antwoord op.... ik kijk er alvast naar uit.

;|---------------------------------------------------------------------------------------------|;
;| een nieuwe map toevoegen tot het Support File Search Path                             |;
;|---------------------------------------------------------------------------------------------|;
(defun voeg-supmap-toe (/ bestanden SupPath NewSupPath)
  (setq bestanden (vla-get-files (vla-get-preferences (vlax-get-acad-object)))
           SupPath (str2lst (vla-get-SupportPath bestanden ) ";")
           NewSupPath (cons "C:\\New Folder" SupPath))
  (vla-put-SupportPath files (lst2str NewSupPath ";"))  (vlax-release-object bestanden ) 
  (princ "\nDe nieuwe map werd toegevoed tot het Support File Search Path.")(princ))
;|---------------------------------------------------------------------------------------------|;
(defun str2lst (str sep / pos)
  (if (setq pos (vl-string-search sep str))
    (cons (substr str 1 pos)
     (str2lst (substr str (+ (strlen sep) pos 1)) sep))
    (list str)))
;|---------------------------------------------------------------------------------------------|;
(defun lst2str (lst sep)
  (if (cadr lst)
    (strcat (vl-princ-to-string (car lst))
       sep
       (lst2str (cdr lst) sep))
    (vl-princ-to-string (car lst))))
;|---------------------------------------------------------------------------------------------|;

THX.

Citaat van: WebRacer op za 04 04 2009, 10:31:03
Hallo,
ik zag dat er reeds over deze materie gesproken werd in: http://www.cadsite.be/smf/index.php/topic,3195.0.html
ik had deze lisp reeds een tijdje, maar ze werkt niet echt zoals het hoort.
als ik deze lisp gebruik, dan voegt deze het path toe, en kan je ze ook zien bij de options.
Als "test.txt" een bestand is dat in die nieuwe map staat,
en met mijn lisp komt die nieuwe map bovenaan de lijst te staan van de zoek-paden.
waarom krijg ik dan de nil-melding bij dit commando : (findfile "test.txt")  ???
Het lijkt er op dat mijn map gewoon toegevoegd werd, maar niet geladen of geaktiveerd.
Misschien weet er hier iemand een antwoord op.... ik kijk er alvast naar uit.

;|---------------------------------------------------------------------------------------------|;
;| een nieuwe map toevoegen tot het Support File Search Path                             |;
;|---------------------------------------------------------------------------------------------|;
(defun voeg-supmap-toe (/ bestanden SupPath NewSupPath)
  (setq bestanden (vla-get-files (vla-get-preferences (vlax-get-acad-object)))
           SupPath (str2lst (vla-get-SupportPath bestanden ) ";")
           NewSupPath (cons "C:\\New Folder" SupPath))
  (vla-put-SupportPath files (lst2str NewSupPath ";"))  (vlax-release-object bestanden ) 
  (princ "\nDe nieuwe map werd toegevoed tot het Support File Search Path.")(princ))
;|---------------------------------------------------------------------------------------------|;
(defun str2lst (str sep / pos)
  (if (setq pos (vl-string-search sep str))
    (cons (substr str 1 pos)
     (str2lst (substr str (+ (strlen sep) pos 1)) sep))
    (list str)))
;|---------------------------------------------------------------------------------------------|;
(defun lst2str (lst sep)
  (if (cadr lst)
    (strcat (vl-princ-to-string (car lst))
       sep
       (lst2str (cdr lst) sep))
    (vl-princ-to-string (car lst))))
;|---------------------------------------------------------------------------------------------|;

THX.

Beste Webracer,

Bedoel je met
(vla-put-SupportPath files (lst2str NewSupPath ";"))
niet (vla-put-SupportPath bestanden (lst2str NewSupPath ";"))

Met vriendelijke groet, HofCAD CSI.

ja beste hofcad.
ik heb dit ook aan autodesk forum geplaatst, maar in het engels...

sorry

weet je de oplossing eigenlijk?

ik ben nu bezig met dit er aan toe te voegen
(setq var (vlax-get (setq tmp (vlax-get (vlax-get (vlax-get-acad-object)"Preferences") "Files")) "SupportPath"))
(vlax-put tmp "SupportPath" var)

Citaat van: WebRacer op ma 06 04 2009, 09:03:31
ja beste hofcad.
ik heb dit ook aan autodesk forum geplaatst, maar in het engels...

sorry

weet je de oplossing eigenlijk?

ik ben nu bezig met dit er aan toe te voegen
(setq var (vlax-get (setq tmp (vlax-get (vlax-get (vlax-get-acad-object)"Preferences") "Files")) "SupportPath"))
(vlax-put tmp "SupportPath" var)

Beste WebRacer,

Probeer het eens door de "Nieuwe Map" van naam te veranderen in bijv. "NewMap"
en pas je programma aan.
Volgens mij werkt findfile alleen met DOS namen.
(Voor mensen uit Den Haag: DOS for ever).

Met vriendelijke groet, HofCAD CSI.

PS Is dit  (setq NewSupPath (cons "C:\\NewFol3" SupPath)) we l zo'n goede vondst?

Beste HofCAD

met alle respect voor u en uw on-eindige kennis....
maar we wijken af van de HAM-vraag

waarom is het pad niet acktief of geladen vlak na het lopen van de lisp?

Citaat van: WebRacer op ma 06 04 2009, 09:31:53
Beste HofCAD

met alle respect voor u en uw on-eindige kennis....
maar we wijken af van de HAM-vraag

waarom is het pad niet acktief of geladen vlak na het lopen van de lisp?

Beste WebRacer,

Ik wil niet van het onderwerp afwijken, want bij mij vindt hij de file Test.txt
in de map C:\NewMAP.
(findfile "test.txt") geeft:"C:\\NewMap\\test.txt"

Met vriendelijke groet, HofCAD CSI.

Beste HofCAD

bij nader inzien was jouw hulp zeer goed !
het lag namelijk aan mij.
ik gaf jullie een voorbeeldcode, zonder mijn effectieve lisp te tonen (vanwege te lang en gecompliceerd)
Maar je wees er mij op de mappen na te kijken, en daar lag inderdaad het probleem.

voor al wie hier wakker van lag --> sorry.
voor hofCAD --> thx