【求助】曲面法向线

shuixingcmm

在一个曲面或实体面上，生成经过1个点（存在点或曲面点）和曲面法向同向或反向（有时实体面的法向线指向实体内部，故需反向）的直线，且能够指定曲线长度，这样的GRIP程序该怎么编啊？
6 S! v3 p: T% t+ d2 V! S' I/ Q/ i
主要我要想知道如何得到点所在的曲面（曲面点）及离一个点最近的曲面（存在点）
! O9 o( |% ^) `; P8 J) y
( K0 I: R! q% {2 _. q  E# \[ 本帖最后由 shuixingcmm 于 2007-11-19 13:02 编辑 ]

折翅天使

二次开发不发。我还以为是问指令呢？

shuixingcmm

原帖由 折翅天使 于 2007-11-19 11:45 发表
二次开发不发。我还以为是问指令呢？

谁知道指令也可以指点一下啊！

shuixingcmm

遍历所有的面用什么命令？

shuixingcmm

有人提供指点吗？

bigearrabbit

$$画曲面法向线段程序
$$作者：杨海华  $$2007-12-7
  [. N) b1 V+ R' IENTITY/SURF1,VECTOR
# [& S# X5 b0 V2 Zentity/PT
number/u,v $$ 曲面的U，V参数
! B1 s0 Y% P& x0 e) o0 BNUMBER/A(3),B(3),C(3)
) [+ {% V, d6 fnumber/x,y,z
    L=5                     $$设置线段长度
Set00:
; @& j# O0 a; F3 Z( `( Q    param/'设置参数（负数表示反向),杨海华','曲线长度',L,resp
9 ]# N& S/ w  i0 W3 [5 k    jump/trm:,trm:,,resp
L00:
    mask/16,17,18,19,20,22,23,43,65,66,70,71
7 Z! y' p6 P% g7 Y9 B    ident/'选择曲面,杨海华',surf1,resp
    jump/Set00:,trm:,,resp
. r7 _4 Z* \. U. Q% U7 SL10:   
    gpos/'选择点,杨海华',x,y,z,resp
    $$jump/1 back,2 cancle,3 ok,4 not used,5 position defined,resp
- n$ X2 ^' w9 }8 Q2 S    jump/L00:,trm:,,trm:,,resp
% S! D' o* m: Z8 r- Z1 ~7 [$ }   
    $$ident/'选择一个点,杨海华',PT,resp
# v# ]5 i. O. R! P/ e    $$jump/L00:,trm:,,resp
   
    $$下面一句也可以用坐标形式：
" ~2 N+ J& q6 L# J    SPARF/SURF1,X,Y,Z,U,V     $$获取U，V参数 坐标形式
9 ^; M' S! Z. A& H' b    $$SPARF/SURF1,PT,U,V      $$获取U，V参数 点形式
: Z3 @. ?; B9 Q6 T6 F    A=SPOSF(SURF1,u,v)      $$获取曲面上点的坐标,
. f; C5 U' l6 O3 l0 @    $$如果点在曲面上，上句同 a=&point(PT)
( ?, Y% y. T8 A" \0 @   
3 t5 H; R6 m- d& u$ V    B=SNORF(SURF1,u,v)      $$获取法向向量
    $$如果需要反向：B=-B
& L7 O6 p/ n4 Z4 B9 B; t! U4 g    B=SCALVF(L,B)           $$延长线段，设为L倍。
7 Y/ G" X/ s! ^& ]0 t% O7 Z    C=A+B                   $$获取法向线段终点
+ _8 Y% Y9 k/ t, Y    VECTOR=LINE/A,C         $$画出法向线段
    jump/L10:               $$循环画法向线段
4 d+ [# Z3 _: s9 f4 l9 Z4 n6 {trm:
8 O0 [' K9 k  M4 N1 J; Yhalt

[ 本帖最后由 bigearrabbit 于 2007-12-7 09:10 编辑 ]

shuixingcmm

谢谢提供，试过了，你用的方法和我的一样，我的就是直线的长短在后面设置，好处是每次可以制定不同的长短，不足是每次都要多按一下中键。
9 m; u) a5 j- u% j我想要的理想程序是只需要选择一个点，就可以自动查找最近的曲面，生成法向线，不知道能否实现这样的功能。

bigearrabbit

http://user.qzone.qq.com/3301647/blog/1197168697

1 I6 S$ Q3 u( D  i: m* T: D, r$$画曲面法向线段程序：YHH.EE3.FAC.normal.grs
$$作者：杨海华  $$2007-12-9更新
% X  o0 A+ K( h8 s0 X  d$$实现面遍历，缺实体中面的遍历，
$$可以实现动态曲线调节

[ 本帖最后由 bigearrabbit 于 2007-12-9 11:10 编辑 ]

shuixingcmm

不错，比我的好，离最后目标仅一步之遥了！