【AcBr库应用（三）】给3DSOLID每个面设置不同的颜色

XDSoft · 发表于 2018-5-28 15:43:00

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

我们知道，CAD里面是没有命令可以将3DSOLID每个面设置不同的颜色的，我们可以通过ACBR API做到。

使用ACBRAPI，遍历每个面（FACE），然后通过子实体路径的子实体ID设置每个面的颜色

下面是ARX代码：

[C++] 纯文本查看 复制代码

void TestBrep(void) 
{ 
    Adesk::Int32 len; 
    ads_name  ssname0; 
  struct resbuf *buffer; 
    buffer = acutBuildList(-4, _T("<AND"), 
              RTDXF0, _T("3DSOLID"), 
              -4, _T("AND>"), RTNONE); 
    acutPrintf(_T("\nSelect a box:")); 
    acedSSGet(NULL, NULL, NULL, buffer, ssname0); 
   acutRelRb(buffer); 
  if (RTNORM == acedSSLength(ssname0, &len)) 
    { 
        ads_name  ent; 
        AcDbObjectId entId; 
    for(long k = 0; k < len; k++) 
        { 
            acedSSName(ssname0, k, ent); 
            acdbGetObjectId(entId, ent); 
      settingDifferentColorToEachFace(entId); 
        } 
        acedSSFree(ssname0); 
    } 
} 

void settingDifferentColorToEachFace(AcDbObjectId solidId) 
{ 
  AcCmColor specialColor; 
  AcDb3dSolid* pSolid; 
    if (Acad::eOk == acdbOpenObject(pSolid, solidId, AcDb::kForRead)) 
    { 
        AcDbFullSubentPath path(solidId, AcDbSubentId()); 
    AcBrBrep brep; 
        AcBr::ErrorStatus bs = brep.setSubentPath(path); 
        if (bs != AcBr::eOk) 
            return; 
   //Initialize the BrepFace traverser 
        AcBrBrepFaceTraverser bft; 
        bs = bft.setBrep(brep); 
        if (bs != AcBr::eOk) 
            return;  
        AcArray<AcDbSubentId> arrSubentId; 
        // Traverse all faces 
        for (;!bft.done();bft.next()) 
        { 
            AcBrFace face; 
            bs = bft.getFace(face);     
            if (bs != Acad::eOk) 
            { 
                acutPrintf(L"\ngetFace failed"); 
                break; 
            } 
            AcDbFullSubentPath    Path(kNullSubent); 
            AcDbSubentId          subentId; 
            AcBr::ErrorStatus bss = face.getSubentPath(Path); 
            subentId = Path.subentId(); 
            arrSubentId.append(subentId); 
        } 
        pSolid->upgradeOpen(); 
        for (int i = 0; i < arrSubentId.length(); i++) 
        { 
      specialColor.setColorIndex(i); 
            pSolid->setSubentColor(arrSubentId[i],specialColor); 
        } 
        pSolid->downgradeOpen(); 
    } 
    pSolid->close(); 
}

下面是XDRX API的AcBr库函数实现的LISP代码：

(defun c:tt ()
(defun _traversface (e)
(setq br (xdbr::constructor e))
(setq tr (xdbr::constructor "brepfacetraverser" br))
;;FACE遍历
(setq ids nil)
(while (not (xdbr::traverser:done tr));遍历面
(if (setq face (xdbr::getpropertyvalue tr "face"));获得当前遍历指针位置的面AcBrFace
(progn (setq SubEntPath (xdbr::getpropertyvalue face "subentpath");获得面的子实体路径
SubEntId (xdrx_getpropertyvalue SubEntPath "subentid");;获得子实体ID
ids (cons SubEntId ids);保存到全局表
)
(xdrx_object_release SubEntPath);;释放子实体路径变量
)
)
(xdbr::traverser:next tr);;遍历器指向下个位置
)
(xdrx_object_release tr br);;释放遍历器和BREP变量
(setq i 0)
(repeat (length ids);设置子实体面颜色
(xdrx_setpropertyvalue
e
"subentcolor"
(list (setq SubEntId (nth i ids)) (setq i (1+ i)))
)
(xdrx_object_release SubEntId);;释放子实体ID变量
(xdrx_prompt
(xdrx_string_format "\n - 面[%d]-颜色[%d]" i i)
)
) ;
)
(if (setq e (car (xdrx_entsel "\n选取3DSOLID<退出>:" '((0 . "3DSOLID")))
)
)
(progn (xdrx_begin) (_traversface e) (xdrx_end))
)
(princ)
)

(defun c:tt () 
  (defun _traversface (e) 
    (setq br (xdbr::constructor e)) 
    (setq tr (xdbr::constructor "brepfacetraverser" br)) 
    ;;FACE遍历 
    (setq ids nil) 
    (while (not (xdbr::traverser:done tr));遍历面 
      (if (setq face (xdbr::getpropertyvalue tr "face"));获得当前遍历指针位置的面AcBrFace 
        (progn (setq SubEntPath (xdbr::getpropertyvalue face "subentpath");获得面的子实体路径 
                     SubEntId   (xdrx_getpropertyvalue SubEntPath "subentid");;获得子实体ID 
                     ids        (cons SubEntId ids);保存到全局表 
               ) 
               (xdrx_object_release SubEntPath);;释放子实体路径变量 
        ) 
      ) 
      (xdbr::traverser:next tr);;遍历器指向下个位置 
    ) 
    (xdrx_object_release tr br);;释放遍历器和BREP变量 
    (setq i 0) 
    (repeat (length ids);设置子实体面颜色 
      (xdrx_setpropertyvalue 
        e 
        "subentcolor" 
        (list (setq SubEntId (nth i ids)) (setq i (1+ i))) 
      ) 
      (xdrx_object_release SubEntId);;释放子实体ID变量 
      (xdrx_prompt 
        (xdrx_string_format "\n - 面[%d]-颜色[%d]" i i) 
      ) 
    )                                   ; 
  ) 
  (if (setq e (car (xdrx_entsel "\n选取3DSOLID<退出>:" '((0 . "3DSOLID"))) 
              ) 
      ) 
    (progn (xdrx_begin) (_traversface e) (xdrx_end)) 
  ) 
  (princ) 
)

sh_h · 发表于 2018-5-29 10:05:42

本帖最后由 sh_h 于 2018-5-29 10:07 编辑

谢谢东哥分享！
其实CAD是有命令的，如果不对，还请指教！

XDSoft · 发表于 2018-5-29 10:21:23

sh_h 发表于 2018-5-29 10:05
谢谢东哥分享！
其实CAD是有命令的，如果不对，还请指教！

谢谢指正，
CAD的命令在编程自动化处理的时候，比较难用。

1121443108qaz · 发表于 2018-8-26 13:40:33

东哥厉害，原来acbr库是这么用的
来自: 微社区

1121443108qaz · 发表于 2018-8-26 15:19:11

我想用acbr库将面域转换成多段线而不是用打破的方法，使用acbredge和acbrloop怎么总是不允许不完整的类型
来自: 微社区

kaibing · 发表于 2020-1-2 13:58:05

怎样取得每个面的颜色属性？

kaibing · 发表于 2020-1-2 13:59:34

怎样取得每个面的颜色属性？

kaibing · 发表于 2020-1-6 08:23:51

大佬有没有空帮忙解答一下.

XDSoft · 发表于 2020-1-8 17:19:10

kaibing 发表于 2020-1-2 13:58
怎样取得每个面的颜色属性？

用上面的代码，循环
其中：
(xdrx_setpropertyvalue
      e
      "subentcolor"
      (list (setq SubEntId (nth i ids)) (setq i (1+ i)))
   )
是设置颜色的
用函数 xdrx_getpropertyvalue可以获取子实体的颜色
(xdrx_getpropertyvalue e "subentcolor")

kaibing · 发表于 2020-1-9 19:08:09

XDSoft 发表于 2020-1-8 17:19
用上面的代码，循环
其中：
(xdrx_setpropertyvalue

我试过了不行，所以才有以上问题的。请帮忙试一下，这个对我作用很大。谢谢

kaibing · 发表于 2020-2-8 21:24:35

老大们，是我用的不对吗，请帮忙指正，为什么查不到

kaibing · 发表于 2020-2-8 21:26:15

老大们，是我用的不对吗，请帮忙指正，为什么查不到

kaibing · 发表于 2020-3-31 13:58:22

怎麼設置我選擇的幾個面的顏色？怎麼建立立體面的選擇集？怎麼樣高亮指定面？

kaibing · 发表于 2020-4-2 13:49:19

kaibing 发表于 2020-3-31 13:58
怎麼設置我選擇的幾個面的顏色？怎麼建立立體面的選擇集？怎麼樣高亮指定面？

老大們，幫忙看看我的問題

Lisphk · 发表于 2020-4-2 15:19:20

本帖最后由 Lisphk 于 2020-4-2 15:22 编辑

kaibing 发表于 2020-1-2 13:58
怎样取得每个面的颜色属性？

获取每个面的颜色

(defun c:tt ()
(defun _traversface (e)
(setq br (xdbr::constructor e))
(setq tr (xdbr::constructor "brepfacetraverser" br))
;;FACE遍历
(setq ids nil)
(while (not (xdbr::traverser:done tr));遍历面
(if (setq face (xdbr::getpropertyvalue tr "face"));获得当前遍历指针位置的面AcBrFace
(progn (setq SubEntPath (xdbr::getpropertyvalue face "subentpath");获得面的子实体路径
SubEntId (xdrx_getpropertyvalue SubEntPath "subentid");;获得子实体ID
ids (cons SubEntId ids);保存到全局表
)
(xdrx_object_release SubEntPath);;释放子实体路径变量
)
)
(xdbr::traverser:next tr);;遍历器指向下个位置
)
(xdrx_object_release tr br);;释放遍历器和BREP变量
(setq i 0)
(repeat (length ids);获取子实体面颜色
(setq clr (xdrx_getpropertyvalue
e
"subentcolor"
(list (setq SubEntId (nth i ids)) (setq i (1+ i)))
)
)
(xdrx_object_release SubEntId);;释放子实体ID变量
(xdrx_prompt
(xdrx_string_format "\n - 面[%d]-颜色[%d]" i clr)
)
) ;
)
(if (setq e (car (xdrx_entsel "\n选取3DSOLID<退出>:" '((0 . "3DSOLID")))
)
)
(progn (xdrx_begin) (_traversface e) (xdrx_end))
)
(princ)
)

(defun c:tt () 
  (defun _traversface (e) 
    (setq br (xdbr::constructor e)) 
    (setq tr (xdbr::constructor "brepfacetraverser" br)) 
    ;;FACE遍历 
    (setq ids nil) 
    (while (not (xdbr::traverser:done tr));遍历面 
      (if (setq face (xdbr::getpropertyvalue tr "face"));获得当前遍历指针位置的面AcBrFace 
        (progn (setq SubEntPath (xdbr::getpropertyvalue face "subentpath");获得面的子实体路径 
                     SubEntId   (xdrx_getpropertyvalue SubEntPath "subentid");;获得子实体ID 
                     ids        (cons SubEntId ids);保存到全局表 
               ) 
               (xdrx_object_release SubEntPath);;释放子实体路径变量 
        ) 
      ) 
      (xdbr::traverser:next tr);;遍历器指向下个位置 
    ) 
    (xdrx_object_release tr br);;释放遍历器和BREP变量 
    (setq i 0) 
    (repeat (length ids);获取子实体面颜色 
      (setq clr (xdrx_getpropertyvalue 
                  e 
                  "subentcolor" 
                  (list (setq SubEntId (nth i ids)) (setq i (1+ i))) 
                ) 
      ) 
      (xdrx_object_release SubEntId);;释放子实体ID变量 
      (xdrx_prompt 
        (xdrx_string_format "\n - 面[%d]-颜色[%d]" i clr) 
      ) 
    )                                   ; 
  ) 
  (if (setq e (car (xdrx_entsel "\n选取3DSOLID<退出>:" '((0 . "3DSOLID"))) 
              ) 
      ) 
    (progn (xdrx_begin) (_traversface e) (xdrx_end)) 
  ) 
  (princ) 
)

命令: tt

选取3DSOLID<退出>:
- 面[1]-颜色[224]
- 面[2]-颜色[230]
- 面[3]-颜色[105]
- 面[4]-颜色[136]
- 面[5]-颜色[218]
- 面[6]-颜色[107]

账号		自动登录	找回密码
密码			立即注册

[教学] 【AcBr库应用（三）】给3DSOLID每个面设置不同的颜色

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

评分

点评

评分

点评