UG grip二次开发，高手请进，初学者可以积累经验

satellitehuang

$$ 偏置面
- ~7 p8 c! E1 Q0 u8 O: x+ y* [ENTITY/obj
' V# Z' y; E) ~5 {/ l1 q) r! N" eENTITY/BOX(1000)
' F5 l2 `8 G3 i- Y5 O+ F' ]- ?: bNUMBER/poin(3)
9 Z+ z% ?; f" a& T- O
$$ 输入 参数
$ y) [. g( T' N! ]# K- ]# SL10:
      param/' 请输入偏置距离...',$
- W* q; ~' C( p/ l. i' R; W             '偏置距离=',h,resp
      JUMP/L10:,END:,,,resp
# w, X9 K) K5 X2 ?9 s$$ 选择对象 面
% E  [/ M. F9 b) V. qL20:
" C; o: b" }: F& |- {      MASK/71
      ident/' 请选择目标面...',BOX,resp
      JUMP/L10:,END:,,,resp
: e* R8 _5 P9 x8 h2 ?
L30:
' N- X5 L" N  A* |% D8 q$$ 提取面的矢量方向
- J( V" O1 ^0 L3 @7 N  c+ vpoin=snorf(obj,.5,.5)  
: C$ v3 L4 k, ?# K$ A# t& i
3 q2 ^, J: Z( D* ?+ P- t( C' I0 v) ~$$ 偏置面
IF/h==0,JUMP/L10:
IF/h>0,FACMOV/obj,TRIM,HEIGHT,h,AXIS,poin(1),poin(2),poin(3),IFERR,BN:
. `' T% f2 E4 r/ QIF/h<0,FACMOV/obj,TRIM,HEIGHT,ABSF(h),AXIS,-poin(1),-poin(2),-poin(3),IFERR,BN:
# X2 U9 w% n9 @* B' Z) zJUMP/L20:
END:
2 b  \; h! u  u# `HALT
BN:
% E! |8 p9 X9 D: n; }PRINT/' 由于参数不符...所以不能偏置此面...'
JUMP/END:

9 B; C3 h4 |4 s2 [6 z% h, B
6 r' U, Y  E. ?% s' k大家看看这个源文件，我的目的是用颜色控制偏置面！编译的时候没有问题，但是运行的时候报错！请高手指点！
/ r+ M5 o' k8 y/ q) m5 l

2 \- t9 l* o% {6 I3 {
9 p) u  V. _& y" A# v' V9 x  初步判断是BOX与obj连接不上，不知怎么把box的信息传递给obj！

nx_ugs

ENTITY/BOX(1000)
6 B  r' b: f1 K这里你定义了数组


ident/' 请选择目标面...',BOX,resp
这里你选择的时候没有实现多选的定义，所以会报警
$ v8 z/ w) A0 ?. G
建议你直接这样声明
$ V3 |: M9 A9 ^0 |) qENTITY/BOX

satellitehuang

我试了，如果声明ENTITY/box，就不会出现类选择对话框了！
4 }) L( ]2 M5 ~" K" C% w: S就不能达到通过颜色控制偏置面的命令了！ （类选择对话框）