社区 › Auto Lisp › 阿卡多克。lsp帮助

AQucsaiJr 发表于 2022-7-6 12:25:17

阿卡多克。lsp帮助

有一个命令我可以用来加载模板。dwt文件，以便te用户在启动时可以访问它们？或者可能是ACAD中的命令。lsp文件？

alanjt 发表于 2022-7-6 12:42:07

 
您可以在选项中设置模板和QNew模板。

AQucsaiJr 发表于 2022-7-6 12:50:11

我希望这适用于我网络中共享ACADDOC的每台计算机。lsp文件，这样我就可以远离去每一个和设置这个。

tzframpton 发表于 2022-7-6 12:58:53

只需在选项>文件模板目录中设置路径。显然，只要确保它是联网的。

AQucsaiJr 发表于 2022-7-6 13:03:08

我可以用《阿卡多克》中的一句台词吗。lsp文件？

alanjt 发表于 2022-7-6 13:13:56

 
是的，但是你只需要做一次就可以了。这是我编写的设置例程，用于正确设置所有内容。欢迎您修改和使用。它具有设置模板路径所需的功能。
 
(defun c:CES-Setup (/ #Files #Layout #Flag)
(vl-load-com)
(and
   (not
   (vl-catch-all-error-p
       (vl-catch-all-apply
         '(lambda ()
            (setq #Files(vla-get-files
                            (vla-get-preferences (vlax-get-acad-object))
                        ) ;_ vla-get-files
                  #Layout (vla-get-activelayout
                            (vla-get-activedocument (vlax-get-acad-object))
                        ) ;_ vla-get-activelayout
            ) ;_ setq
            ;; *********************
            ;; **AutoSave Path**
            ;; *********************
            (mapcar 'vl-mkdir (list "c:\\TEMP" "c:\\TEMP\\ACAD"))
            (vla-put-autosavepath #Files "c:\\TEMP\\ACAD")
            ;; ***************************
            ;; **Printer Config Path**
            ;; ***************************
            (vla-put-PrinterConfigPath
            #Files
            "s:\\cadd standards\\Plotters"
            ) ;_ vla-put-PrinterConfigPath
            (vla-refreshplotdeviceinfo #Layout)
            ;; ***********************
            ;; **Plotstyles Path**
            ;; ***********************
            (vla-put-printerstylesheetpath
            #Files
            "s:\\cadd standards\\Plotstyles"
            ) ;_ vla-put-printerstylesheetpath
            (vla-refreshplotdeviceinfo #Layout)
            ;; *********************
            ;; **Template Path**
            ;; *********************
            (vla-put-TemplateDwgPath
            #Files
            "s:\\cadd standards\\Template"
            ) ;_ vla-put-TemplateDwgPath
            ;; *********************
            ;; **QNew Template**
            ;; *********************
            (vla-put-QNewTemplateFile
            #Files
            "s:\\cadd standards\\Template\\CES_Template.dwt"
            ) ;_ vla-put-QNewTemplateFile
            ;; *********************
            ;; **Support Paths**
            ;; *********************
            (vla-put-supportpath
            #Files
            (strcat ";s:\\cadd standards\\startup"
                      ";s:\\cadd standards\\lisp"
                      ";s:\\cadd standards\\linetypes"
                      ";s:\\cadd standards\\fonts"
                      ";s:\\cadd standards\\ces layers"
                      ";"
                      (vla-get-supportpath #Files)
            ) ;_ strcat
            ) ;_ vla-put-supportpath
            ;; ***************************
            ;; **Tool Palettes Paths**
            ;; ***************************
            (vla-put-ToolPalettePath
            #Files
            (strcat "S:\\CADD Standards\\Toolpalette\\Palettes;"
                      (vla-get-ToolPalettePath #Files)
            ) ;_ strcat
            ) ;_ vla-put-ToolPalettePath
          ) ;_ lambda
       ) ;_ vl-catch-all-apply
   ) ;_ vl-catch-all-error-p
   ) ;_ not
   (alert
   (strcat
       "AutoCAD has been setup for Capital Engineering & Surveying, Inc. Standards.\n\n"
       "                      Please restart AutoCAD."
   ) ;_ strcat
   ) ;_ alert
) ;_ and
(princ)
) ;_ defun
(alert "Type: \"CES-SETUP\" to run setup.")
(princ)

AQucsaiJr 发表于 2022-7-6 13:16:59

哇！美好的我会看看我能用这个做什么。。。谢谢

alanjt 发表于 2022-7-6 13:28:41

 
 
没问题，当我把它引入06到08的切换时，我得到了一点不错的奖金。

查看完整版本: 阿卡多克。lsp帮助