autocad尺寸標誌圖層問題

ximain

請問尺寸標註時, 如何自動跳到設定的圖層
! h% s, F  n7 p8 H8 [: x1 u) G例如原本在0層做圖...標尺寸時, 尺寸線會自動跳到設定的dim層
3 O( x2 W4 S) l原本的電腦有設定, 但在新電腦安裝後...卻忘了這個怎設定了...

woaishuijia

$ u  A: h0 A, i( L3 P+ j
复制下面的代码,将其粘贴在VBAIDE的thisdrawing代码窗口

1. Dim OldLayer As AcadLayer
   ; U9 N7 L; H  @$ O5 u
2. 
   
3. Private Sub AcadDocument_BeginCommand(ByVal CommandName As String)
   
4.     On Error Resume Next
   
5.     If CommandName = "DIMLINEAR" Or CommandName = "DIMALIGNED" Or CommandName = "DIMARC" Or CommandName = "DIMORDINATE" Or CommandName = "DIMRADIUS" Or CommandName = "DIMJOGGED" Or CommandName = "DIMDIAMETER" Or CommandName = "DIMANGULAR" Or CommandName = "QDIM" Or CommandName = "DIMBASELINE" Or CommandName = "DIMCONTINUE" Or CommandName = "QLEADER" Or CommandName = "TOLERANCE" Then
   
6.         Set OldLayer = ThisDrawing.ActiveLayer
   
7.         ThisDrawing.ActiveLayer = ThisDrawing.Layers("Dim")
   
8.     End If
   " ~' a& h$ ]" Q8 G
9. End Sub
   # c( x/ P% z5 p8 `- [: S! `7 t
10. 
    
11. Private Sub AcadDocument_EndCommand(ByVal CommandName As String)
    % ~9 G2 l4 b) J& ~# N
12.     If CommandName = "DIMLINEAR" Or CommandName = "DIMALIGNED" Or CommandName = "DIMARC" Or CommandName = "DIMORDINATE" Or CommandName = "DIMRADIUS" Or CommandName = "DIMJOGGED" Or CommandName = "DIMDIAMETER" Or CommandName = "DIMANGULAR" Or CommandName = "QDIM" Or CommandName = "DIMBASELINE" Or CommandName = "DIMCONTINUE" Or CommandName = "QLEADER" Or CommandName = "TOLERANCE" Then
    
13.         ThisDrawing.ActiveLayer = OldLayer
    
14.     End If
    
15. End Sub

复制代码

其中第7行的"Dim"应改为实际用于标注的图层名(必须在文档中真实存在)
在图形界面使用CAD命令时,程序会自动检测命令名.如果属于代码中涉及到的11个标注命令,代码会把当前图层改为标注图层;命令结束时再自动改回原来的图层.
如果想增加对其它命令的支持,可以自行修改第5行和第12行.
可以在VBAIDE中保存代码为DVB工程文件,便于以后重复使用.
9 t" F: m  g+ R4 C* R还可以把该工程文件命名为"ACAD.DVB"并保存在支持文件搜索目录中,并把"ACVBA.ARX"添加到启动组,使ACAD启动时即自动加载该工程文件.

ximain

感謝你的回覆...
VBAIDE這個是如何修改??
我記得以前好像是用筆記本修改.mnu這個檔案...是相同嗎??

SunVei

我们是靠 AutoLAy 来达成


% H3 F9 V1 F" q; X/ U" W但有人反应似乎有着版本差异的问题
# N: r* c; v( w# @- `8 ?0 u) b) {Ref: http://www.cadtutor.net/forum/sh ... Autolay.lsp-in-2010
# T* x9 R3 K, M! L$ V1 F6 Shttp://forums.autodesk.com/t5/Vi ... roblem/td-p/2218840
% `4 l$ _8 U$ U3 N6 U

woaishuijia

  y: m' q4 a) B/ K) k7 d% t. t- Z
先答复3楼,用这段代码的前提是安装了VBA模块.用"VBAIDE"命令打开VBA编辑器,双击"工程资源管理器"中的"ThisDrawing"对象,就会弹出"Code"窗口,粘贴就可以了.
不过之前没注意到楼主是台湾朋友,听说那边用VBA的不多,所以不能确定这段代码对你是否有用.
; Y/ G" g. z8 T5 c  `9 J2005及以前版本修改MNU文件也是一个办法,2006以后就没有这个文件了,因为CAD的自定义内容更多更复杂,因而采用其它文件格式了.不过这也没关系,可以在自定义对话框中修改.只要在某个用于标注的工具栏按钮的命令宏中添加一段用于更改图层的命令和参数就行了.比如,"线性标注"命令(dimlinear),打开自定义对话框,找到"标注"工具栏,再找到"线性"按钮,可以看到其命令宏是"^C^C_dimlinear "(注意,对话框中没有双引号;命令宏中最后一个字符是一个空格--这相当于在命令行中输入回车),现在可以把它改成"^C^C_-layer s Dim  dimlinear ",这个宏的意思就是相当于在命令行选输入"-layer"命令(即"layer"命令的命令行形式),回车,再输入"s"关键字,回车,再输入图层名,回车,回车,"dimlinear"命令,回车.
使用这种办法需要对每个涉及到的标注命令都更改一遍,麻烦.而且还要事先做备份,以防备万一.所以本人和5楼(也是来自台湾的朋友,很擅长LISP)一样,更喜欢用外部程序(插件).
5楼提供的LISP程序我没有看.我想道理和上面自定义命令宏应该是一样的,所以才会发生版本问题.由于LISP更多的是直接调用CAD图形界面的命令,而CAD图形界面的命令又在不断升级更新中,导致LSP代码经常不能适应新版本CAD.不过,由于ActiveX的内容相对稳定,用VLSP的反应器和GET,PUT函数(和2楼的VBA代码采用同样的方法)问题应该会减少很多

ximain

woaishuijia 发表于 2012-11-5 14:59 static/image/common/back.gif
先答复3楼,用这段代码的前提是安装了VBA模块.用"VBAIDE"命令打开VBA编辑器,双击"工程资源管理器"中的"ThisD ...

確實我們這邊少人用vba來修改
可以確定的是我是修改mnu文件來設定這個問題....
  U; e& e: X3 N4 |' {& @  ~但怎改的參數...忘了
來試試看你的這個方法或許可行....再次謝謝
6 g- A. a+ A1 f/ S9 Q

hottee2009

改menu参考:
- a4 ]% W1 h$ J" l& w( I工具>自订>介面>功能表>标注>线性  
巨集    ^C^C$S=X $S=LINE LAYER S dim;;dimlinear

ximain

hottee2009 发表于 2012-11-5 22:01 static/image/common/back.gif
* w# Q* G! a* e" t改menu参考:
2 C  U* P7 C& u8 f+ d工具>自订>介面>功能表>标注>线性  
# u/ L) x2 w1 c# C  O巨集    ^C^C$S=X $S=LINE LAYER S dim;;dimlinear

感謝
! O. P% C! h- L: L6 N3 F1 S! ^終於有點記憶了
以下是我的改法
**DIMENSION
9 M. b6 n2 t# Z; j7 [ID_MnDimensi   [標註(&N)]
ID_QDim        [快速標註(&Q)]^C^Cclayer dim ^C^C_qdim
               [--]
ID_Dimlinear   [線性(&L)]^C^Cclayer dim ^C^C_dimlinear
$ K; R+ C! A/ l5 t/ o( kID_Dimaligne   [對齊式(&G)]^C^Cclayer dim ^C^C_dimaligned
; t* l) p7 D* ?6 Y; [4 K$ I7 HID_Dimordina   [座標式(&O)]^C^Cclayer dim ^C^C_dimordinate
               [--]
" L1 o/ [; g7 y8 Z" PID_Dimradius   [半徑(&R)]^C^Cclayer dim ^C^C_dimradius
ID_Dimdiamet   [直徑(&D)]^C^Cclayer dim ^C^C_dimdiameter
ID_Dimangula   [角度(&A)]^C^Cclayer dim ^C^C_dimangular
               [--]
- H9 S+ y9 w: ?) r1 wID_Dimbaseli   [基線式(&B)]^C^Cclayer dim ^C^C_dimbaseline
ID_Dimcontin   [連續式(&C)]^C^Cclayer dim ^C^C_dimcontinue
4 l- z" m0 r3 {; [$ k               [--]
ID_Leader      [引線(&E)]^C^Cclayer dim ^C^C_qleader
ID_Tolerance   [公差(&T)...]^C^Cclayer dim ^C^C_tolerance
/ F. X3 F3 X) [4 r# G- {4 b3 jID_Dimcenter   [中心點標記(&M)]^C^Cclayer dim ^C^C_dimcenter
               [--]