三维spline如何提取坐标？

tataki · 发表于 2011-7-29 20:17:21

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

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

x

本帖最后由 tataki 于 2011-7-30 07:13 编辑

各位好，最近遇到一个问题，在cad中做了两个闭合的三维spline，我是想算一算他们两者最近的距离是多少，当然不用负责的公式就算，就想着用最直观，也是很简单的方法来计算。见附图。
我的想法是在红色spline上将这条曲线上的每个点计算到蓝色曲线上的每个点距离，也就是一个二次循环，最后找出最小值就行。然而在操作中遇到了两个问题：
1.在spline的图元了保存的控制点坐标怎么提取出来？以前只提过其中的一项，现在面对这几百个数据不知道该怎么提取了。
2.提取的数据怎么存放呢？我以前是学c++的，在C里面肯定用个数组循环就行了，但是不怎么会lisp，在lisp里面没有数组的概念，因此怎么存大量数据，还有后期的怎么读取都让我很迷惑，请各位懂得朋友帮个忙。在网上也找到了几个提spline坐标的程序，可是里面使用vl那些命令，这个我不知道怎么用，也没法修改成我想要的，哪位高手能帮下我，非常感谢！
现附上这两条曲线的dwg文件。
2011-7-29 19-17-21.jpg

今早一打开我的帖子，就看到斑竹的答复！很激动，没想到这么快就回复了！
非常感谢斑竹的帮助！不但给出了源代码，还有详细的注解，斑竹的认真热心和负责让我肃然起敬，以前的我提的几个问题也是斑竹给解决的。刚看了一下发帖时间，半夜02:53....看到这个时间，明白人心理都懂得，再多赞美的词也显得苍白了....
辛苦斑竹了，今天周末请多休息！

woaishuijia · 发表于 2011-7-30 02:53:11

本帖最后由 woaishuijia 于 2011-8-4 09:43 编辑

* W8 z# F) W0 d6 [; e7 c7 R
(defun c:aaa (/ ss ft fd c1 c2 i j dmin d)
. d; G1 [8 t, Z+ b- \! X
(vl-load-com) ;将 Visual LISP 扩展功能加载到 AutoLISP
8 _9 R) B9 U+ e5 G$ b
(setq ;将一个或多个符号的值设置为相应表达式的值5 ?) R4 ]# @* y( \$ T% n" S
ss (vla-add ;用 vla- 前缀函数调用 activeX 对象(下面的代码--该方法的第一个参数--指定的选择集集合对象)的 add 方法
7 h' H; l7 V$ O/ {
(vla-get-selectionsets ;用 vla-get- 前缀函数获取 activeX 对象--当前文档对象--的属性:选择集集合子对象,即使用 add 方法的集合对象
& F( E) ? G# `* ]0 `: x# F
(vla-get-activedocument ;用 vla-get- 前缀函数获取 activeX 对象--当前 AutoCAD 应用程序对象--的属性:活动文档子对象. \+ ~% E1 u9 T
(vlax-get-acad-object) ;用 vlax-get-acad-object 函数检索当前 AutoCAD 任务中的顶层 AutoCAD 应用程序对象
$ h; J$ Q9 h2 F. q) ~& p/ h& E( n
)
: ~) g/ A! f3 P; Q2 B- G
)
3 [+ u+ ^$ A0 l) m, m E2 \
"ss" ;选择集名称& D) u( l7 e ^+ j1 X7 ?( x0 @( w
)" j e( R7 E! x+ W1 {
ft (vlax-make-safearray vlax-vbinteger '(0 . 0))
3 G3 V. X- q$ y5 E: o
;定义选择集过滤器的过滤类型数组.用 vlax-make-safearray 函数创建安全数组,整形,一维,一个元素(0 to 0).: [- E9 |+ \- A( q
fd (vlax-make-safearray vlax-vbvariant '(0 . 0))( S3 a3 [ Y9 K
;定义选择集过滤器的过滤值数组.用 vlax-make-safearray 函数创建安全数组,变体,一维,一个元素(0 to 0).
$ }6 v5 e. {" c
)) n# U1 ?! X+ C, D' @& f
(vlax-safearray-put-element fd 0 "spline" )! i" J5 c) i$ w; p" q8 d+ a: ]: Y- Z
;用 vlax-safearray-put-element 函数为数组 fd 的第一个元素(索引号 0)赋值"spline"& q( ?3 \3 ^$ F% k* {% w3 o
(vla-selectonscreen ss ft fd) ;用 vla- 前缀函数调用 ss 对象的 selectonscreen 方法,由用户在屏幕上选取样条曲线对象
, E" S2 i4 }6 q) [. r q+ n* E
(if (= (vla-get-count ss) 2) ;如果 ss 集合的 count 属性等于2(即用户选择了两条曲线)则执行下面的代码1 ]" u6 k9 \" x
(progn
5 B5 J, }+ U6 l& d4 W7 a8 f2 t
(setq c1 (vla-get-controlpoints ;用 vla-get- 前缀函数获取样条曲线对象的控制点坐标数组并赋值给c1(变量类型为变体,值为双精度数组)* U6 h; _9 `, b# j5 U
(vla-item ss 0) ;用 vla- 前缀函数调用集合对象的 item 方法,获取选择集中的索引号为 0 的样条曲线对象6 n5 C# c# [6 }
)+ z( M: i$ J& \2 ^, N
c2 (vla-get-controlpoints ;用 vla-get- 前缀函数获取样条曲线对象的控制点坐标数组并赋值给c2(变量类型为变体,值为双精度数组)
: y% z( D( S. x8 N. H4 K
(vla-item ss 1) ;用 vla- 前缀函数调用集合对象的 item 方法,获取选择集中的索引号为 1 的样条曲线对象' w) M- S1 G- \: T% u5 U
)
) \8 f5 a' J2 m" N' b
i 0 ;初始化外层循环变量
, F# u$ B! e1 o& m3 r' |8 O
)
2 E/ r) K1 G2 p$ V8 a) E
(repeat ;循环,外层
0 u0 |0 _8 P3 {
(/ (1+ (vlax-safearray-get-u-bound7 P: c' W" o# C7 z8 Z5 ]
;用 vlax-safearray-get-u-bound 函数获取数组最大下标.第一个参数是数组,第二个参数是维数
! I1 Y, v& Y8 u
(vlax-variant-value c1);用 vlax-variant-value 函数获取变体变量 c1 的值(双精度数组)
5 t5 ~4 i# b) H. Z3 o
1' Q1 z5 Y* C6 F5 R) s- \! X( h
)4 l6 ?6 f' B- }+ E
)
( N3 J o# o" x
3$ }# w7 b# `; d$ S! c O$ P1 g
) ;用数组最大下标加1再除以3,所得结果做为循环次数--数组中每三个元素为一组代表一个控制点0 ^3 i% I1 k% C& _5 A; p. I1 S
(setq j 0) ;初始化内层循环变量
. f$ V# K; a% d2 u$ I0 Y
(repeat
8 O; b3 X* g1 }9 h( v
(/ (1+ (vlax-safearray-get-u-bound
) P1 a( i# A9 @0 p3 z# E# S! g+ B- A1 e
;第二条样条曲线控制点坐标数组的最大下标加1再除以3,做为内层循环次数% m) z! z% n* @7 Z( ^- v
(vlax-variant-value c2) U9 B) W. ?1 d
1
" C% E- t4 e2 g8 g- o
)# h+ M a; i% N
)
) |3 `) b/ o% |0 F8 U
3$ G0 G' Y& M b& k" F8 b
)
2 @! b. z5 k. K2 k( `$ Z
(setq d (distance ;计算第一条曲线索引号为 i 的控制点到第二条曲线索引号为 j 的控制点之间的三维距离# P) e9 X; p. f9 L2 g/ I, Y
(list ;从 c1 数组中取出第一条曲线索引号为 i 的控制点的点表! A# Y3 A/ C3 ?" `+ S" A" P" U% y
(vlax-safearray-get-element9 h8 h2 h* J" U
;用 vlax-safearray-get-element 函数获取数组中的指定的元素* f3 ]& g4 e- D5 c( U
(vlax-variant-value c1) ;数组9 s) n- e' e; d
(* i 3) ;数组元素下标2 ?9 P) Y0 Y5 i" r
)+ R p) p% L8 p; n
(vlax-safearray-get-element
9 l2 u+ a( n1 d. _4 |
(vlax-variant-value c1)0 V Q% q& U: C: g4 M0 D5 E5 U) _
(+ (* i 3) 1)
2 ^1 d+ N' G9 d: x, c$ b
)
; S- ?6 k; g+ {* v' g0 t ^
(vlax-safearray-get-element
(vlax-variant-value c1)! r4 w+ u: L9 X, L/ {) Q4 F- U
(+ (* i 3) 2)
& I; v; C9 b" L0 L. C
)
" C0 h3 _& E2 h& S
)5 t3 |3 K% ^, ?
(list ;从 c2 数组中取出第二条曲线索引号为 j 的控制点的点表: A; b, Z) S8 R) l* _
(vlax-safearray-get-element6 V) s m! o+ }! j. V
(vlax-variant-value c2)5 [" z! ?! V1 Q$ Q
(* j 3)$ k: B8 i2 s. Z% T+ G* ?
)$ s$ Q$ {0 _ G
(vlax-safearray-get-element% b8 E) h4 p: h8 p" Y0 C
(vlax-variant-value c2): @" M6 q! M8 [" z: b; V2 h7 A
(+ (* j 3) 1), `. r }+ t8 v
)* R* c0 [7 Z0 m
(vlax-safearray-get-element7 I) i' q% B6 Y. s: u% A
(vlax-variant-value c2)6 }3 B+ U8 v" h, O$ f1 y/ Y
(+ (* j 3) 2)1 E( D! u N! {" j
)$ [ \/ S$ q6 E$ q
)
/ c. I4 o7 }, a j' R& @" Y# F
)1 E) a0 y3 O8 [: `
)$ X- `: K+ i5 B" u" H* l* A, ^) ~
(if dmin ;检查最小距离是否为 nil (是否首次)$ l: l( N X# H' w+ E, D. A
(if (> dmin d) ;不是首次,比较计算所得的距离与已保存的最小距离,如发现更小的距离则保存' ^" l& A( w2 x, m9 P
(setq dmin d)9 s* N7 T) D' |# O& f" |% H
)1 Q: t) p, J/ T, V9 d1 b0 ^
(setq dmin d) ;首次,把首个距离记录为最小距离
. n7 I1 B. G2 d% ]' U
)! L. t F* `& W
(setq j (1+ j)) ;内层循环变量递增
# R, v a- Y5 @. ^' g
)
; y# L) [/ ~4 j
(setq i (1+ i)) ;外层循环变量递增% _* @, f( B# Y) k
)
o$ N) X* z0 {! l1 h
)6 ^8 g$ [4 E0 {" p: w- k7 x
)
i# u: Y( P( d) A0 ?
(vla-delete ss) ;用 vla- 前缀函数调用 ss 集合的 delete 方法,删除用过的选择集
. W# a/ }, X+ W1 P" ?% h
(princ dmin) ;命令行输出计算结果
9 ~3 d% D' v# s
(princ) ;静默退出# i0 p5 Y5 b( }& s$ ]! h
)
: b5 O+ J& I! k% Y# M9 e

复制代码

flyhighone · 发表于 2011-8-2 10:14:15

好资料，收藏了

yoyoho · 发表于 2011-8-30 16:58:52

感谢版主分享程序,收藏学习了!

scliukejun · 发表于 2011-9-17 08:38:59

楼上好强！不过，如果自已动手，去用VBA吧，应该比LISP好用

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

通知

[已解决] 三维spline如何提取坐标？

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

浏览过的版块