用点表模拟多段线

newer · 发表于 2017-7-14 17:44:50

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

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

×

下面代码，返回点表模拟的多段线，弧线段用凸度精度参数控制，直线段返回两点

QQ截图20170714174342.png

;; ;
;; tracepline2 by ymg ;
;; ;
;; Argument: en, Ename of a Polyline ;
;; tol, Tolerance (Maximum Sagitta Allowed on Bulges) ;
;; ;
;; Return: An Ordered Points List Approximating the Polyline ;
;; (Requires ceil function) ;
(defun tracepline2 (en tol / b d i j obj pl)
(setq obj (vlax-ename->vla-object en))
(setq pl (cons (vlax-curve-getpointatparam en (setq i (vlax-curve-getEndParam en))) pl))
(repeat (fix i)
(if (not (zerop (setq b (abs (vlax-invoke obj 'getbulge (setq i (1- i)))))))
(progn
(setq j (ceil (sqrt (/ (* 0.5 (distance (car pl) (vlax-curve-getpointatparam en i)) b) tol)))
d (/ 1.0 j)
i (1+ i)
)
(repeat j
(setq pl (cons (vlax-curve-getpointatparam en (setq i (- i d))) pl))
)
)
(setq pl (cons (vlax-curve-getPointAtParam en i) pl))
)
)
pl
)

;;                                                                            ; 
;; tracepline2     by ymg                                                     ; 
;;                                                                            ; 
;; Argument:  en,   Ename of a Polyline                                       ; 
;;           tol,  Tolerance (Maximum Sagitta Allowed on Bulges)              ; 
;;                                                                            ; 
;; Return:  An Ordered Points List Approximating the Polyline                 ; 
;;       (Requires ceil function)                                             ; 
 
(defun tracepline2 (en tol / b d i j obj pl) 
   (setq obj (vlax-ename->vla-object en)) 
   (setq pl (cons (vlax-curve-getpointatparam en (setq i (vlax-curve-getEndParam en))) pl)) 
 
   (repeat (fix i) 
      (if (not (zerop (setq b (abs (vlax-invoke obj 'getbulge (setq i (1- i))))))) 
         (progn 
            (setq j (ceil (sqrt (/ (* 0.5 (distance (car pl) (vlax-curve-getpointatparam en i)) b) tol))) 
                  d (/ 1.0 j) 
                  i (1+ i) 
            ) 
            (repeat j 
                (setq pl (cons (vlax-curve-getpointatparam en (setq i (- i d))) pl)) 
            ) 
         ) 
         (setq pl (cons (vlax-curve-getPointAtParam en i) pl)) 
      ) 
   ) 
   pl 
)

CEIL函数：

游客，如果您要查看本帖隐藏内容请回复

q3_2006 · 发表于 2017-7-14 17:49:16

这个好..不用炸开分了..

liuyj · 发表于 2017-7-14 18:11:37

跟xdrx_curve_getSamplePoints效果差不多吧

434939575 · 发表于 2017-7-14 22:22:27

这个好。想要一个这样的程序。

xinxirong · 发表于 2017-7-14 22:59:43

楼梯上班呢吗呀你们不要脸色彩缤纷五洲大酒店

laiz3000 · 发表于 2017-7-15 00:40:05

学习一下

yoyoho · 发表于 2017-7-15 07:12:54

感谢分享学习！

HLCAD · 发表于 2017-7-15 08:20:08

谢谢版主分享程序！

434939575 · 发表于 2017-7-15 09:17:22

请教老大这里函数：(vla-getbulge plObj index)，这个'getbulge怎么写啊！

9635luyu · 发表于 2017-7-16 12:03:10

好东西有用的

newer · 发表于 2017-7-16 14:05:01

434939575 发表于 2017-7-15 09:17

什么怎么写？

434939575 · 发表于 2017-7-17 10:53:35

newer 发表于 2017-7-16 14:05

谢谢老大回复。我原来以为 'getbulge 是个子函数，结果不是的,谢谢！

819534890 · 发表于 2017-7-17 15:24:00

回复学习学习，谢谢

ymcui2005 · 发表于 2017-7-17 16:03:18

感谢分享学习！

freefor5127 · 发表于 2017-7-17 21:50:15

谢谢楼主分享

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

[每日一码] 用点表模拟多段线

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