CADsite forum

Als ik elke keer autocad opstart moet ik telkens via  options

bij support file search patch een locatie toevoegen, omdat hij dat niet onthoudt,

Nu zou ik een lisp willen die ik dan in startup wil zetten en mij toegevoegde locatie automatisch toevoegd.

Dat is vreemd dat ie niet de locatie onthoud.
Autocad zou dat wel moeten doen.
Werk je via een netwerkversie of stand alone?
Je kan ook proberen je instellingen op te slaan in een profiel van jezelf.
Als je die ergens weg zet en current maakt moet ie de instellingen ook bij opstart inladen.

Beste Balletje23,

Van Jimmy Bergmark http://www.jtbworld.com/lisp/supportPaths.htm is de bijgevoegde Lisp file,
waarmee je het SupportPath kan bewaren en ophalen.
Natuurlijk moet je we in die twee programma's je eigen naam
en locatie kiezen voor r:\\paths.txt.
Je kan het programma loadSupportPaths zo veranderen, dat het
bestand  r:\\paths.txt niet meer nodig is.
(defun C:SetSupportPaths (/ files paths)
  (vl-load-com)
  (setq files (vla-get-files (vla-get-preferences (vlax-get-acad-object))))
  (setq paths
  (strcat
   "C:\\Documents and Settings\\HofCAD\\Application Data\\Autodesk\\AutoCAD 2008\\R17.1\\enu\\support;"
   "C:\\Program Files\\AutoCAD 2008\\support;"
   "C:\\Program Files\\AutoCAD 2008\\fonts;"
   "C:\\Program Files\\AutoCAD 2008\\help;"
   "C:\\Program Files\\AutoCAD 2008\\Express;"
   "C:\\Program Files\\AutoCAD 2008\\support\\color;"
   "C:\\HofCAD"))
  (vla-put-supportpath files paths)
  (princ)
)
Natuurlijk moet je in het bovenstaande programma je eigen SupportPath kiezen.


Met vriendelijke groet, HofCAD CSI.

Citaat van: HofCAD op ma 16 02 2009, 09:06:32
Beste Balletje23,

Van Jimmy Bergmark http://www.jtbworld.com/lisp/supportPaths.htm is de bijgevoegde Lisp file,
waarmee je het SupportPath kan bewaren en ophalen.
Natuurlijk moet je we in die twee programma's je eigen naam
en locatie kiezen voor r:\\paths.txt.
Je kan het programma loadSupportPaths zo veranderen, dat het
bestand  r:\\paths.txt niet meer nodig is.


Met vriendelijke groet, HofCAD CSI.

Hoi heren,

Dit heb ik er van gemaakt, volgens mij heb ik nog wat dingen vergeten, want hij
werkt niet, verder heb ik gemerkt dat deze op commando werkt(savesupportpaths),
graag zou ik willen als deze lsp in startup suite zit, automatisch de onderstaande locatie
voor me toevoegd.

C:\Documents and Settings\gebruiker01\Desktop\BB



;;; By Jimmy Bergmark
;;; Copyright (C) 1997-2006 JTB World, All Rights Reserved
;;; Website: www.jtbworld.com
;;; E-mail: info@jtbworld.com
;;;
;;; Save and loads support paths to a text file
;;;
;;; Change the path as wished

(defun C:saveSupportPaths (/ files paths f)
  (vl-load-com)
  (setq files (vla-get-files (vla-get-preferences (vlax-get-acad-object))))
  (setq paths (vla-get-supportpath files))
  (setq f (open "C:\Documents and Settings\gebruiker01\Desktop\BB" "w"))
  (write-line paths f)
  (close f)
  (princ)
)

(defun C:loadSupportPaths (/ files paths f)
  (vl-load-com)
  (setq files (vla-get-files (vla-get-preferences (vlax-get-acad-object))))
  (setq f (open "C:\Documents and Settings\gebruiker01\Desktop\BB" "r"))
  (setq paths (read-line f))
  (close f)
  (vla-put-supportpath files paths)
  (princ)
)

Citaat van: Lyrix op ma 16 02 2009, 09:02:16
Dat is vreemd dat ie niet de locatie onthoud.
Autocad zou dat wel moeten doen.
Werk je via een netwerkversie of stand alone?
Je kan ook proberen je instellingen op te slaan in een profiel van jezelf.
Als je die ergens weg zet en current maakt moet ie de instellingen ook bij opstart inladen.

het is helaas inderdaad van een netwerk, met standalone zou ik geen probleem mee hebben.
ik ga kijken of dat kan instelling opslaan in mijn profiel.

Beste Balletje23,

Je hebt in het path geen goede verwijzing gegeven en geen bestand.
Probeer dit eens:

;;; By Jimmy Bergmark
;;; Copyright (C) 1997-2006 JTB World, All Rights Reserved
;;; Website: www.jtbworld.com
;;; E-mail: info@jtbworld.com
;;;
;;; Save and loads support paths to a text file
;;;
;;; Change the path as wished

(defun C:saveSupportPaths (/ files paths f)
  (vl-load-com)
  (setq files (vla-get-files (vla-get-preferences (vlax-get-acad-object))))
  (setq paths (vla-get-supportpath files))
  (setq f (open "C:\\Documents and Settings\\gebruiker01\\Desktop\\BB\\paths.txt" "w"))
  (write-line paths f)
  (close f)
  (princ)
)

(defun C:loadSupportPaths (/ files paths f)
  (vl-load-com)
  (setq files (vla-get-files (vla-get-preferences (vlax-get-acad-object))))
  (setq f (open "C:\\Documents and Settings\\gebruiker01\\Desktop\\BB\\paths.txt" "r"))
  (setq paths (read-line f))
  (close f)
  (vla-put-supportpath files paths)
  (princ)
)

Of probeer dit eens:

(defun C:SetSupportPaths (/ files paths)
  (vl-load-com)
  (setq files (vla-get-files (vla-get-preferences (vlax-get-acad-object))))
  (setq paths
  (strcat
   "C:\\Documents and Settings\\gebruiker01\\Application Data\\Autodesk\\AutoCAD 2008\\R17.1\\enu\\support;"
   "C:\\Program Files\\AutoCAD 2008\\support;"
   "C:\\Program Files\\AutoCAD 2008\\fonts;"
   "C:\\Program Files\\AutoCAD 2008\\help;"
   "C:\\Program Files\\AutoCAD 2008\\Express;"
   "C:\\Program Files\\AutoCAD 2008\\support\\color;"
   "C:\\HofCAD"))
  (vla-put-supportpath files paths)
  (princ)
)

Natuurlijk moet je in het bovenstaande programma je eigen SupportPath kiezen.

Je kan ook naar deze oplossing http://rkmcswain.blogspot.com/2007/02/setting-support-paths-via-lisp.html
kijken.
Voor toevoegen kun je kijken naar: http://www.afralisp.net/Tips/code8.htm

Met vriendelijke groet, HofCAD CSI

PS In lisp gebruik je 2 backslash(\\) waar je er 1 backslash(\) nodig hebt of een forward slash(/).

Citaat van: HofCAD op ma 16 02 2009, 09:54:10

Code Selecteer Uitklappen

;;; By Jimmy Bergmark
;;; Copyright (C) 1997-2006 JTB World, All Rights Reserved
;;; Website: www.jtbworld.com
;;; E-mail: info@jtbworld.com
;;;
;;; Save and loads support paths to a text file
;;;
;;; Change the path as wished

(defun C:saveSupportPaths (/ files paths f)
  (vl-load-com)
  (setq files (vla-get-files (vla-get-preferences (vlax-get-acad-object))))
  (setq paths (vla-get-supportpath files))
  (setq f (open "C:\\Documents and Settings\\gebruiker01\\Desktop\\BB\\paths.txt" "w"))
  (write-line paths f)
  (close f)
  (princ)
)

(defun C:loadSupportPaths (/ files paths f)
  (vl-load-com)
  (setq files (vla-get-files (vla-get-preferences (vlax-get-acad-object))))
  (setq f (open "C:\\Documents and Settings\\gebruiker01\\Desktop\\BB\\paths.txt" "r"))
  (setq paths (read-line f))
  (close f)
  (vla-put-supportpath files paths)
  (princ)
)


Waar moet ik  dit regel nog meer toevoegen,
C:\\Documents and Settings\\gebruiker01\\Desktop\\BB

Verder moet ik met deze lisp altijd activeren met een command:savesupportpaths?
Het werkt voor mij nog steeds niet.

Citaat van: balletje23 op di 17 02 2009, 09:19:15
Waar moet ik  dit regel nog meer toevoegen,
C:\\Documents and Settings\\gebruiker01\\Desktop\\BB

Verder moet ik met deze lisp altijd activeren met een command:savesupportpaths?
Het werkt voor mij nog steeds niet.

Beste Balletje23,

Ik beschrijf nu twee methoden die je met de bijgevoegde Lisp file kan uitvoeren.

Toelichting Methode 1 voor het programma LoadSupportPaths:
Hierbij ga ik van de volgende veronderstelling uit:
Je hebt een map:  C:\Documents and Settings\gebruiker01\Desktop\BB

Zorg eerst met OPTIONS dat je 'support file search path' goed staat.

Als je de bijgevoegde Lisp file (SetPaths.lsp) laad met het commando APPLOAD (Afkorting AP)
dan moet je er eerst eenmalig voor zorgen dat er een file paths.txt bestaat,
door het commando SaveSupportPaths uit te voeren.

Nadat deze file paths.txt aangemaakt is in de map: C:\Documents and Settings\gebruiker01\Desktop\BB\,
kun je in een andere sessie van AutoCAD (na laden van SetPaths.lsp) via het commando LoadSupportPaths
het path terug zetten.

Toelichting Methode 2 voor het programma SetSupportPaths:
Hierbij ga ik van de volgende veronderstellingen uit:
1) Je computer gebruikersnaam is: gebruiker01
2) Je gebruikt: AutoCAD 2008 R17.1
3) Je gewenst 'support file search path'  is:
   C:\Documents and Settings\gebruiker01\Application Data\Autodesk\AutoCAD 2008\R17.1\enu\support
   C:\Program Files\AutoCAD 2008\support
   C:\Program Files\AutoCAD 2008\fonts
   C:\Program Files\AutoCAD 2008\help
   C:\Program Files\AutoCAD 2008\Express
   C:\Program Files\AutoCAD 2008\support\color
   C:\HofCAD
Waarbij de map C:\HofCAD je extra gewenste locatie is.

Als je het programma SetSupportPaths gebruikt moet je eerst controleren
in de bijgevoegde Lisp file (SetPaths.lsp), of het gedefinieerde path in het programma overkomt
met wat gewenst is.
Gebruik je AutoCAD 2008 of een andere versie en heet je 'gebruiker01'.
Na deze controle kan je de Lisp file (SetPaths.lsp) met het commando APPLOAD (Afkorting AP)
laden en kan je met het commando SetSupportPaths het path zetten.


Met vriendelijke groet, HofCAD CSI.

PS 1 In Lisp gebruik je 2 backslash(\\) waar je er 1 backslash(\) nodig hebt of een forward slash(/).
PS 2 Het laden van een Lisp bestand kan naast APPLOAD ook gedaan worden
door een Lisp routine te gebruiken op de commando regel; bijv. (load "c:\\SetPaths.lsp")
Maar men kan ook de Lisp file vanuit de Windows verkenner slepen naar het grafische scherm
van AutoCAD.
PS 3 Als het nu nog niet lukt, geef dan aan waar mijn veronderstellingen niet kloppen.

HofCAD thx!!!,

:DMethode 1 werkt perfect!!

heren allemaal bedankt!!!
voor de reacties