设置支持路径

Lisphk · 发表于 2016-9-9 11:05:12

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

LISP代码：

(defun c:tt () ; set the path to the subdirectory.
(setq netpath
"C:\\Users\\Paul&Jen\\Documents\\_Library\\_PlaceLab\\AutoCAD"
) ; set the support paths to the
; autocad default
(setenv "ACAD" "") ; store the default paths
(setq defpath (getenv "ACAD")) ; set up the support file search
; paths
(setenv "ACAD" (strcat defpath ";" netpath ";" netpath "\\" "Blocks;"
netpath "\\" "Lisp;" netpath "\\" "Logos;" netpath
"\\" "PC3;" netpath "\\" "Plotstyles;"
)
)
)

VLISP代码：

[it618postdisplay>0]

(defun c:tt () ; resets the paths usefull for
; update versions of autocad
; by bigal 2011
; this sets a reference to the
; install path of your product
; the gets are their for info maybe
; other use
; use this to find other settings
; (vlax-dump-object (vla-get-files
; (vla-get-preferences
; (vlax-get-acad-
; object))) t)
(vl-load-com) ; make temp directory
; (vl-mkdir "c:\\acadtemp")
(setq *files* (vla-get-files (vla-get-preferences
(vlax-get-acad-object)
)
)
) ; savepath
; (vla-get-autosavepath *files*)
(vla-put-autosavepath *files* "C:\\AcadTemp") ; custom icons
; (vla-get-customiconpath *files*))
(vla-put-customiconpath *files* "P:\\Autodesk\\ICONS") ; custom menu
; (vla-get-menufile *files*))
(vla-put-menufile *files* "C:\\Users\\BIGAL") ; printers config
; (vla-get-printerconfigpath
; *files*)
(vla-put-printerconfigpath *files*
"P:\\AutoDESK\\Plotting\\Plot Styles 2011"
) ; printers style sheet
; (vla-get-printerstylesheetpath
; *files*)
(vla-put-printerstylesheetpath *files*
"P:\\AutoDESK\\Plotting\\Plot Styles"
) ; printer drv's
; (vla-get-printerdescpath *files*)
(vla-put-printerdescpath *files* "P:\\AutoDESK\\Plotting\\Drv") ; print
; spooler
; (vla-get-printspoolerpath *files*)
(vla-put-printspoolerpath *files* "C:\\AcadTemp\\") ; template path
; (vla-get-templatedwgpath *files*)
(vla-put-templatedwgpath *files* "P:\\Autodesk\\c3d Templates") ; templat
; e location
; (vla-get-qnewtemplatefile *files*)
(vla-put-qnewtemplatefile *files* "P:\\Autodesk\\c3d Templates\\my.dwt") ; make new support paths exist + new
(setq paths (vla-get-supportpath *files*))
(setq coggpaths "P:\\autodesk\\supportfiles;P:\\autodesk\\lisp;P:\\autodesk\\fonts;P:\\autodesk\\hfs fonts")
(setq newpath (strcat coggpaths paths))
(vla-put-supportpath *files* newpath) ; tempdirectory
; (vla-get-tempfilepath *files*))
(vla-put-tempfilepath *files* "C:\\AcadTemp\\") ; plotlogfilepath =
; "c:\\documents and
; settings\\ad\\local
; settings\\application
; data\\autodesk\\c3d 2011\\enu\\"
(vla-put-plotlogfilepath *files* "C:\\AcadTemp\\") ; logfilepath =
; "c:\\documents and
; settings\\ad\\local
; settings\\application
; data\\autodesk\\c3d 2011\\enu\\"
(vla-put-logfilepath *files* "C:\\AcadTemp\\") ; xref temp path
; (vla-get-tempxrefpath *files*))
(vla-put-tempxrefpath *files* "C:\\AcadTemp\\") ; end use of *files*
(vlax-release-object *files*) ; exit quitely
(princ "All Done")
)

(defun c:tt ()                               ; resets the paths usefull for 
                                       ; update versions of autocad 
                                       ; by bigal 2011 
                                       ; this sets a reference to the 
                                       ; install path of your product 
                                       ; the gets are their for info maybe 
                                       ; other use 
                                       ; use this to find other settings 
                                       ; (vlax-dump-object (vla-get-files 
                                       ; (vla-get-preferences 
                                       ; (vlax-get-acad- 
                                       ; object))) t) 
  (vl-load-com)                               ; make temp directory 
                                       ; (vl-mkdir "c:\\acadtemp") 
  (setq *files* (vla-get-files (vla-get-preferences 
                                                    (vlax-get-acad-object) 
                               ) 
                ) 
  )                                       ; savepath 
                                       ; (vla-get-autosavepath *files*) 
  (vla-put-autosavepath *files* "C:\\AcadTemp")        ; custom icons 
                                       ; (vla-get-customiconpath *files*)) 
  (vla-put-customiconpath *files* "P:\\Autodesk\\ICONS") ; custom menu 
                                       ; (vla-get-menufile *files*)) 
  (vla-put-menufile *files* "C:\\Users\\BIGAL")        ; printers config 
                                       ; (vla-get-printerconfigpath 
                                       ; *files*) 
  (vla-put-printerconfigpath *files* 
                             "P:\\AutoDESK\\Plotting\\Plot Styles 2011" 
  )                                       ; printers style sheet 
                                       ; (vla-get-printerstylesheetpath 
                                       ; *files*) 
  (vla-put-printerstylesheetpath *files* 
                                 "P:\\AutoDESK\\Plotting\\Plot Styles" 
  )                                       ; printer drv's 
                                       ; (vla-get-printerdescpath *files*) 
  (vla-put-printerdescpath *files* "P:\\AutoDESK\\Plotting\\Drv") ; print 
                                       ; spooler 
                                       ; (vla-get-printspoolerpath *files*) 
  (vla-put-printspoolerpath *files* "C:\\AcadTemp\\") ; template  path 
                                       ; (vla-get-templatedwgpath *files*) 
  (vla-put-templatedwgpath *files* "P:\\Autodesk\\c3d Templates") ; templat 
                                       ; e location 
                                       ; (vla-get-qnewtemplatefile *files*) 
  (vla-put-qnewtemplatefile *files* "P:\\Autodesk\\c3d Templates\\my.dwt") ; make new support paths exist + new 
  (setq paths (vla-get-supportpath *files*)) 
  (setq coggpaths "P:\\autodesk\\supportfiles;P:\\autodesk\\lisp;P:\\autodesk\\fonts;P:\\autodesk\\hfs fonts") 
  (setq newpath (strcat coggpaths paths)) 
  (vla-put-supportpath *files* newpath)        ; tempdirectory 
                                       ; (vla-get-tempfilepath *files*)) 
  (vla-put-tempfilepath *files* "C:\\AcadTemp\\") ;   plotlogfilepath = 
                                       ; "c:\\documents and 
                                       ; settings\\ad\\local 
                                       ; settings\\application 
                                       ; data\\autodesk\\c3d 2011\\enu\\" 
  (vla-put-plotlogfilepath *files* "C:\\AcadTemp\\") ;   logfilepath = 
                                       ; "c:\\documents and 
                                       ; settings\\ad\\local 
                                       ; settings\\application 
                                       ; data\\autodesk\\c3d 2011\\enu\\" 
  (vla-put-logfilepath *files* "C:\\AcadTemp\\") ; xref temp path 
                                       ; (vla-get-tempxrefpath *files*)) 
  (vla-put-tempxrefpath *files* "C:\\AcadTemp\\") ; end use of *files* 
  (vlax-release-object *files*)               ; exit quitely 
  (princ "All Done") 
)

[/it618postdisplay]

abc498091367 · 发表于 2016-9-9 11:27:46

学习，看看

429014673 · 发表于 2016-9-9 15:12:42

学习，看看

HLCAD · 发表于 2016-9-9 16:55:33

谢谢楼主！！！

lj524917100 · 发表于 2016-9-9 20:22:50

看看，有什么可以利用的

lj524917100 · 发表于 2016-9-9 20:24:15

学习学习学习学习学习

ynhh · 发表于 2016-9-9 20:43:34

学习学习再学习

sicky111 · 发表于 2016-9-10 22:02:44

看看隐藏的是什么

sicky111 · 发表于 2016-9-10 22:04:42

回复了还是看不到

shuaier · 发表于 2016-9-11 09:26:30

学习学习！

bai2000 · 发表于 2017-1-28 23:57:32

看看，有什么可以利用的

lhtfhc · 发表于 2017-1-31 17:32:45

学习一下，谢谢

auva · 发表于 2017-2-2 21:00:36

回帖学习学习！

qjcpj · 发表于 2017-2-7 08:27:55

看看，有什么可以利用的

sachindkini · 发表于 2017-2-9 15:29:26

see the hidden content of this post

账号		自动登录	找回密码
密码			立即注册

[每日一码] 设置支持路径

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。