XDGE几何库应用(26)--交点信息Configs

st788796 · 发表于 2014-10-11 21:47:29

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

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

×

本帖最后由 st788796 于 2014-10-11 21:48 编辑

也许曲线布尔、曲线裁减需要用到，先留存，慢慢研究

(defun c:tt (/ ss ge1 ge2 gcc lst n pts i xconfigs zh lst)
(if
(and (setq
ss (ssget '((0 . "*polyline,line,spline,circle,arc,ellipse")))
)
(= (sslength ss) 2)
(mapcar 'set
'(ge1 ge2)
(xdge::constructor (setq lst (xdrx_pickset->ents ss)))
)
(setq gcc (xdge::constructor "kCurveCurveInt3d" ge1 ge2))
(> (setq n (xdge::getpropertyvalue gcc "numIntPoints")) 0)
)
(progn
(setq i n)
(repeat i
(setq pts
(cons
(xdge::getpropertyvalue gcc "IntPoint" (setq n (1- n)))
pts
)
xconfigs (cons (xdge::getpropertyvalue gcc "getIntConfigs" n)
xconfigs
)
)
)
(mapcar '(lambda (x y)
(xdrx_entity_setcolor x y)
(xdrx_entity_setcolor
(xdrx_point_make (xdrx_curve_getstartpoint x))
y
)
(setq i (1+ i))
)
lst
'(1 2)
)
(setq zh (getvar "textsize"))
(mapcar
'(lambda (x y)
(xdrx_entity_setcolor
(xdrx_text_make (mapcar '+ x '(1. 0. 0.)) (car y) zh 0.)
1
)
(xdrx_entity_setcolor
(xdrx_text_make
(mapcar '+ x (list 1. (* zh -1.2) 0.))
(cadr y)
(getvar "textsize")
0.
)
2
)
)
pts
xconfigs
)
)
)
(xdge::free)
(princ)
)

(defun c:tt (/ ss ge1 ge2 gcc lst n pts i xconfigs zh lst) 
  (if 
    (and (setq 
           ss (ssget '((0 . "*polyline,line,spline,circle,arc,ellipse"))) 
         ) 
         (= (sslength ss) 2) 
         (mapcar 'set 
                 '(ge1 ge2) 
                 (xdge::constructor (setq lst (xdrx_pickset->ents ss))) 
         ) 
         (setq gcc (xdge::constructor "kCurveCurveInt3d" ge1 ge2)) 
         (> (setq n (xdge::getpropertyvalue gcc "numIntPoints")) 0) 
    ) 
     (progn 
       (setq i n) 
       (repeat i 
         (setq pts 
                        (cons 
                          (xdge::getpropertyvalue gcc "IntPoint" (setq n (1- n))) 
                          pts 
                        ) 
               xconfigs        (cons (xdge::getpropertyvalue gcc "getIntConfigs" n) 
                              xconfigs 
                        ) 
         ) 
       ) 
       (mapcar '(lambda        (x y) 
                  (xdrx_entity_setcolor x y) 
                  (xdrx_entity_setcolor 
                    (xdrx_point_make (xdrx_curve_getstartpoint x)) 
                    y 
                  ) 
                  (setq i (1+ i)) 
                ) 
               lst 
               '(1 2) 
       ) 
       (setq zh (getvar "textsize")) 
       (mapcar 
         '(lambda (x y) 
            (xdrx_entity_setcolor 
              (xdrx_text_make (mapcar '+ x '(1. 0. 0.)) (car y) zh 0.) 
              1 
            ) 
            (xdrx_entity_setcolor 
              (xdrx_text_make 
                (mapcar '+ x (list 1. (* zh -1.2) 0.)) 
                (cadr y) 
                (getvar "textsize") 
                0. 
              ) 
              2 
            ) 
          ) 
         pts 
         xconfigs 
       ) 
     ) 
  ) 
  (xdge::free) 
  (princ) 
)

st788796 · 发表于 2014-10-12 08:41:39

Left Right 带代表彼线穿越此线的方式，同时也是彼线的前进方向，kLeftRight 就是彼线由此线内部穿出，离开

st788796 · 发表于 2014-11-18 00:07:01

本帖最后由 st788796 于 2014-11-18 00:09 编辑

kLeftRight & kRightLeft 前面的单词表示起始方向

st788796 · 发表于 2014-11-18 00:26:12

kRightRight & kLeftLeft

aeo · 发表于 2017-1-4 23:09:35

"，kLeftRight 就是彼线由此线内部穿出，离开"
这表述不对吧，只是表示后面两贴说的情况吧。

一堆东西呢，都什么意思？
st 靠你了

enum AcGeXConfig {
kNotDefined = 1<<0,
kUnknown = 1<<1,
kLeftRight = 1<<2,
kRightLeft = 1<<3,
kLeftLeft = 1<<4,
kRightRight = 1<<5,
kPointLeft = 1<<6,
kPointRight = 1<<7,
kLeftOverlap = 1<<8,
kOverlapLeft = 1<<9,
kRightOverlap = 1<<10,
kOverlapRight = 1<<11,
kOverlapStart = 1<<12,
kOverlapEnd = 1<<13,
kOverlapOverlap = 1<<14
};

newer · 发表于 2017-1-4 23:15:20

aeo 发表于 2017-1-4 23:09

枚举值

1<<2, 左移2位相当于2^2=4
1<<3 8
.....

aeo · 发表于 2017-1-5 00:19:53

newer 发表于 2017-1-4 23:15

哎....

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

[研讨] XDGE几何库应用(26)--交点信息Configs

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

本帖被以下淘专辑推荐: