乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 10|回复: 10

[编程交流] 需要提取和更改

[复制链接]

91

主题

428

帖子

326

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
474
发表于 2022-7-6 09:36:04 | 显示全部楼层 |阅读模式
是否有任何方法可以通过AutoLISP查找选项的“文件”选项卡中的所有设置,然后将其更改为所需的值?
回复

使用道具 举报

pBe

32

主题

2722

帖子

2666

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
211
发表于 2022-7-6 09:46:01 | 显示全部楼层
 
获取环境变量值
Setenv公司
 

 
(vla get files(vla get preferences(vlax get acad object)))
 
见附件:
 
AutoCAD环境变量快速指南。pdf
回复

使用道具 举报

8

主题

159

帖子

153

银币

初来乍到

Rank: 1

铜币
40
发表于 2022-7-6 09:50:45 | 显示全部楼层
你可以在这里找到一些东西:
http://rkmcswain.blogspot.com/2007/02/setting-support-paths-via-lisp.html
克鲁格
回复

使用道具 举报

91

主题

428

帖子

326

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
474
发表于 2022-7-6 09:57:44 | 显示全部楼层
pBe,
谢谢你的回复。
 
我不知道如何使用getenv和setenv,也就是说,我不知道变量的名称。
 
这段代码很好地获取了环境变量,非常感谢您的帮助,但是如何设置变量呢?
回复

使用道具 举报

8

主题

159

帖子

153

银币

初来乍到

Rank: 1

铜币
40
发表于 2022-7-6 10:02:44 | 显示全部楼层
少量样品:
  1. (setq *files*
  2. (vla-get-files
  3.    (vla-get-preferences (vlax-get-acad-object))
  4. )
  5. )
  1. (vla-get-TempDirectory *files*)
  2. (vla-put-TempDirectory *files* "C:\\Temp\")
  1. (vla-get-PrinterConfigPath *files*)
  2. (vla-put-PrinterConfigPath *files* "\\\\ahi\\support\\CAD_Install\\LD6\ahi\\PLOTTERS")
ok?
克鲁格
回复

使用道具 举报

pBe

32

主题

2722

帖子

2666

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
211
发表于 2022-7-6 10:08:08 | 显示全部楼层
更新了帖子,为您提供SETENV/GETENV参考的附加pdf
 
至于vl
 
IAcadPreferencesFiles:该对象包含“选项”对话框上“文件”选项卡中的选项
属性值:
AltFontFile=
AltTabletMenuFile=
应用(RO)=#
自动保存路径=
配色路径=
配置文件(RO)=
自定义词典=
自定义路径=
默认InternetURL=
驱动器路径=
企业用户文件=
FontFileMap=
帮助文件路径=
日志文件路径=
主词典=
菜单文件=
页面设置覆盖模板文件=
PlotLogFilePath=
PostScriptPrologFile=
打印机配置路径=
打印机路径=
PrinterStyleSheetPath=
打印文件=
打印后台打印路径=
PrintSpool可执行文件=
QNewTemplateFile=
支持路径=
TempFilePath=
TemplateDwgPath=
TempXrefPath=
文本编辑器=
纹理贴图=
工具选项板路径=
工作空间路径=
支持的方法:
GetProjectFilePath(1)
SetProjectFilePath(2)
 
(vla put QNewTemplateFile VarName“NewValue”)
其中VarName是的乘积
 
(setq VarName(vla get files(vla get preferences(vlax get acad object)))
 
检查对象是否具有指定的属性
 
(vlax-property-available-p VarName“DriversPath”)
 

(setenv QnewTemplate“NewValue”)
 
Setenv变量名区分大小写,所以要小心
 
希望这有帮助
回复

使用道具 举报

91

主题

428

帖子

326

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
474
发表于 2022-7-6 10:16:08 | 显示全部楼层
克鲁格,谢谢你的目标,但在我的国家,地址是过滤的:震惊:。
回复

使用道具 举报

91

主题

428

帖子

326

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
474
发表于 2022-7-6 10:20:58 | 显示全部楼层
pBe和Kruuger,
谢谢你的帮助。
回复

使用道具 举报

44

主题

3166

帖子

2803

银币

中流砥柱

Rank: 25

铜币
557
发表于 2022-7-6 10:27:27 | 显示全部楼层
 
那太糟糕了。
回复

使用道具 举报

106

主题

1万

帖子

101

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1299
发表于 2022-7-6 10:33:06 | 显示全部楼层
只是一个建议,在设置路径时,您可能希望使用strcat并读取现有路径,然后添加自己的路径,然后更新路径,这样您就不会填充通用的Autocad路径。
 
像我这样的每一个即将载入2012年的人,这将有助于我们进行设置。
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-7 02:14 , Processed in 0.381922 second(s), 83 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表