(XDGL::Curve:ToCompositeCrv3d)连续曲线构造AcGeCompositeCrv3d

eachy · 发表于 2014-10-13 19:09:54

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

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

×

(defun XDGL::Curve:ToCompositeCrv3d (_clst / _endtoend gelst fcrv nlst nl tf
crv mod c3d
)
(defun _endtoend (l1 / sc lc sc_sp lc_ep sp ep tf tf1)
(setq sc (car nlst)
lc (last nlst)
sc_sp (caadr sc)
lc_ep (last (cadr lc))
sp (caadr l1)
ep (last (cadr l1))
)
(if (or
(if (setq tf1 (equal sp sc_sp 1e-6))
(setq tf 0)
tf1
)
(if (setq tf1 (equal ep sc_sp 1e-6))
(setq tf 1)
tf1
)
(if (setq tf1 (equal sp lc_ep 1e-6))
(setq tf 2)
tf1
)
(if (setq tf1 (equal ep lc_sp 1e-6))
(setq tf 3)
tf1
)
)
tf
)
)
(setq gelst (xdge::constructor _clst)
gelst (mapcar
'(lambda (x)
(list x (xdge::getpropertyvalue x "hasStartPoint"
"hasEndPoint"
)
)
)
gelst
)
fcrv (car gelst)
gelst (cdr gelst)
nlst (list fcrv)
)
(while gelst
(if (setq nl (vl-member-if '(lambda (x / sc lc sp ep sc_sp lc_ep)
(_endtoend x)
) gelst
)
)
(progn
(setq crv (car nl)
mod (_endtoend crv)
)
(cond
((= mod 0)
(setq nlst (cons (list (xdge::setpropertyvalue (car crv)
"reverseParam"
) (reverse (cadr crv))
) nlst
)
)
)
((= mod 1)
(setq nlst (cons crv nlst))
)
((= mod 2)
(setq nlst (reverse (cons crv (reverse nlst))))
)
(t
(setq nlst (reverse (cons (list (xdge::getpropertyvalue
(car crv) "reverseParam"
) (reverse (cadr crv))
) (reverse nlst)
)
)
)
)
)
)
)
(setq gelst (cdr gelst))
) ; 改变原曲线为首尾相接
(setq nlst (mapcar
'car
nlst
)
)
(setq c3d (xdge::constructor "kCompositeCrv3d" nlst))
(xdge::free nlst)
c3d
)

(defun XDGL::Curve:ToCompositeCrv3d (_clst / _endtoend gelst fcrv nlst nl tf 
                                           crv mod c3d 
                                    ) 
  (defun _endtoend (l1 / sc lc sc_sp lc_ep sp ep tf tf1) 
    (setq sc (car nlst) 
          lc (last nlst) 
          sc_sp (caadr sc) 
          lc_ep (last (cadr lc)) 
          sp (caadr l1) 
          ep (last (cadr l1)) 
    ) 
    (if (or 
          (if (setq tf1 (equal sp sc_sp 1e-6)) 
            (setq tf 0) 
            tf1 
          ) 
          (if (setq tf1 (equal ep sc_sp 1e-6)) 
            (setq tf 1) 
            tf1 
          ) 
          (if (setq tf1 (equal sp lc_ep 1e-6)) 
            (setq tf 2) 
            tf1 
          ) 
          (if (setq tf1 (equal ep lc_sp 1e-6)) 
            (setq tf 3) 
            tf1 
          ) 
        ) 
      tf 
    ) 
  ) 
  (setq gelst (xdge::constructor _clst) 
        gelst (mapcar 
                '(lambda (x) 
                   (list x (xdge::getpropertyvalue x "hasStartPoint" 
                                                   "hasEndPoint" 
                           ) 
                   ) 
                 ) 
                gelst 
              ) 
        fcrv (car gelst) 
        gelst (cdr gelst) 
        nlst (list fcrv) 
  ) 
  (while gelst 
    (if (setq nl (vl-member-if '(lambda (x / sc lc sp ep sc_sp lc_ep) 
                                  (_endtoend x) 
                                ) gelst 
                 ) 
        ) 
      (progn 
        (setq crv (car nl) 
              mod (_endtoend crv) 
        ) 
        (cond 
          ((= mod 0) 
            (setq nlst (cons (list (xdge::setpropertyvalue (car crv) 
                                                           "reverseParam" 
                                   ) (reverse (cadr crv)) 
                             ) nlst 
                       ) 
            ) 
          ) 
          ((= mod 1) 
            (setq nlst (cons crv nlst)) 
          ) 
          ((= mod 2) 
            (setq nlst (reverse (cons crv (reverse nlst)))) 
          ) 
          (t 
            (setq nlst (reverse (cons (list (xdge::getpropertyvalue 
                                                                    (car crv) "reverseParam" 
                                            ) (reverse (cadr crv)) 
                                      ) (reverse nlst) 
                                ) 
                       ) 
            ) 
          ) 
        ) 
      ) 
    ) 
    (setq gelst (cdr gelst)) 
  )                                       ; 改变原曲线为首尾相接 
  (setq nlst (mapcar 
               'car 
               nlst 
             ) 
  ) 
  (setq c3d (xdge::constructor "kCompositeCrv3d" nlst)) 
  (xdge::free nlst) 
  c3d 
)

st788796 · 发表于 2014-10-13 20:09:37

在有 ARC 时可能构造不够长

XDSoft · 发表于 2014-10-13 21:06:23

期待完善这个CompositeCrv3d的容器。

eachy · 发表于 2014-10-13 22:04:19

Arc Ellipse (非闭合）Lwpolyline 属一个平面内曲线，但是这个平面倾斜时各节点可表现为不同标高
AcGeCompositeCrv2d中有逆时针Arc, 3d没有，有多种情况待验证

XDSoft · 发表于 2014-10-13 23:16:06

eachy 发表于 2014-10-13 22:04
Arc Ellipse (非闭合）Lwpolyline 属一个平面内曲线，但是这个平面倾斜时各节点可表现为不同标高
AcGeComp ...

3D可以通过计算BULGE，正负来判断顺逆时针。

st788796 · 发表于 2014-10-13 23:30:49

XDSoft 发表于 2014-10-13 23:16
3D可以通过计算BULGE，正负来判断顺逆时针。

两码事，比如两条空间line, 中间一个ucs 平面 arc 连接，这个按Arx 关于AcGeCompositeCrv3d定义，首尾相接即可，但中间这个圆弧在什么情况下可以将三个线段构造成一个AcGeCompositeCrv3d需要验证

XDSoft · 发表于 2014-10-14 00:35:19

空间3D就不会出现这样的线和ARC相连的，因为连接不起来，因为3DPOLYLINE只能是直线段组成，不能有ARC。带ARC的，只能所有曲线在一个空间平面上，相对顶点连接才有意义。这样的实体才能用2D POLYLINE来表示。

st788796 · 发表于 2014-10-14 05:57:04

XDSoft 发表于 2014-10-14 00:35
空间3D就不会出现这样的线和ARC相连的，因为连接不起来，因为3DPOLYLINE只能是直线段组成，不能有ARC。带AR ...

你说的没错，但构造AcGeCompositeCrv3d没有说有这个限制，com3d仅是一个数学模型，构造它是为了利用它的特性和方法，eachy这个函数意图是将一组线构造个com3d模型，不是3dpoly，两者不同

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

[曲线] (XDGL::Curve:ToCompositeCrv3d)连续曲线构造AcGeCompositeCrv3d

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

点评