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