分享几个几何函数

Lisphk · 发表于 2019-3-9 00:28:37

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

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

×

;;----------------------------------------------------------;;
;; INITIALIZATION ;;
;;----------------------------------------------------------;;
(vl-load-com)
(or *acad* (setq *acad* (vlax-get-acad-object)))
(or *acdoc* (setq *acdoc* (vla-get-ActiveDocument *acad*)))
;;----------------------------------------------------------;;
;; GENERAL ROUTINES ;;
;;----------------------------------------------------------;;
;; 根据2D 点表在当前空间创建多段线
(defun gc:AddLwPolyline (pts)
(vlax-invoke
(vlax-get *acdoc*
(if (= 1 (getvar 'cvport))
'PaperSpace
'ModelSpace
)
)
'AddLightWeightPolyline
(apply 'append pts)
)
)
;; 格式化角度值，返回0-2PI区间
(defun gc:Ang<2pi (ang)
(if (and (<= 0 ang) (< ang (* 2 pi)))
ang
(gc:Ang<2pi (rem (+ ang (* 2 pi)) (* 2 pi)))
)
)
;; 3D点转成2D点
(defun gc:Convert2d (pt) (list (car pt) (cadr pt)))
;;判断三点是否是顺时针
(defun gc:clockwise-p (p1 p2 p3)
(< (sin (- (angle p1 p3) (angle p1 p2))) -1e-14)
)
;; 返回角度的TAN值
(defun gc:tan (a) (/ (sin a) (cos a)))

;;----------------------------------------------------------;; 
;;                      INITIALIZATION                      ;; 
;;----------------------------------------------------------;; 
 
(vl-load-com) 
(or *acad* (setq *acad* (vlax-get-acad-object))) 
(or *acdoc* (setq *acdoc* (vla-get-ActiveDocument *acad*))) 
 
;;----------------------------------------------------------;; 
;;                     GENERAL ROUTINES                     ;; 
;;----------------------------------------------------------;; 
 
;; 根据2D 点表在当前空间创建多段线 
(defun gc:AddLwPolyline        (pts) 
  (vlax-invoke 
    (vlax-get *acdoc* 
              (if (= 1 (getvar 'cvport)) 
                'PaperSpace 
                'ModelSpace 
              ) 
    ) 
    'AddLightWeightPolyline 
    (apply 'append pts) 
  ) 
) 
 
 
;; 格式化角度值，返回0-2PI区间 
(defun gc:Ang<2pi (ang) 
  (if (and (<= 0 ang) (< ang (* 2 pi))) 
    ang 
    (gc:Ang<2pi (rem (+ ang (* 2 pi)) (* 2 pi))) 
  ) 
) 
 
;; 3D点转成2D点 
(defun gc:Convert2d (pt) (list (car pt) (cadr pt))) 
 
;;判断三点是否是顺时针 
(defun gc:clockwise-p (p1 p2 p3) 
  (< (sin (- (angle p1 p3) (angle p1 p2))) -1e-14) 
) 
 
;; 返回角度的TAN值 
(defun gc:tan (a) (/ (sin a) (cos a)))

Michael527 · 发表于 2019-3-9 07:46:26

谢谢分享，可以借鉴

kqqt6236 · 发表于 2019-3-9 11:42:14

谢谢分享！

gdfyhao · 发表于 2019-3-9 19:45:10

很实用的函数，谢谢分享

arker · 发表于 2019-3-10 07:28:40

谢谢分享！

xudi1234 · 发表于 2019-3-10 09:53:42

很实用的函数，谢谢分享

dengxuechen · 发表于 2019-3-11 08:55:42

谢谢分享！！！

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

[每日一码] 分享几个几何函数

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