乐筑天下

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

[综合讨论] 打开特定文件的宏

[复制链接]

106

主题

1万

帖子

101

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1299
发表于 2022-7-7 00:08:10 | 显示全部楼层
我对你想做的事的看法。这些是完整的图纸,不是块。
001856je2q4vmh2vvwmvqq.png
回复

使用道具 举报

5

主题

14

帖子

9

银币

初来乍到

Rank: 1

铜币
25
发表于 2022-7-7 00:10:17 | 显示全部楼层
这是lisp程序吗?这是什么?
回复

使用道具 举报

106

主题

1万

帖子

101

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1299
发表于 2022-7-7 00:14:51 | 显示全部楼层
它是一个带有幻灯片图像的老式菜单,是Autocad内部的内置功能等,几乎从Autocad诞生以来就已经存在了。
 
您制作或添加到下拉菜单。我们有大约10个这样的页面,它们可以是多个页面。
 
基本指令是制作一个菜单,并有一个图像部分,每个图像都有一个指令,可以是do命令或运行lisp等。
 
你们需要做一些关于制作菜单的家庭作业,但若你们能用记事本的话,那个么你们就只需要1/2的时间。
 
你制作了MSLIDE,它就像dwg的位图图像。我关掉了很多东西,使图像看起来更清晰,但基本上你可以使用最大化。我用脚本把这些图像制作成一次50张幻灯片。目前没有cad Vslide视图。你可以制作一个SLB幻灯片库,所以复制到另一台电脑时只需要一个文件。
 
这是一个图像的示例代码,因为这个菜单有很多选项,所以只需稍微减少一点。“openblk”解决了文件名中的空格等问题。
 
  1. ***MENUGROUP=BIG-Al
  2. ***POP19
  3. **CADLIB
  4.             [LIBRARY]
  5.             [->Stddwgs]
  6.             [TRENCH]$I=BIG-Al.TRENCH $I=*
  7.             [PIPES]$I=BIG-Al.PIPES $I=*
  8.             [PITS]$I=BIG-Al.PITS $I=*
  9.             [KERBS]$I=BIG-Al.KERBS $I=*
  10.             [ROADX]$I=BIG-Al.ROADX $I=*
  11.             [PAVEMENTS]$I=BIG-Al.PAVEMENT $I=*
  12.             [MISC]$I=BIG-Al.MISC $I=*
  13. [<-]
  14. ***image
  15. **KERBS
  16. [KERBS]
  17. [bIG-AlSLD(SD401,B1 KERB)]^C^C(openblk "P:/ACADSTDS/CIVIL STANDARDS/CGG401")
  18. [bIG-AlSLD(SD402,B2 KERB)]^C^C(openblk "P:/ACADSTDS/CIVIL STANDARDS/CGG402")
  19. [bIG-AlSLD(SD403,B3 KERB)]^C^C(openblk "P:/ACADSTDS/CIVIL STANDARDS/CGG403")
  20. [bIG-AlSLD(SD404,LAYBACK B2-3)]^C^C(openblk "P:/ACADSTDS/CIVIL STANDARDS/CGG404")
  21. [bIG-AlSLD(SD405,SM1 KERB)]^C^C(openblk "P:/ACADSTDS/CIVIL STANDARDS/CGG405")
还返回“T:\\02\u标准\\03\u块库\\cEnergy\\PENDING\\C YN\u细节\u通用.dwg”。
 
所以
  1. (defun openblk (blkname / adocs)
  2. (setq acDocs (vla-get-documents (vlax-get-acad-object)))
  3. (vla-open acDocs blkname)
  4. (vla-activate (vla-item acdocs 1))
  5. )
可能是另一个宏选项。
回复

使用道具 举报

17

主题

1274

帖子

25

银币

后起之秀

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

铜币
260
发表于 2022-7-7 00:22:12 | 显示全部楼层
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-10 10:41 , Processed in 0.360507 second(s), 60 queries .

© 2020-2025 乐筑天下

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