iCAx开思网

标题: 有没有哦人作出这种效果怎样才能作出这个效果？ [打印本页]

作者: zxc 时间: 2002-1-25 12:37
标题: 有没有哦人作出这种效果怎样才能作出这个效果？
怎样才能作出这样的效果？
序号从1开始自动生成！

这是从CAST中剪出来的！
我想知道有没有人具体做过

UG的功能很大
当然想做的东西都能做出来
可是还是有很多功能人们没怎么去用它

作者: idesign 时间: 2002-1-25 14:22
ug 可以吗？　我没作过！

好像PRO/E可以啊！

作者: amd 时间: 2002-1-25 14:23
UG完全可以啊!

作者: idesign 时间: 2002-1-25 14:26

amd wrote:
UG完全可以啊!

我出的平面图不多，所以也研究很少，具体怎么作啊？　好像序号有问题啊！

作者: yang 时间: 2002-1-25 14:34

amd wrote:
UG完全可以啊!

怎么做，可以讲解一下吗？

作者: dpeng 时间: 2002-1-27 22:03
可以的,象那个图框,你就可以用编写个grip 程序生成.

作者: zxc 时间: 2002-1-28 10:26

dpeng wrote:
可以的,象那个图框,你就可以用编写个grip 程序生成.

能具体点吗
想知道的人应该不少？

作者: cadit 时间: 2002-1-28 23:51
不需要什么grip程序。看看UG的使用说明就清楚了。

作者: amd 时间: 2002-1-29 00:01
楼上说的没错！不需要GRIP！详细我不不多说！关键是定义好各属性！属性在UG里有三种！然后定义其中之一为排序用！请看CAST及EDS和清华出的那套书！如果信得过，我可以为大家邮购！我能买到！

作者: gbf0404 时间: 2002-1-29 09:20

dpeng wrote:
可以的,象那个图框,你就可以用编写个grip 程序生成.

老哥以为ug是autocad呀，做明细表要用lisp程序，估计是从autocad开始学cad的

作者: harrylgs 时间: 2002-1-29 13:37
明细表的做法在《ug设计应用培训教程》里有详细说明！自个先看看吧！

作者: idesign 时间: 2002-1-29 17:29

harrylgs wrote:
明细表的做法在《ug设计应用培训教程》里有详细说明！自个先看看吧！

整天都上网了，哪有时间看啊。

你看了就说说吧，来都来了，你也别闲着，其他人也有的看啊！

作者: harrylgs 时间: 2002-1-29 17:56
由于内容比较多、面又广，我只大概说说吧！
1。在format--attribute---part那给予零件相关属性！
2。在assemblies---part list建立明细表的标题和属性！
3。create。可在工程图里加上。（位置设定在preferences---annotation---lettering）

作者: dpeng 时间: 2002-1-29 18:34
dpeng wrote:
可以的,象那个图框,你就可以用编写个grip 程序生成.

老哥以为ug是autocad呀，做明细表要用lisp程序，估计是从autocad开始学cad的

具体可以参照2001'UGS中国用户论文集"

342"使用ug二次开发工具grip提高工作效率"(陈向军)一文.

作者: seon 时间: 2002-1-29 20:31
MDT 里很容易做，UG 就没有试过了。

作者: idesign 时间: 2002-1-29 20:38
呵呵，我就是不喜欢看书的了，。。。。

作者: idesign 时间: 2002-1-29 20:39
2

作者: idesign 时间: 2002-1-29 20:40
哦，太多了，一直到P360啊！还不知道几个人要！不干了！

作者: boby 时间: 2002-1-29 21:38
看了这么多UG的贴子，我感到UG是做曲面的，而
且在修补、逆向工程中非常有用
但如果用它来做二维图，象这里的装配图，就有
点难为了，反而不如MDT。
另外我想说的是Pro/E做这种装配图绝对没问题。

作者: kitling 时间: 2002-1-29 22:48
我要

作者: zxc 时间: 2002-1-30 09:51

idesign wrote:
呵呵，我就是不喜欢看书的了，。。。。

程序练习

$$主程序（attribute.grs）

string/mc(13,30),title(13,30),val(13,30),prname(13,30)
string/st(100,30),lb(13,90)
string/ATT(2,32)
string/cl(25,32),dj(25,32),cl1(20),cl2(20)
string/section(2,20),sec(20)
string/label(10),bb(20)
string/dot(1),dot1(25)
START:
$$打开title.txt文件，并将其每行值赋予title数组
FETCH/txt,1,'g:\ugs180\uggrip\partatt\title.txt',iferr,D9:
APPEND/1
N=GETL(1)
num1=N/10
Reset/1
&DECPL=0
RESEQ/1,start,l,INCR,1
TITLE:
DO/TT0:,k,l,num1
        Read/l,LINNO,k,title(k)
TT0:

$$寻找当前文件的属性title,并将对应的值赋予val数组

t=&ATTALL(PART)
if/t==0,jump/K00:
DO/D1:,i,l,t
        st(i)= &ATTTL(PART,i)
        DO/D2:,j,l,num1
                ans=CMPSTR(st(i),title(j))
                ifthen/ans<>0,jump/E0:
else
val(j)=&ATTVL(PART,title(j))
                endif
        E0:
        D2:
D1:

$$程序运行界面，显示当前文件的属性title及其值

K00:
Fetch/txt,2,'g:\ugs180\uggrip\partatt\sxmc.txt',iferr,D9:
APPEND/2
N=GETL(2)
Num2=N/10
$$print/num2
reset/2
&DECPL=0
RESEQ/2,START,l,INCR,1

DO/MC0:,k,l,num2
        read/2,LINNO,k,mc(k)
        tt=25
        ss=lenf(mc(k))
        dot1=''
        DO/S0:,j,l,tt-ss
                dot='.'
                dot1=dot1+dot
        S0:
        lb(k)=mc(k)+dot1+val(k)
MC0:
CHOOSE/'Attributes Module V1.0*Chenxj',$
        lb(1..num2),$
        '维护属性列表',$
DEFLT,l,RSP
JUMP/START:,END:,,,OPT:,,,,,,,,,,RSP
OPT:
ifthen/RSP==num2+5
        jump/L15:
elseif/RSP==5
        jump/L5:
endif
ifthen/RSP==6
        jump/L6:
elseif/RSP==7
        jump/L7:
else
        jump/L8:
endif

L5:
        CALL/'mass',ATT  $$调用mass（零件重量）子程序，传递ATT参数
        JUMP/START:
L6:
        CALL/'material',cl,dj,cl1,cl2  $$调用matrial（材料）子程序
        JUMP/START:
L7:
        CALL/'section',section,sec  $$定义零件是否可剖
        JUMP/START:
L8:
        jj=0
        jj=RSP-4
        TEXT/'input attribute title',bb,rsp,DEFLT
        if/rsp<3,jump/START:
        ASATT/PART,title(jj),bb
        JUMP/START:
L15:
        CALL/'wh',title  $$属性维护，用户可以根据自己需要增加所需的属性
        JUMP/START:
D9:
END:
Halt

$$重量（mass.grs)
proc/ATT
entity/OBJ(25)
string/ATT(2),JS(25,100),str(100),tmp(32)
number/n(42),T(42),sl,len,a
L10:
ATT(1)='WET1'
T(3)=0
a=0.0001
&DECPL=3
$ $ 计算重量
MASK/70
IDENT/'SELECT COMPONENT TO ANALYSIS',SCOPE,ASSY,OBJ,CNT,sl,RESPONSE
JUMP/L10:,end:,,response
DO/L1:,I,1,sl
ANLSIS/SOLID,OBJ(I),KGM,n
T(3)=T(3)+n(3)
$$ print/t(3)
L1:str=FSTR(T(3))
$$ print/'str='+BLSTR(5)+str
kk=FNDSTR(str,'.',1)
$$print/kk
ifthen/kk==0 $$没有小数点
       JUMP/A0:
elseif/kk==2 $$小数点前有一位有效数
       len=lenf(str)
       tt=valf(str)
       if/tt==0,JUMP/B0:
       $$ print/'len='
       $$ print/len
       $$ print/tt
endif
       DO/D0:,i,1,len
             tmp=substr(str,3,i)
             ss=valf(tmp)
             $$print/i
             $$print/ss
             ifthen/ss<>0
                    ifthen/i>=2
                    ATT(2)=substr(str,1,i+2)
                    JUMP/A0:
                    endif
        endif
       D0:
       B0:
       ifthen/ss==0
              ATT(2)=FSTR(a)
              $$print/ATT(2)

else $$小数点前有效数大于一位
      ifthen/kk>3 $$小数点前有效数大于三位，省略
            ATT(2)=SUBSTR(str,1,KK-1)
      else $$小数点前有效数小于三位，取两位小数
            ATT(2)=SUBSTR(str,1,kk+2)
      endif
endif
A0:
$$ ATT(3)='cl'
$$ TEXT/'零件材料为'，ATT(4),RSP
ASATT/PART,ATT
$$ PRINT/'重量='+BLSTR(5)+ATT(2)
$$ PRINT/'材料='+BLSTR(5)+ATT(4)
end:
return

$$材料（material.grs)
proc/cl,dj,cl1,cl2
string/cl(25),dj(25),cl1,cl2
cl1='cl'
k0:
fetch/txt,1,'g:\ugs180\uggrip\partatt\cl.txt',iferr,D9:
APPEND/1
N=GETL(1)
num=N/10
$$ print/N
$$ print/num
reset/1
&DECPL=0
SORT/1,1,'newfile',1,3
RESEQ/1,START,1,INCR,1
DO/D0:,k,1,num
       read/1,LINNO,k,cl(k)
       $ $ print/cl(k)
D0:
M00:
ifthen/num>=14
       CHOOSE/'选用零件材料牌号', $
             cl(1..13), $
             '标准件性能等级',$
       DEFLT,1,ALTACT,'下一页',RSP
       JUMP/L0:,L0:,,NEXT:,,,,,,,,,,,,,,,RSP
       JUMP/OPT1:
       NEXT:
            CHOOSE/'选用零件材料牌号', $
            cl(14..num), $
       DEFLT,1,ALTACT,'输入材料牌号',RSP
       JUMP/M00:,L0:,,SR:,,,,,,,,,,,,,,,RSP
       JUMP/OPT2:
else
       CHOOSE/'选用零件材料牌号', $
       cl(1..num), $
       '标准件性能等级',$
       DEFLT,1,ALTACT,'输入材料牌号',RSP
       JUMP/L0:,L0:,,SR:,OPT:,,,,,,,,,,,,,,,RSP
endif
OPT:
    ifthen/RSP<num+5
           state=0
           state=RSP-4
           $ $ print/RSP
           ASATT/PART,cl1,cl(state)
           $ $ PRINT/'材料='+BLSTR(5)+cl(state)
           cl2=cl(state)
           JUMP/L0:
     else
           JUMP/XNDJ:
     endif
OPT1:
    ifthen/RSP<18
           state=0
           state=RSP-4
           $ $ print/RSP
           ASATT/PART,cl1,cl(state)
           $ $ PRINT/'材料='+BLSTR(5)+cl(state)
           cl2=cl(state)
           JUMP/L0:
     else
           JUMP/XNDJ:
     endif
OPT2:
     state=0
     state=RSP-4+13
     $ $ print/RSP
     ASATT/PART,cl1,cl(state)
     $ $ PRINT/'材料='+BLSTR(5)+cl(state)
     cl2=cl(state)
     JUMP/L0:
XNDJ:
     CALL/'xndj',dj,cl1,cl2
     JUMP/K0:
SR:
     CALL/'inputcl'
     JUMP/K0:
L0:
D9:
return

$$维护（wh.grs)
proc/title
string/aa(15)
string/title(13)
string/ds(1),sng(50)
fetch/txt,1,'g:\ugs180\uggrip\partatt\cl.txt',iferr,D9:
APPEND/1
N=GETL(1)
num1=N/10
$$ print/num1
reset/1
&DECPL=0
RESEQ/1,START,1,INCR,1
MESSG/'暂时只能增加属性'
TEXT/'input attribute title',aa,rsp
if/rsp<5,JUMP/D9:
ifthen/num1<=13
       DO/D0:,k,1,num1
             read/1,LINNO,k,title(k)
             $ $ print/title(k)
             ifthen/aa==title(k)
                    MESSG/'此属性已有'
                    JUMP/D9:
             endif
       D0:
       ss=lenf(aa)
       DO/S0:,j,1,ss
              val1=ASCII(aa,j)
              ifthen/val1>96
                     val2=val1-32
              else
                     val2=val1
              endif
              ds=CHRSTR(val2)
              sng=sng+ds
       S0:
else
    MESSG/'Database full'
    jump/L0:
endif
MESSG/'在文件末尾加入此title的属性名称，如xx属性'
xspawn/'notepad','d:\uggrip\partatt\sxmc.txt',iferr,D9:
APPEND/2
N=GETL(2)
num2=N/10
if/num2==num1,jump/d9:
       write/1,LINNO,num1+1,sng
       FILE/TXT,1,IFERR,L8:
       JUMP/L0:
       L8:
       MESSG/'cannot save file'
L0:
D9:
Return

$$定义零件是否可剖（section.grs)
proc/section,sec
string/section(2),sec
section(1)='section-component'
SEC:
CHOOSE/'定义零件是否可剖', $
       'NO', $
       'YES', $
DEFLT,1,RSP
JUMP/END:,END:,,,SEC1:,SEC2:,RSP
SEC1:
     section(2)='NO'
     ASATT/PART,section
     JUMP/END:
SEC2:
     section(2)='yes'
     ASATT/PART,section
     JUMP/END:
END:
sec=section(2)
$$ print/'section-component='+BLSTR(5)+sec
return

$$出图（draft,grs)
string/pnam(30),nam(30),subnam(30),tnam(40)
string/st(5,20),title(13,20),val(13,30)
entity/obj
string/size(5,10)
size(1)='A4'
size(2)='A3'
size(3)='A2'
size(4)='A1'
size(5)='A0'

pnam=&

NAME
kk=fndstr(pnam,'dwg',1)
if/kk<>0,jump/EN:
len=lenf(pnam)
subnam=substr(pnam,1,len-4)
QUERY:
tnam=subnam+'dwg'+size(1)+'.prt'
$$ print/tnam
FHREAD/tnam,iferr,ER0:
MESSG/tnam,'Already exist'
jump/END:
ER0:
tnam=subnam+'dwg'+size(2)+'.prt'
FHREAD/tnam,iferr,ER1:
MESSG/tnam,'Already exist'
jump/END:
ER1:
tnam=subnam+'dwg'+size(3)+'.prt'
FHREAD/tnam,iferr,ER2:
MESSG/tnam,'Already exist'
jump/END:
ER2:
tnam=subnam+'dwg'+size(4)+'.prt'
FHREAD/tnam,iferr,ER3:
MESSG/tnam,'Already exist'
jump/END:
ER3:
tnam=subnam+'dwg'+size(5)+'.prt'
FHREAD/tnam,iferr,ER4:
MESSG/tnam,'Already exist'
jump/END:
ER4:
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$1查寻当前零件的属性
fetch/txt,1,'d:\uggrip\partatt\title.txt',iferr,END:
APPEND/1
N=GETL(1)
num1=N/10
$ $ print/num1
reset/1
&DECPL=0
RESEQ/1,START,1,INCR,1
DO/TT0:,k,1,num1
       read/1,LINNO,k,title(k)
       $ $ print/title(k)
TT0:
t=&ATTALL(PART)
$ $ print/t
if/t==0,jump/P0:
DO/D1:,i,l,t
      st(i)=&ATTTL(PART,i)
      DO/D2:,j,l,num1
            ans=CMPSTR(st(i),title(j))
            ifthen/ans<>0,jump/E0:
            else
            val(j)=&ATTVL(PART,title(j))
            $ $ print/val(j)
            endif
            E0:
       D2:
D1:
jump/P1:
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$1
P0:
choose/'没有输入重量、材料属性',$
       '没有输入重量、材料属性',$
       '继续出图么',$
       '是',$
       '否',$
deflt,3,rsp
jump/END:,,,,p0:,p0:,p1:,END:,rsp
p1:
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$2创建dwg文件并赋属性
nam=subnam+'dwg'
CREATE/PART,nam,MMETER
obj=RCOMP/pnam
DO/A0:,k,1,t
ASATT/PART,title(k),val(k)
$ $ print/val(k)
A0:
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$2
CALL/'import'
jump/END:
EN:
MESSG/'本程序不支持带dwg文件'
END:
Halt

$$调图框（import,grs)
proc
$$ 设置变量
number/height,width,h(5),w(5)
string/drawing(30),path(20),draws(11,30),fulnam(50),list(50)
string/pnam(30),nam(30),subnam(30),fnam(30)
string/st(5,20),title(13,20),weight(20),mat(20),size(5,10)
entity/grp,grp1,txt(4),pt(4)
$$ 初始化
DATA/h,297,297,420,594,841
DATA/w,210,420,594,841,1189
title(1)='cl'
title(2)='wet1'
path='g:\ugs180\uggrip\draw\'
draws(1)='ao.prt'
draws(2)='a1.prt'
draws(3)='a2.prt'
draws(4)='a3.prt'
draws(5)='a4.prt'
draws(6)='LJao.prt'
draws(7)='LJa1.prt'
draws(8)='LJa2.prt'
draws(9)='LJa3.prt'
draws(10)='LJa4.prt'
draws(11)='part_list_format.prt'
size(1)='A4'
size(2)='A3'
size(3)='A2'
size(4)='A1'
size(5)='A0'
CHOOSE/'select drawing size', $
       '选择几号图纸', $
       size,DEFLT,2,RSP
JUMP/END:,,,,,SE:,,,,,RSP
SE:
ans=0
ans=RSP-5
DRAWC/'SH1',MMETER,h(ans),w(ans)
$ $ 提取当前图面图幅
drawing=&curdrw
$ $ print/drawing
drawv/,,,,height,width
$ $ print/height
$ $ print/width

pnam=&

NAME
kk=fndstr(pnam,'dwgA',1)
if/kk<>0,jump/EN:
len=lenf(pnam)
nam=substr(pnam,1,len-4)
subnam=substr(pnam,1,len-7)
$ $ print/nam
$ $ print/pnam
ifthen/height==297
pt(1)=point/width-45,8,0    $$ namel
pt(2)=point/45,height-18.5,0  $$ name2
pt(3)=point/width-105,34,0 $$ cl
pt(4)=point/width-93,11,0    $$ wet1
elseif/height==420 or height==594
pt(1)=point/width-50,8,0    $$name1
pt(2)=point/45,height-26.5,0  $$name2
pt(3)=point/width-110,32.5,0  $$c1
pt(4)=point/width-98,11,0    $$wet1
else
pt(1)=point/width-42,18.5,0  $$name1
pt(2)=point/53,height-16.5,0  $$name2
pt(3)=point/width-102,443.5,0  $$c1
pt(4)=point/width-90,21,0  $$wet1
endif
weight=&ATTVL(PART,'wet1')
mat=&ATTVL(PART,'cl')
txt(4)=NOTE/pt(4),weight
&TXANGL=0
txt(1)=NOTE/pt(1),subnam
&CSIZE=2.667*1.5
&ASPECT=0.7
&CHRDAT(TXT(1),1)=2.667*1.5
&CHRDAT(TXT(1),2)=0.7
&CHRDAT(TXT(1),3)=0.2
&CHRDAT(TXT(1),4)=1
txt(3)=NOTE/pt(3),mat
&TXANGL=180
txt(2)=NOTE/pt(2),subnam
&CSIZE=2.667*1.5
&ASPECT=0.7
&CHRDAT(TXT(2),1)=2.667*1.5
&CHRDAT(TXT(2),2)=0.7
&CHRDAT(TXT(2),3)=0.2
&CHRDAT(TXT(2),4)=1
&ASPECT=0.7
delete/pt

ifthen/height==297 and width==210
    n=10
    s=1
elseif/height==297 and width==420
    n=9
    s=2
elseif/height==420 and width==594
    n=8
    s=3
elseif/height==594 and width==841
    n=7
    s=4
elseif/height==841 and width==1189
    n=6
    s=5
endif

jj=fndstr(pnam,'-',1)
if/jj==0,jump/ZP:
LJ:
    fulnam=path+draws(n)
    JUMP/START:
ZP:
k=n-5
$$print/k
fulnam=path+draws(K)
list=path+draws(11)
grp1=RPATTG/list,LAYER,PLMODS,2,NOVIEW
JUMP/START:
START:
$$ print/fulnam
grp=RPATTG/fulnam,LAYER,NOVIEW
fnam=nam+size(s)
FILE/PART,fnam
$$print/fnam
jump/END:
EN:
MESSG/'本程序已运行过，不能重复运行'
END:
&TXANGL=0
&CSIZE=2.667
&ASPECT=0.7

return

$$
$$程序名：hz.grs
$$
&ENSITE=&midl
&CSIZE=5
note/0.0,0.0,'<F1>技术要求<F>'
note/-8,-6,'<F1>1.最小圆角半径为2.0<F>'
note/-8,-12,'<F1>2.打毛刺<F>'
note/-8,-18,'<F1>3.按照钣金公差<F>'
halt

作者: zxc 时间: 2002-1-30 09:58
link成功，可惜没有调试出来！！！！！！！！
要是有谁调试出来了能否通知一声！
基本按照原文录上去

作者: 开开 时间: 2002-1-30 15:39
为什么同样的问题要分开问

把harrylgs的：由于内容比较多、面又广，我只大概说说吧！
1。在format--attribute---part那给予零件相关属性！
2。在assemblies---part list建立明细表的标题和属性！
3。create。可在工程图里加上。（位置设定在preferences---annotation---lettering）

加上我在
《装配图明细表的生成〉下的贴子变完全解决这个问题了。

作者: zxc 时间: 2002-1-31 10:42

harrylgs wrote:
明细表的做法在《ug设计应用培训教程》里有详细说明！自个先看看吧！

《ug设计应用培训教程》
这书在哪里呀？我手头没有
能买到吗？

作者: LIUCHANGLIN 时间: 2010-4-30 08:30
前辈@@@@@@

作者: xiaons333 时间: 2010-4-30 08:59
dddddddddddddd

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