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

satellitehuang

$$ 偏置面
ENTITY/obj
3 \8 @0 Z( a5 W$ j, J. rENTITY/BOX(1000)
5 _1 w0 u- {: t/ G) D2 eNUMBER/poin(3)

  T/ g5 [# X5 q& ^( G2 S$$ 输入 参数
L10:
: y4 u# g- x: c9 h7 o8 h      param/' 请输入偏置距离...',$
+ E& r1 ]- A8 v             '偏置距离=',h,resp
      JUMP/L10:,END:,,,resp
$$ 选择对象 面
- x) k5 J3 f4 eL20:
' D. J* `0 q3 d; n/ M      MASK/71
+ D* `' O/ O5 K$ `+ [) \( l3 v, G      ident/' 请选择目标面...',BOX,resp
      JUMP/L10:,END:,,,resp

L30:
$$ 提取面的矢量方向
poin=snorf(obj,.5,.5)  

! f0 d1 V) D; ?0 C9 q$$ 偏置面
IF/h==0,JUMP/L10:
3 x) j& o& ~- [" q' F" O, DIF/h>0,FACMOV/obj,TRIM,HEIGHT,h,AXIS,poin(1),poin(2),poin(3),IFERR,BN:
IF/h<0,FACMOV/obj,TRIM,HEIGHT,ABSF(h),AXIS,-poin(1),-poin(2),-poin(3),IFERR,BN:
1 Y+ O/ p: B  W' IJUMP/L20:
END:
HALT
. y* o& s7 I. ^! C# \BN:
PRINT/' 由于参数不符...所以不能偏置此面...'
JUMP/END:

8 ~! G9 J4 b9 X+ J/ r# ~
大家看看这个源文件，我的目的是用颜色控制偏置面！编译的时候没有问题，但是运行的时候报错！请高手指点！
8 ]+ N9 i' [1 ~$ o; }


3 V0 T! C, b+ Q+ K/ I9 n& f  初步判断是BOX与obj连接不上，不知怎么把box的信息传递给obj！

nx_ugs

ENTITY/BOX(1000)
# W: {. _# |, z2 P6 E& O% M这里你定义了数组
. m  `  t5 J8 b5 ~/ J8 p# |  b

ident/' 请选择目标面...',BOX,resp
这里你选择的时候没有实现多选的定义，所以会报警
$ K- X' K- M! X' Y9 V/ [. \2 V
建议你直接这样声明
, P( H8 _, h/ l/ U2 b$ n) x8 H4 g4 M' i# _ENTITY/BOX

satellitehuang

我试了，如果声明ENTITY/box，就不会出现类选择对话框了！
- F( p; K7 X5 [, K* n就不能达到通过颜色控制偏置面的命令了！ （类选择对话框）