（XD::Geom:isArc）判断SPLINE或者点表是否组成弧线（ARC）

Lispboy · 发表于 2017-8-25 19:34:26

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

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

×

(defun xd::Geom:isArc (pts fuzz / #center #endang #normal #radius #refvec #startang ang g lst normal ret tf x)
(if (= (type pts) 'ENAME)
(progn
(setq lst (xdrx_getsamplept pts 3)
normal (xdrx_getpropertyvalue pts "normal")
g (xdge::constructor "kcircarc3d")
)
(xdge::setpropertyvalue g "set" (car lst) (cadr lst) (last lst))
(if (equal (xdrx_getpropertyvalue pts "area")
(xdge::getpropertyvalue g "area") fuzz
)
(progn
(setq tf t)
)
)
)
(progn
(setq lst (list (car pts) (nth (fix (/ (length pts) 2.0)) pts)
(last pts)
)
normal (getvar "viewdir")
g (xdge::constructor "kcircarc3d")
)
(xdge::setpropertyvalue g "set" (car lst) (cadr lst) (last lst))
(if (vl-every '(lambda (x)
(equal (xdge::getpropertyvalue g "distanceto" x) 0.0
fuzz
)
) pts
)
(progn
(setq tf t)
)
)
)
)
(if tf
(progn
(setq ret (xdge::getpropertyvalue g "center" "radius" "startang"
"endang" "refvec" "normal"
)
ang (xdrx_vector_angleonplane #refvec #normal)
ret (list #center #radius (+ #startang
ang
) (+ #endang
ang
)
)
)
)
)
(xdge::free g)
ret
)

(defun xd::Geom:isArc (pts fuzz / #center #endang #normal #radius #refvec #startang ang g lst normal ret tf x) 
  (if (= (type pts) 'ENAME) 
    (progn 
      (setq lst (xdrx_getsamplept pts 3) 
            normal (xdrx_getpropertyvalue pts "normal") 
            g (xdge::constructor "kcircarc3d") 
      ) 
      (xdge::setpropertyvalue g "set" (car lst) (cadr lst) (last lst)) 
      (if (equal (xdrx_getpropertyvalue pts "area") 
                 (xdge::getpropertyvalue g "area") fuzz 
          ) 
        (progn 
          (setq tf t) 
        ) 
      ) 
    ) 
    (progn 
      (setq lst (list (car pts) (nth (fix (/ (length pts) 2.0)) pts) 
                      (last pts) 
                ) 
            normal (getvar "viewdir") 
            g (xdge::constructor "kcircarc3d") 
      ) 
      (xdge::setpropertyvalue g "set" (car lst) (cadr lst) (last lst)) 
      (if (vl-every '(lambda (x) 
                       (equal (xdge::getpropertyvalue g "distanceto" x) 0.0 
                              fuzz 
                       ) 
                     ) pts 
          ) 
        (progn 
          (setq tf t) 
        ) 
      ) 
    ) 
  ) 
  (if tf 
    (progn 
      (setq ret (xdge::getpropertyvalue g "center" "radius" "startang" 
                                        "endang" "refvec" "normal" 
                ) 
            ang (xdrx_vector_angleonplane #refvec #normal) 
            ret (list #center #radius (+ #startang 
                                         ang 
                                      ) (+ #endang 
                                           ang 
                                        ) 
                ) 
      ) 
    ) 
  ) 
  (xdge::free g) 
  ret 
)

sh_h · 发表于 2017-8-26 09:22:54

谢谢楼主分享！！！

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

[点表] （XD::Geom:isArc）判断SPLINE或者点表是否组成弧线（ARC）

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