【求助】曲面法向线

shuixingcmm

在一个曲面或实体面上，生成经过1个点（存在点或曲面点）和曲面法向同向或反向（有时实体面的法向线指向实体内部，故需反向）的直线，且能够指定曲线长度，这样的GRIP程序该怎么编啊？
. m& m, c' [$ L) C7 t
0 T4 E7 P+ d- g) u# x% l( J3 Q主要我要想知道如何得到点所在的曲面（曲面点）及离一个点最近的曲面（存在点）
# A6 Q9 ?( \2 g2 J
2 v  X- @8 K: q[ 本帖最后由 shuixingcmm 于 2007-11-19 13:02 编辑 ]

折翅天使

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

shuixingcmm

原帖由 折翅天使 于 2007-11-19 11:45 发表
$ t8 g7 J2 \' G7 S; \二次开发不发。我还以为是问指令呢？

' E1 D0 p& \; x5 j) u0 n( P谁知道指令也可以指点一下啊！

shuixingcmm

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

shuixingcmm

有人提供指点吗？

bigearrabbit

$$画曲面法向线段程序
/ W5 S( X7 k2 P4 B- D$ J$$作者：杨海华  $$2007-12-7
& ^6 z, d6 k, u: E# WENTITY/SURF1,VECTOR
entity/PT
7 l* _* p4 L/ R! jnumber/u,v $$ 曲面的U，V参数
NUMBER/A(3),B(3),C(3)
number/x,y,z
7 P. U0 n7 M$ K    L=5                     $$设置线段长度
; G, f7 W; _! I( \Set00:
    param/'设置参数（负数表示反向),杨海华','曲线长度',L,resp
. ?  c) @& E0 e7 {) f7 t' q    jump/trm:,trm:,,resp
L00:
' K9 d) T9 d! {. [" e    mask/16,17,18,19,20,22,23,43,65,66,70,71
: O: \- V0 ~! V. i$ f6 X    ident/'选择曲面,杨海华',surf1,resp
    jump/Set00:,trm:,,resp
" _& O5 N  v/ j- s' `0 YL10:   
& g2 o* V% q1 F    gpos/'选择点,杨海华',x,y,z,resp
, k- d' p; Z' e( B    $$jump/1 back,2 cancle,3 ok,4 not used,5 position defined,resp
2 y' {  i. F$ C! G. T  j9 w# j* s    jump/L00:,trm:,,trm:,,resp
   
    $$ident/'选择一个点,杨海华',PT,resp
2 Q2 r; Q% [- Y/ X" o% U. W) M    $$jump/L00:,trm:,,resp
   
    $$下面一句也可以用坐标形式：
    SPARF/SURF1,X,Y,Z,U,V     $$获取U，V参数 坐标形式
* c. X# z2 j) r4 w" ]- N    $$SPARF/SURF1,PT,U,V      $$获取U，V参数 点形式
9 f" R9 [' j& v) {* S+ e$ E9 t9 W    A=SPOSF(SURF1,u,v)      $$获取曲面上点的坐标,
  Z2 I  V. f3 u    $$如果点在曲面上，上句同 a=&point(PT)
   
3 g! E- F" a0 G4 u+ Y; Y    B=SNORF(SURF1,u,v)      $$获取法向向量
    $$如果需要反向：B=-B
    B=SCALVF(L,B)           $$延长线段，设为L倍。
( g7 W7 ~! J+ _2 L    C=A+B                   $$获取法向线段终点
    VECTOR=LINE/A,C         $$画出法向线段
    jump/L10:               $$循环画法向线段
) v& c( |- b2 A1 ^trm:
; w3 D4 G7 @& J1 Chalt
3 d3 D* v4 v+ q  Q
: W- x  l- m5 r- F, Z+ N5 V[ 本帖最后由 bigearrabbit 于 2007-12-7 09:10 编辑 ]

shuixingcmm

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

bigearrabbit

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

$$画曲面法向线段程序：YHH.EE3.FAC.normal.grs
$$作者：杨海华  $$2007-12-9更新
$$实现面遍历，缺实体中面的遍历，
# |$ x% e' Y2 P4 a: I$$可以实现动态曲线调节
5 r* Y: A4 S% t/ V9 T8 Y9 T, z
[ 本帖最后由 bigearrabbit 于 2007-12-9 11:10 编辑 ]

shuixingcmm

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