通过acadd添加支持路径
早上好是否可以通过acaddoc添加新的支持路径。lsp文件？我想添加新路径到：
1、支持文件搜索路径
2、打印机支持文件路径
3、模板设置
我需要在AutoCAD 2013 Mac版本中执行此操作，因此没有VisualLISP。我甚至不知道从哪里开始
谢谢
保罗 我试过了，但没用
;;Sets the support file search paths
(setenv "SupportFilePath" (strcat "/Users/PlaceLab03/Desktop/_Library/Lisp))
(setenv "SupportFilePath" (strcat "/Users/PlaceLab03/Desktop/_Library))
保罗 你不能通过选项永久地做到这一点吗？ Hi dbroda你好
是的，我可以，但我正在尝试在多台计算机上远程执行此操作。我觉得通过lisp最好
当做
保罗 不确定Mac版本：
（setenv“ACAD”“path；path；path….”）
我猜是阿卡多克的原因。LSP是因为您希望为每个CAD站“重新设置路径”，以阻止用户根据自己的喜好调整SFSP。 但是，对于打开的每个文件，您都必须这样做吗？
这就是阿卡多克。lsp用于！ pBe-谢谢-这让我思考和研究了更多。是的，阿卡多克。lsp阻止用户修改内容。
多哥-谢谢-也许这太过分了，我应该停止偏执，但我想确保文件路径保持原样。也许有一种更简洁的方法可以做到这一点，但我的知识还不足以实现它。
在进一步调整之后，我得到了：
;;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;"
))
;;set up the template settings paths
(setenv "QnewTemplate" "C:\\Users\\Paul&Jen\\Documents\\_Library\\_PlaceLab\\AutoCAD\\Templates\\PlaceLab.dwt")
(setenv "SheetSetTemplatePath" "C:\\Users\\Paul&Jen\\Documents\\_Library\\AutoCAD\\Templates\\_SheetSets")
(setenv "TemplatePath" "C:\\Users\\Paul&Jen\\Documents\\_Library\\_PlaceLab\\AutoCAD\\Templates")
;;set up the printer support file paths
(setenv "PrinterStyleSheetDir" "C:\\Users\\Paul&Jen\\Documents\\_Library\\_PlaceLab\\AutoCAD\\Plotstyles")
(setenv "PrinterConfigDir" "C:\\Users\\Paul&Jen\\Documents\\_Library\\_PlaceLab\\AutoCAD\\PC3")
;;inform the user
(prompt "\nSupport Paths Defined\n") 我拥有的路径用于在本地机器上进行测试。当我完全实现时，我将拥有网络路径。 在MAC上可能有几种方法？在Pc上，我们复制并更改autocad桌面图标，以在启动autocad时识别另一个配置文件，其/p>位已更改/p C3D2013。在windows中，右键单击图标，然后编辑属性“目标”
你所要做的就是设置所有路径等，然后保存一个配置文件。这里重要的一部分是将你的主自定义菜单设置到其他地方，在我们的例子中是它的\用户\用户ID。
将新的ARG文件和CUI复制到您已访问的新目录。
重要信息：正常启动Autocad加载新配置文件使其可用使其成为当前配置文件，然后使用新图标退出Autocad。它应完全加载（我们有8台电脑）在出现故障时将旧图标删除到目录中。
这是一个扩展版本，用于设置配置文件中的大部分内容
; 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\\")
; templatepath
;(vla-get-TemplateDwgPath *files*)
(vla-put-TemplateDwgPath *files* "P:\\Autodesk\\c3d Templates")
; template 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")
嗨BIGAL
谢谢你的回复。不幸的是，Mac版本没有VisualLisp，不过现在有了类似于图纸集管理器的项目管理器，所以我尝试了一种更基本的方法来获得相同的结果。
当做
保罗
页:
[1]