乐筑天下

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

[编程交流] 如何锁定图形和

[复制链接]

11

主题

36

帖子

25

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
55
发表于 2022-7-6 10:01:58 | 显示全部楼层 |阅读模式
我对autocad lisp也是新手,请耐心等待。
这是我的问题。我有一张机械图纸,电气部门正在对其进行外部参照。我的文件太大了,当他们打开文件时需要整整一分钟,他们总是抱怨(我想你已经知道你是否在机械方面)。因此,我们决定只锁定他们需要查看的设备,并将其保存在我的mechanical图纸所在的同一目录中,然后将其保存为Mech-Elec.dwg。每次我合上画的时候都很痛苦。
 
 
(定义c:ewblock(/)
 
(命令“clayer”“M-Floor”)
(命令“-layer”“freeze”“~*|*”“”)
(命令“-LAYER”“THAW”“M-Floor”“”)
(命令“-LAYER”“THAW”“M-Ceiling”“”)
(命令“-LAYER”“THAW”“M-Wall”“”)
(命令“-LAYER”“THAW”“M-ROOF”“”)
(命令“-LAYER”“THAW”“M-Tags”“”)
(命令“-LAYER”“THAW”“M-constator”“”)
(命令“-LAYER”“THAW”“M-Panel”“”)
(命令“-LAYER”“THAW”“M-Ex-Floor”“”)
(命令“-LAYER”“THAW”“M-Ex-Ceiling”“”)
(命令“-LAYER”“THAW”“M-EX-Wall”“”)
(命令“-LAYER”“THAW”“M-EX-ROOF”“”)
(命令“-LAYER”“THAW”“M-EX-constator”“”)
(命令“-LAYER”“THAW”“M-EX-Panel”“”)
 
(命令“-WBLOCK”)
 
--这就是我被困的地方。我想自动将其保存为Mech-Elec.dwg,并将其保存在与工作图形相同的文件夹中,并使用0,0作为基点。
 
请需要帮助。。。。
回复

使用道具 举报

106

主题

1万

帖子

101

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1299
发表于 2022-7-6 10:25:59 | 显示全部楼层
只需观察命令行并将答案放入程序中,即可检索当前目录等,并将dwg名称添加为lisp变量
 
还可以在filedia=0时运行它
 
我认为如果您回答没有路径的dwg名称,它会将其保存到当前目录中
回复

使用道具 举报

11

主题

36

帖子

25

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
55
发表于 2022-7-6 10:46:04 | 显示全部楼层
wblock中的“-”已经抑制了对话框。
 
输出文件始终保存在我打开的最后一个文件夹中,而不是工作图形目录中。如果打开工作图形,请在“卫浴”文件夹中打开卫浴图形。然后运行代码,它会将其保存在管道目录下。我的文件在文件服务器上到处都是。
回复

使用道具 举报

3

主题

61

帖子

58

银币

初来乍到

Rank: 1

铜币
16
发表于 2022-7-6 10:57:16 | 显示全部楼层
您可以通过以下方式获取文件名:
(SETQ DWG(GETVAR“DWGNAME”))
(SETQ PRE(GETVAR“DWGPREFIX”))
 
你可以通过SSGET电话得到你想要的
(setq-stuff(ssget))
 
然后你需要WBLOCK
 
希望这有帮助
回复

使用道具 举报

11

主题

36

帖子

25

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
55
发表于 2022-7-6 11:16:05 | 显示全部楼层
谢谢格兰特。现在知道了。
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-7 00:21 , Processed in 1.157633 second(s), 62 queries .

© 2020-2025 乐筑天下

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