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

satellitehuang

$$ 偏置面
$ ]/ z/ J# k. k+ ?ENTITY/obj
ENTITY/BOX(1000)
! k6 M4 `, [9 M, m' b+ TNUMBER/poin(3)

7 x6 f" h  @4 m. u$ H( K: F$$ 输入 参数
( ]9 y: B. u( m- {/ TL10:
$ z1 U- M, l0 q8 C      param/' 请输入偏置距离...',$
             '偏置距离=',h,resp
" O1 B1 `7 Q2 P. y      JUMP/L10:,END:,,,resp
  Z& X$ l( q. c% L% V* H$$ 选择对象 面
L20:
      MASK/71
9 N1 A2 G; C0 y      ident/' 请选择目标面...',BOX,resp
      JUMP/L10:,END:,,,resp
; t/ }! Y* I! T% s. J
5 F+ A$ k; C5 h) \5 p# \L30:
8 ^% E) A) Y) r2 |: \, Y$$ 提取面的矢量方向
1 j: ~6 m2 B* O# Ypoin=snorf(obj,.5,.5)  
" E8 _' [( S& W
$$ 偏置面
7 o6 W. V; o3 K* bIF/h==0,JUMP/L10:
! s& \& g, s% ~$ pIF/h>0,FACMOV/obj,TRIM,HEIGHT,h,AXIS,poin(1),poin(2),poin(3),IFERR,BN:
. Q% r3 n8 M' xIF/h<0,FACMOV/obj,TRIM,HEIGHT,ABSF(h),AXIS,-poin(1),-poin(2),-poin(3),IFERR,BN:
. Z8 F  v% V* ?, p" UJUMP/L20:
END:
HALT
8 E- e1 M! i" O/ NBN:
8 Y! n* w! t( I& X  xPRINT/' 由于参数不符...所以不能偏置此面...'
) z8 x# V$ o8 JJUMP/END:

0 g* @; r) j' Y; q; t
大家看看这个源文件，我的目的是用颜色控制偏置面！编译的时候没有问题，但是运行的时候报错！请高手指点！
) A0 d# k  C0 D1 P' I! E4 d  O
4 f5 c; a; Y  {# t" C2 P9 e
$ G' ~, M" R4 ?
- z% @. W/ [7 c3 C+ O1 Z. W; \( y2 K+ [  初步判断是BOX与obj连接不上，不知怎么把box的信息传递给obj！

nx_ugs

ENTITY/BOX(1000)
这里你定义了数组
+ i& D9 N( T  o& Z
. b5 [* j5 ]3 P% c" i
. z" ?. G, ]2 J* ? ident/' 请选择目标面...',BOX,resp
4 V8 w4 B4 `' ?4 C这里你选择的时候没有实现多选的定义，所以会报警

建议你直接这样声明
" k, H, p9 D4 u+ o1 b  b  y/ @; T9 `ENTITY/BOX

satellitehuang

我试了，如果声明ENTITY/box，就不会出现类选择对话框了！
: t% {7 j+ B0 u7 \# m, j就不能达到通过颜色控制偏置面的命令了！ （类选择对话框）