用XD里的acbr 实现点选3dsolid面修改面的颜色

kaibing

1. ;点选面改面颜色
   
2. (defun changfacecolor (e pnt colorN)
   
3.   (setq br (xdbr::constructor e))
   
4.   (setq tr (xdbr::constructor "brepfacetraverser" br))
   
5.   ;;FACE遍历
   
6.   (setq        face-count 0
   
7.         ids nil
   
8.         distminlist nil
   
9.   )
   
10.   (xdrx_entity_delete co-ss)
    
11.   (xdrx_setmark)
    
12.   (while (not (xdbr::traverser:done tr)) ;回圈遍历
    
13.     (if        (setq face (xdbr::getpropertyvalue tr "face"))
    
14.       ;;AcBrFace对象
    
15.       (progn (setq face-count  (1+ face-count)
    
16.                    gface       (xdbr::getpropertyvalue face "surface")
    
17.                    ;;得到AcGeSurface物件
    
18.                    closest-pnt (xdge::getpropertyvalue
    
19.                                  gface
    
20.                                  "closestpointto"
    
21.                                  pnt
    
22.                                )
    
23.                    ;;最近点
    
24.                    dist               (distance pnt closest-pnt)
    
25.                    SubEntPath  (xdbr::getpropertyvalue face "subentpath")
    
26.                                         ;获得面的子实体路径
    
27.                    SubEntId    (xdrx_getpropertyvalue SubEntPath "subentid")
    
28.                    ;;获得子实体ID
    
29.                    ids               (cons SubEntId ids) ;保存到全域表
    
30.              )
    
31.              (setq distminlist
    
32.                     (cons (list (distance closest-pnt pnt) SubEntId)
    
33.                           distminlist
    
34.                     )
    
35.              )
    
36.              (xdrx_object_release gface face)
    
37.              ;;释放AcBrFace、AcGeSurface
    
38.       )
    
39.     )
    
40.     (setq co-ss (xdrx_getss))
    
41.     (xdbr::traverser:next tr)
    
42.   )                                        ;while
    
43.   (setq        distminlist
    
44.          (vl-sort distminlist
    
45.                   (function (lambda (x y) (< (car x) (car y))))
    
46.          )
    
47.   )                                        ;距离重排序
    
48.   (xdrx_setpropertyvalue
    
49.     e
    
50.     "subentcolor"
    
51.     (list (cdr (car distminlist)) colorN)
    
52.   )
    
53.   (xdrx_object_release tr br)
    
54. )                                        ;end
    
55. 
    
56. (defun c:cfc ()
    
57.   (if (setq
    
58.         e (car (xdrx_entsel "\n选取3DSOLID<退出>:" '((0 . "3DSOLID")))
    
59.           )
    
60.       )
    
61.     (progn (xdrx_begin)                        ;(xdrx_sysvar_push '("osmode" 512))
    
62.                                         ;(xdrx_setvar "pdmode" 35)
    
63.            (while (setq pt (getpoint "\n点取测试点<退出>:"))
    
64.              (changfacecolor e pt 1)
    
65.            )
    
66.            (xdrx_end)
    
67.     )
    
68.   )
    
69.   (princ)
    
70. )
    

;点选面改面颜色<br /> (defun changfacecolor (e pnt colorN)<br />   (setq br (xdbr::constructor e))<br />   (setq tr (xdbr::constructor "brepfacetraverser" br))<br />   ;;FACE遍历<br />   (setq        face-count 0<br />         ids nil<br />         distminlist nil<br />   )<br />   (xdrx_entity_delete co-ss)<br />   (xdrx_setmark)<br />   (while (not (xdbr::traverser:done tr)) ;回圈遍历<br />     (if        (setq face (xdbr::getpropertyvalue tr "face"))<br />       ;;AcBrFace对象<br />       (progn (setq face-count  (1+ face-count)<br />                    gface       (xdbr::getpropertyvalue face "surface")<br />                    ;;得到AcGeSurface物件<br />                    closest-pnt (xdge::getpropertyvalue<br />                                  gface<br />                                  "closestpointto"<br />                                  pnt<br />                                )<br />                    ;;最近点<br />                    dist               (distance pnt closest-pnt)<br />                    SubEntPath  (xdbr::getpropertyvalue face "subentpath")<br />                                         ;获得面的子实体路径<br />                    SubEntId    (xdrx_getpropertyvalue SubEntPath "subentid")<br />                    ;;获得子实体ID<br />                    ids               (cons SubEntId ids) ;保存到全域表<br />              )<br />              (setq distminlist<br />                     (cons (list (distance closest-pnt pnt) SubEntId)<br />                           distminlist<br />                     )<br />              )<br />              (xdrx_object_release gface face)<br />              ;;释放AcBrFace、AcGeSurface<br />       )<br />     )<br />     (setq co-ss (xdrx_getss))<br />     (xdbr::traverser:next tr)<br />   )                                        ;while<br />   (setq        distminlist<br />          (vl-sort distminlist<br />                   (function (lambda (x y) (< (car x) (car y))))<br />          )<br />   )                                        ;距离重排序<br />   (xdrx_setpropertyvalue<br />     e<br />     "subentcolor"<br />     (list (cdr (car distminlist)) colorN)<br />   )<br />   (xdrx_object_release tr br)<br /> )                                        ;end<br /> <br /> (defun c:cfc ()<br />   (if (setq<br />         e (car (xdrx_entsel "\n选取3DSOLID<退出>:" '((0 . "3DSOLID")))<br />           )<br />       )<br />     (progn (xdrx_begin)                        ;(xdrx_sysvar_push '("osmode" 512))<br />                                         ;(xdrx_setvar "pdmode" 35)<br />            (while (setq pt (getpoint "\n点取测试点<退出>:"))<br />              (changfacecolor e pt 1)<br />            )<br />            (xdrx_end)<br />     )<br />   )<br />   (princ)<br /> )<br />

序其实是取一个点，计算这个点到3Dsolid的最近面，找到这个面。
有时会出计算出错，不知道为什么？
还有问题是有没有办法直接选面，这样计算点的距离总不是个好办法。
你们有好办法吗？

XDSoft

用 点监视器，写回调函数去试试实现
xdrx-pointmonitor

kaibing

XDSoft 发表于 2020-4-19 17:00
用 点监视器，写回调函数去试试实现
xdrx-pointmonitor

我试了好久，搞不太懂。 xdrx-pointmonitor 在我这个程序里有什么作用。取得这个点的数据没有问题，但是 当一个长方体中间有一个圆柱孔时，点在圆柱体面上 closestpointto 出来的值应该是0，但实际不对。

marting

kaibing 发表于 2020-4-20 23:23
我试了好久，搞不太懂。 xdrx-pointmonitor 在我这个程序里有什么作用。取得这个点的数据没有问题，但是  ...

拾取3DSOLID后，
通过点监视器，动态判断你鼠标在屏幕的点，求出距离这个点最近的面，然后你加亮显示这个面，模拟你拾取了哪个面

kaibing

marting 发表于 2020-4-20 23:46
拾取3DSOLID后，
通过点监视器，动态判断你鼠标在屏幕的点，求出距离这个点最近的面，然后你加亮显示这 ...

能幫忙寫一下嗎？向你學習。

kaibing

marting 发表于 2020-4-20 23:46
拾取3DSOLID后，
通过点监视器，动态判断你鼠标在屏幕的点，求出距离这个点最近的面，然后你加亮显示这 ...

現在最大的問題，(xdge::getpropertyvalue gface "closestpointto" pnt) ，我的點明明就在面上，但出來的值不對。