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

satellitehuang

$$ 偏置面
ENTITY/obj
5 ^- r: ~. q5 @/ [, L- FENTITY/BOX(1000)
4 N- P, H3 U4 v: Z; w8 vNUMBER/poin(3)
5 E0 U7 v5 l& s6 p2 a& r
$$ 输入 参数
L10:
+ K3 B7 Q6 X* @2 W' U) E7 G$ l      param/' 请输入偏置距离...',$
             '偏置距离=',h,resp
& k) m0 p6 n  k5 e& Q; |0 K      JUMP/L10:,END:,,,resp
$$ 选择对象 面
% X/ s0 ~; F, v9 F* TL20:
      MASK/71
* }% K* U" A! W3 _& i      ident/' 请选择目标面...',BOX,resp
+ x0 G" o( j, c! n1 D- X: h; p      JUMP/L10:,END:,,,resp
0 Q+ }5 O; d) z+ E
" }. f! d: m( x6 \9 O' OL30:
2 y* L: ?) T1 U  }" g$$ 提取面的矢量方向
poin=snorf(obj,.5,.5)  

$$ 偏置面
6 N0 ?4 b4 \" U3 Q% x( h" oIF/h==0,JUMP/L10:
9 Q- }' W+ L  o; w. H+ AIF/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:
& i% _2 ], ?' m- _7 JJUMP/L20:
6 z+ M( D0 y# b) ~( X! @END:
0 p2 z$ M: \! U+ r6 d' }  h, `HALT
/ w2 g/ T: R# f' o( V! }1 @BN:
PRINT/' 由于参数不符...所以不能偏置此面...'
JUMP/END:
9 ?+ h) j( V- a2 j

6 Q  U# H3 L/ L大家看看这个源文件，我的目的是用颜色控制偏置面！编译的时候没有问题，但是运行的时候报错！请高手指点！

- ^0 C0 |  p! H% j/ f* V

  初步判断是BOX与obj连接不上，不知怎么把box的信息传递给obj！

nx_ugs

ENTITY/BOX(1000)
! I% p) P2 H6 L! j3 A这里你定义了数组
2 |9 J% {+ c2 u6 Q- J: Y  U& K; d! l

; w4 ]5 S+ a% R/ L: |$ L1 I ident/' 请选择目标面...',BOX,resp
5 u  a) J% p: z这里你选择的时候没有实现多选的定义，所以会报警
% i' ?2 _1 }) i- w  I6 M. j4 v
* V$ n0 E, f: f3 Z; h建议你直接这样声明
! N2 H6 y9 F5 \4 s. s0 H9 A" FENTITY/BOX

satellitehuang

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