[求助]：急急急~~，关于设置CAD系统变量的问题。

yxfly

请问各位朋友，我现在想在程序中实现CAD的对象捕捉功能的控制，比如说关闭对象捕捉，打开对象捕捉，或是打开最近点，关闭正交之类的，该怎么做呢？麻烦知道的朋友说一下，很急用，谢谢各位！   （已经解决~~~~~~~~~~）

RedCAD

struct resbuf rb;
rb.restype=RTSHORT;
rb.resval.rint=512;//512代表只使用最近点捕捉模式
acedsetvar("osmode",&rb);

JOSDENNIS

ads_getvar("osmode",&os1);
                os2.restype=RTSHORT;//设置系统变量数据类型
                os2.resval.rint= (short)16438;//系统变量的新值.
                ads_setvar("osmode",&os2); //设置新值.
为什么只能这样用呀?
我想把Osmode的值设置成 上面的os1 变量+ os2的值的, 不知怎么才可以加起来, 请怎教各位大侠,

RedCAD

int m,n,k;
    struct resbuf rb1,rb2;
    acedGetVar("osmode",&rb1);
    rb1.restype=RTSHORT;
    m=rb1.resval.rint;
    n=你要设置的新的值;
    k=m+n;//K值必须是该系统变量允许的值，可以查一下系统变量
    rb2.restype=RTSHORT;
    rb2.resval.rint=k;
    acedSetVar("osmode",&rb2);

    ok!!!!

JOSDENNIS

真很感谢RedCAD, 我试过了, 可以了,我刚从LISP 转来学ARX 以后还望多多指点, 呵呵!!!

RedCAD

没什么，互相帮助，我也是从Lisp到VBA然后到ARX的。

jingelou

要用捕捉组合的可以用

os2.restype=RTSHORT;//设置系统变量数据类型
os2.resval.rint= AcDb::kOsMaskMid | AcDb::kOsMaskCen | AcDb::kOsMaskNode;
ads_setvar("osmode",&os2); //设置新值.

参见acdb.h


    // OsnapMask:  Specifies Osnap Operation.
    //
    enum OsnapMask         { kOsMaskEnd          = 1,
        kOsMaskMid          = 2,
        kOsMaskCen          = 4,
        kOsMaskNode         = 8,
        kOsMaskQuad         = 0x10,
        kOsMaskInt          = 0x20,
        kOsMaskIns          = 0x40,
        kOsMaskPerp         = 0x80,
        kOsMaskTan          = 0x100,
        kOsMaskNear         = 0x200,
        kOsMaskQuick        = 0x400,
        kOsMaskApint        = 0x800,
        kOsMaskImmediate    = 0x10000,
        kOsMaskAllowTan     = 0x20000,
        kOsMaskDisablePerp  = 0x40000,
        kOsMaskRelCartesian = 0x80000,
        kOsMaskRelPolar     = 0x100000 };

JOSDENNIS

再请教一个系统变量为字母的怎能么设置.
我这样做不行
char la1 ,la2;
la1 = "str";
la2 = "cen";
acedSetVar("clayer", la1);
                acedCommand(RTSTR , "polygon" , RTSTR , "12" , RT3DPOINT, pt1 ,RTSTR,"c", RTREAL,radius1, 0);
                acedCommand(RTSTR , "circle" , RT3DPOINT , pt2 , RTREAL, radius4 , 0);

                acedSetVar("clayer",la2);
                acedCommand(RTSTR , "circle" , RT3DPOINT , pt1 , RTREAL, radius2 , 0);

RedCAD

CString la1 ,la2;
  la1 = "str";
  la2 = "cen";
  struct resbuf rb;
  rb.restype=RTSTR;
  rb.resval.rstring=la1;
  acedSetVar("clayer", &rb);
  acedCommand(RTSTR , "polygon" , RTSTR , "12" , RT3DPOINT, pt1 ,RTSTR,"c", RTREAL,radius1, 0);
  acedCommand(RTSTR , "circle" , RT3DPOINT , pt2 , RTREAL, radius4 , 0);

  rb.restype=RTSTR;
  rb.resval.rstring=la2;
  acedSetVar("clayer", &rb);
  acedCommand(RTSTR , "circle" , RT3DPOINT , pt1 , RTREAL, radius2 , 0);
  
  ok!!!!!!

JOSDENNIS

真开心, 又学到了一点 :)  我买了VC.NET的基础来学, 先把VC.NET的学会再看ARX的好, 不然简单的东东都要来这里打扰大家, 呵呵,  谢谢!!!

jingelou

不要用acedCommand了，用起来真的很不方便