iCAx开思网

标题: 恳请大家帮帮忙，自己做的源代码。 [打印本页]

作者: wwwklkl 时间: 2009-12-11 10:32
标题: 恳请大家帮帮忙，自己做的源代码。
恳请大家帮帮忙，我第一次接触ug二次开发，很多东西都搞不明白，所以我自己做了一个，但是不能实现，不知道是哪里出了问题，以下是源代码，有两个地方不行1、通过实体选择对象的时候还是只能选面而不能选实体？2、颜色改变不了？？请大家帮忙帮忙。。。

$$ 更改对象颜色
ENTITY/obj(1000)
NUMBER/col(4)
DATA/col,2,4,6,1
start:
         choose/'选择定义类型' ,$
            '通过面','通过实体',deflt,1,RSP1
            jump/start:,hal:,,,start1:,start1:,hal:,RSP1

start1:
               mask/71
         ident/'选择要改色的面',obj,cnt,nm,rsp1
         jump/start1:,hal:,,,rsp1
   ifthen/nm>1000
messg/'选择的对象超过1000个...','请重新选择'
      jump/start1:
         else
   endif
         jump/start3:
start2:
               mask/70
         ident/'选择要改色的体',mb,cnt,nm,rsp2
         jump/start2:,hal:,,,rsp2
   ifthen/nm>1000
messg/'选择的对象超过1000个...','请重新选择'
      jump/start2:
         else
   endif
start3:
      choose/'选择以下类型以改变以象颜色' ,$
               '绿色','红色',$
               '黄色','紫色',$
               '重新选择对象',$
                  DEFLT,1,rsp3
      jump/start3:,hal:,,,start4:,start4:,start4:,start4:,start:,hal:,rsp3
start4:
               k=col(rsp3-4)
               do/start5:,i,1,nm
               &color(obj(i))=k

start5:
         jump/start3:
hal:
   halt

作者: wwwklkl 时间: 2009-12-11 14:24
唉！等了那么久，能够为我解难的却没有一个，论坛那么多高手，帮一下我忙的一个都没有

作者: ffhi 时间: 2009-12-14 10:29
跳转有错，
jump/start:,hal:,,,start1:,start1:,hal:,RSP1
改为：
jump/start:,hal:,,,start1:,start2:,hal:,RSP1
试试。

欢迎光临 iCAx开思网 (https://www.icax.org/)