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

/db_自贡黄明儒_

;;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
)

st788796

另外一个方法，复杂情况下 Osnap 不知道表现如何

1. (defun Polyline:ArcSegCenter (e / i nl ptl)
   
2.   (setq i -1)
   
3.   (repeat (1+ (fix (vlax-curve-getendparam e)))
   
4.     (setq nl (cons (setq i (1+ i)) nl))
   
5.   )
   
6.   (mapcar
   
7.     '(lambda (pam / p)
   
8.        (if (setq p (osnap (vlax-curve-getpointatparam e pam) "_Cen"))
   
9.          (setq ptl (cons p ptl))
   
10.        )
    
11.      )
    
12.     (mapcar '(lambda (x)
    
13.                (* 0.5 (apply '+ x))
    
14.              )
    
15.             (apply 'mapcar (cons 'list (list nl (cdr nl))))
    
16.     )
    
17.   )
    
18.   ptl
    
19. )

(defun Polyline:ArcSegCenter (e / i nl ptl)<br />   (setq i -1)<br />   (repeat (1+ (fix (vlax-curve-getendparam e)))<br />     (setq nl (cons (setq i (1+ i)) nl))<br />   )<br />   (mapcar<br />     '(lambda (pam / p)<br />        (if (setq p (osnap (vlax-curve-getpointatparam e pam) "_Cen"))<br />          (setq ptl (cons p ptl))<br />        )<br />      )<br />     (mapcar '(lambda (x)<br />                (* 0.5 (apply '+ x))<br />              )<br />             (apply 'mapcar (cons 'list (list nl (cdr nl))))<br />     )<br />   )<br />   ptl<br /> )

/db_自贡黄明儒_

st788796 发表于 2014-4-5 22:35
另外一个方法，复杂情况下 Osnap 不知道表现如何

多段线可见情况下应该没什么问题

ysq101

楼主《关于多线段》的贴子让我学到好多东西。。。
谢谢分享

xvjiex

感谢大神分享;;164.48 [功能] 多线上的弧段的圆心列表！