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

satellitehuang

$$ 偏置面
9 w; x( V. R# LENTITY/obj
ENTITY/BOX(1000)
2 u0 j1 u" f6 A9 t& u* WNUMBER/poin(3)

7 f& B" c2 A0 g$$ 输入 参数
L10:
: e& i" P: W/ \      param/' 请输入偏置距离...',$
- d5 l5 G- ?- M  ?$ e             '偏置距离=',h,resp
      JUMP/L10:,END:,,,resp
$$ 选择对象 面
3 T( G3 Z! g& w$ @L20:
% ?2 l9 P- ^' v      MASK/71
      ident/' 请选择目标面...',BOX,resp
2 p$ H, N8 x' [* n% |# V2 ~      JUMP/L10:,END:,,,resp

L30:
2 \! r5 q9 Z. @; K* x6 Q, M0 s$$ 提取面的矢量方向
poin=snorf(obj,.5,.5)  

$$ 偏置面
; s: L- u4 G% U6 V5 jIF/h==0,JUMP/L10:
IF/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:
2 }3 D  d" H6 x0 d: CJUMP/L20:
END:
' D5 q6 ?; q) k3 f# OHALT
" }: S& e2 R8 K, e& S( HBN:
PRINT/' 由于参数不符...所以不能偏置此面...'
9 L0 O# ]- J& @2 AJUMP/END:
3 {" G; B1 h5 r5 R+ q

  Q' _  n2 N! x0 ?) O7 o9 b大家看看这个源文件，我的目的是用颜色控制偏置面！编译的时候没有问题，但是运行的时候报错！请高手指点！


! l5 ~. b1 j1 S$ m0 i3 P- V9 p
  初步判断是BOX与obj连接不上，不知怎么把box的信息传递给obj！

nx_ugs

ENTITY/BOX(1000)
% e1 U) x: G+ Q+ ]$ W这里你定义了数组
' a4 Z* B$ f1 G2 F) V: }
, `7 n8 U  c! `* P! y8 K9 ]
ident/' 请选择目标面...',BOX,resp
这里你选择的时候没有实现多选的定义，所以会报警

建议你直接这样声明
ENTITY/BOX

satellitehuang

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