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

satellitehuang

$$ 偏置面
$ T/ [+ d8 ?4 k, O" MENTITY/obj
6 x" s: K$ c, n1 k+ LENTITY/BOX(1000)
NUMBER/poin(3)
4 H' o) h! b0 R% H5 [' N- t
- v+ V3 c8 Q/ U* B6 S6 X; ]$$ 输入 参数
  f8 g- X9 m5 jL10:
      param/' 请输入偏置距离...',$
2 Q' @. _5 u) B& b# d# P             '偏置距离=',h,resp
      JUMP/L10:,END:,,,resp
$$ 选择对象 面
L20:
      MASK/71
. Z0 w. c( u+ d! R9 R      ident/' 请选择目标面...',BOX,resp
      JUMP/L10:,END:,,,resp

L30:
$$ 提取面的矢量方向
* u/ j4 y7 a4 K$ apoin=snorf(obj,.5,.5)  
8 J/ E8 N/ N. z% k! L
9 }( i" m# O/ w, X' E! A$$ 偏置面
IF/h==0,JUMP/L10:
- |4 `- v' V5 j8 s1 I6 }/ nIF/h>0,FACMOV/obj,TRIM,HEIGHT,h,AXIS,poin(1),poin(2),poin(3),IFERR,BN:
" E9 t* a+ {( r, hIF/h<0,FACMOV/obj,TRIM,HEIGHT,ABSF(h),AXIS,-poin(1),-poin(2),-poin(3),IFERR,BN:
1 ~1 p# l, N5 T5 {- TJUMP/L20:
END:
6 F, N/ P5 t  |* wHALT
7 E# l) @# @6 `8 T! _5 d( B9 d0 KBN:
- ^, c( x( K8 L% _! LPRINT/' 由于参数不符...所以不能偏置此面...'
JUMP/END:

, s- `  t# m; q$ ~% `
大家看看这个源文件，我的目的是用颜色控制偏置面！编译的时候没有问题，但是运行的时候报错！请高手指点！
! n$ l$ n* d! l1 v! f
. v2 P( o) G# d. z/ t
9 S' P( u% L( ?. p6 [
  初步判断是BOX与obj连接不上，不知怎么把box的信息传递给obj！

nx_ugs

ENTITY/BOX(1000)
这里你定义了数组
# z6 \4 v  [# C
/ u. N3 V0 P$ k% \- g; ?3 x
* ?& ~+ Q  a% \: |. K3 R ident/' 请选择目标面...',BOX,resp
. M6 X$ u. W# Z: @6 k这里你选择的时候没有实现多选的定义，所以会报警
+ F  U# G+ w8 l3 K* t# x2 G
建议你直接这样声明
$ l9 s: L; }+ ]4 x2 A0 N% oENTITY/BOX

satellitehuang

我试了，如果声明ENTITY/box，就不会出现类选择对话框了！
就不能达到通过颜色控制偏置面的命令了！ （类选择对话框）