Spline精确包围盒ClosestPointToProjection应用

sachindkini · 发表于 2013-11-23 18:09:47

DEAR SIR, LOOKING NICE

dnbcgrass · 发表于 2013-11-23 20:22:24

学习一下如何取得最小包围盒:lol

aeo · 发表于 2013-11-23 21:14:03

谁研究一下 mtext的包围盒，挺坑爹的.

st788796 · 发表于 2013-11-23 21:22:11

aeo 发表于 2013-11-23 21:14
谁研究一下 mtext的包围盒，挺坑爹的.

这个也简单，你用 Leader 标注后看看那个 Mtext 方式，这个 Mtext 用GetboundingBox 就可以求出实际包围盒

userzhl · 发表于 2013-11-24 21:45:04

强，学习一下。

819534890 · 发表于 2013-11-24 21:48:39

回复开代码

小陶 · 发表于 2013-11-24 22:49:03

有何高明之处?

海天风云 · 发表于 2013-11-24 23:56:46

只知道有个vlax-curve-getClosestPointToProjection{:soso_e127:}

XDSoft · 发表于 2013-11-25 00:17:26

aeo 发表于 2013-11-23 21:14
谁研究一下 mtext的包围盒，挺坑爹的.

MTEXT对象有 ActualWidth, ActualHeight 方法的，就是去掉空白实际的宽度，再用position, direction flowdirection 组合就能求出了。

st788796 · 发表于 2013-11-25 05:26:09

XDSoft 发表于 2013-11-25 00:17
MTEXT对象有 ActualWidth, ActualHeight 方法的，就是去掉空白实际的宽度，再用position, direction flo ...

如果mtext是分栏的，这些信息是栏信息，计算无效！

牢固 · 发表于 2013-11-25 11:33:13

本帖最后由牢固于 2013-11-25 11:34 编辑

提炼一下，整理成计算曲线的包围盒函数：

(defun GetCurveBox (curve / obj p1 p2 p3 p4 lst)
(if (= 'ename (type curve))
(setq obj (vlax-ename->vla-object curve))
(setq obj curve)
)
(vla-GetBoundingBox obj 'p1 'p3)
(setq p1 (vlax-safearray->list p1)
p3 (vlax-safearray->list p3)
p2 (list (car p1) (cadr p3) (caddr p1))
p4 (list (car p3) (cadr p1) (caddr p1))
)
(setq lst
(list (vlax-curve-getClosestPointToProjection
curve
p1
'(1.0 0 0)
t
)
(vlax-curve-getClosestPointToProjection
curve
p2
'(0 -1.0 0)
t
)
(vlax-curve-getClosestPointToProjection
curve
p3
'(-1.0 0 0)
t
)
(vlax-curve-getClosestPointToProjection
curve
p4
'(0 1.0 0)
t
)
)
)
(list
(apply 'mapcar (cons 'min lst))
(apply 'mapcar (cons 'max lst))
)
)

(defun GetCurveBox (curve / obj p1 p2 p3 p4 lst) 
  (if (= 'ename (type curve)) 
    (setq obj (vlax-ename->vla-object curve)) 
    (setq obj curve) 
  ) 
  (vla-GetBoundingBox obj 'p1 'p3) 
  (setq  p1 (vlax-safearray->list p1) 
  p3 (vlax-safearray->list p3) 
  p2 (list (car p1) (cadr p3) (caddr p1)) 
  p4 (list (car p3) (cadr p1) (caddr p1)) 
  ) 
  (setq  lst 
   (list (vlax-curve-getClosestPointToProjection 
     curve 
     p1 
     '(1.0 0 0) 
      t 
         ) 
         (vlax-curve-getClosestPointToProjection 
     curve 
     p2 
     '(0 -1.0 0) 
      t 
         ) 
         (vlax-curve-getClosestPointToProjection 
     curve 
     p3 
     '(-1.0 0 0) 
      t 
         ) 
         (vlax-curve-getClosestPointToProjection 
     curve 
     p4 
     '(0 1.0 0) 
     t 
         ) 
   ) 
  ) 
  (list 
    (apply 'mapcar (cons 'min lst)) 
    (apply 'mapcar (cons 'max lst)) 
  ) 
)

st788796 · 发表于 2013-11-25 11:47:34

本帖最后由 st788796 于 2013-11-25 11:48 编辑

牢固发表于 2013-11-25 11:33
提炼一下，整理成计算曲线的包围盒函数：

水平线或者垂直线会是怎样?

Ray xline 也属 Curve

SmartStar · 发表于 2013-11-25 12:36:36

看看是怎样做到的！

xyp1964 · 发表于 2013-11-25 12:38:13

spline等分1000段的模拟方法
spline包围盒02.gif

st788796 · 发表于 2013-11-25 12:51:41

xyp1964 发表于 2013-11-25 12:38
spline等分1000段的模拟方法

再加密等分也不如桌子提供的方法

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

[每日一码] Spline精确包围盒ClosestPointToProjection应用

点评

点评

点评

点评

点评