[功能] 多段线上的弧段的圆心列表

自贡黄明儒 · 发表于 2014-4-6 20:40

本帖最后由自贡黄明儒于 2014-11-6 12:08 编辑

不喜无喷，谢谢合作

;;164.48 [功能] 多线上的弧段的圆心列表
;;(HH:GetCenter3 (car(setq en(entsel))))
(defun HH:GetCenter3 (curve / CENLIST EP FLAG MDERIV MP PARAM SP)
  ;;(setq curve (car (entsel)))
  (setq param (fix (vlax-curve-getEndParam curve)))
  (setq sp (vlax-curve-getPointAtParam curve param))
  (repeat param
(setq param (1- param))
(setq Ep (vlax-curve-getPointAtParam curve param))
(setq Mp (vlax-curve-getPointAtParam curve (+ param 0.5))) ;中点
(setq Mderiv (vlax-curve-getsecondderiv curve (+ param 0.5))) ;中点法线
(setq Flag (car (trans (mapcar '- Mp Ep) 0 (mapcar '- Ep sp))))
(cond ((equal Flag 0) nil)
      ((minusp Flag)
         (setq CenList (cons (mapcar '- Mp Mderiv) CenList))
      )
      (T
         (setq CenList (cons (mapcar '+ Mp Mderiv) CenList))
      )
)
(setq sp Ep)
  )
  CenList
)

迷失1786 · 发表于 2017-8-31 10:28

看标题就知道一定又是好精品

chenbj0 · 发表于 2021-3-24 11:49

思路奇特，真正的精品之作

cxjcqu · 发表于 2021-3-26 13:37

为什么有直线的中点

lostbalance · 发表于 2014-4-6 22:36

路过看看，平常不太习惯用多线的弧

sachindkini · 发表于 2014-4-7 14:24

dear sir,

see hidden content

q3_2006 · 发表于 2014-4-7 20:12

好一找呀....

flyfox1047 · 发表于 2014-4-7 20:46

sachindkini 发表于 2014-4-7 14:24
dear sir,

see hidden content

Where do you work?

杜阳 · 发表于 2014-4-7 20:53

看看新作

xiaxiang · 发表于 2014-4-8 10:23

为了看帖，批量恢复黄老师的帖子。
不要问我是如何做到的，反正是批。量。回。复。

kwok · 发表于 2014-4-8 10:36

呵呵呵，看码回复.

六千棵橡树V · 发表于 2014-4-8 11:48

看一下，说不定用得上

陈亚娣 · 发表于 2014-4-11 07:33

看标题就知道一定又是好精品~~~

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

[源码] [功能] 多段线上的弧段的圆心列表

评分

本帖被以下淘专辑推荐: