CAD图层和线型设置

lihao2014

主要用到函数说明：

MxDrawXCustomFunction::Mx_SetSysVar

得到当前空间的所有实体。详细说明如下：

参数	说明
CString sVarName	系统变量名
Value	需要设置的值

设置图层使用如下：

1.         Dim param As MxDrawResbuf
   
2.         Set param = New MxDrawResbuf
   
3.         param.AddString "CLAYER"
   
4.         param.AddString "图层1", 5005 ' 5005 = RTSTR,代码是一个字符串类型的值
   
5.         MxDrawX1.CallEx "Mx_SetSysVar", param

复制代码

js创建图层，并设置成当前层代码如下：

1. function CreateCommentLayer()
   
2. {
   
3.         var mxOcx = document.getElementById("MxDrawXCtrl");
   
4.                 mxOcx.AddLayer("MyComment");
   
5.                 mxOcx.LayerName = "MyComment";
   
6.                
   
7.                 var param = mxOcx.NewResbuf();
   
8.                 param.AddString("CLAYER");
   
9.                 param.AddStringEx("MyComment",5005);
   
10.         mxOcx.CallEx("Mx_SetSysVar", param);
    
11. }

复制代码

设置线型使用如下：

1.         Dim param As MxDrawResbuf
   
2.         Set param = New MxDrawResbuf
   
3.         param.AddString "CELTYPE"
   
4.         param.AddString "DOT", 5005 ' 5005 = RTSTR,代码是一个字符串类型的值
   
5.         MxDrawX1.CallEx "Mx_SetSysVar", param

复制代码