点击查看详细介绍

分享一个一键拉伸外挂源代码,GRIP的源代码

tbg_ui 6年前 8366 66

UG NX 二次开发 技术交流 qq群:641226372      UG二次开发(C、C#、WPF)


ENTITY/ENT(100),ENT1(100),edge,SOLID1,$
SOLID2,SOLID3,SOLID4,SOLID5,SOLID6,SOLID7
ENTITY/CSYS1,CSYS2,CSYS3,CSYS4,CSYS5,CSYS6,CSYS7
ENTITY/pt1,pt2,pt3,pt4,pt5,pt6,ln1,ln2,ln3,face
NUMBER/RETRN(42),R(50),DIA(50),a(3),b(3),c(3),$
sp(3),ep(3),MAT1(12)
data/h1,8,h3,2
data/w1,1,w3,0.2

start:
&DECPL=9
h=h1
w=w1
h2=h3
w2=w3
l10:
l20:
MASK/71
IDENT/'提示:选择拉伸面',face,RSP
JUMP/l20:,TERM:,,RSP

ENT1= SOLEDG/face,CNT,N,IFERR,label:

●●●请先 登陆注册 后查看●●●

l30:

choose/'提示:按键盘Esc键即可取消!',$
'继续',$
'与电极头布尔加',$
'参数设置',DEFLT,2,RSP4
jump/start:,TERM:,,,start:,l40:,setup2:,TERM:,RSP4
setup2:
param/'提示:输入拉伸参数',$
'拉伸高度 = ',h1,rsp2
l40:
mask/70
ident/'提示:选择电极头',SOLID4,rsp5
jump/l40:,TERM:,,rsp5
l50:
SOLID5=unite/SOLID4,with,SOLID2


choose/'提示:按键盘Esc键即可取消!' ,$
'继续', '参数设置',DEFLT,1,RSP6
jump/start:,,,,start:,setup3:,RSP6
setup3:
param/'提示:输入拉伸参数',$
'拉伸高度 = ',h1,rsp7
jump/setup3:,,start:,rsp7

TERM:

HALT

label:
MESSG/'ERR!'
JUMP/start:
err1:
MESSG/'ERR!'
JUMP/start:
labe2:
DELETE/ENT1
MESSG/'提示:注意拉伸方向'

JUMP/start:


0

最新回复 (66)
  • SNFGDGVJX 6年前
    1

    谢谢分享

    谢谢分享

    谢谢分享

  • sisi168168 6年前
    2

  • lsmy2015 6年前
    3

    感谢分享。。。。。。。

  • alabo 6年前
    4

    朋友,别对自己说不可能!!

  • zts1989 6年前
    5

    非常好大力支持支持支持

  • xiubin126 6年前
    6

    回复:楼主
    的的顶顶顶顶顶

  • ihieb111 6年前
    7

    顶!!!!!!!!!!!!!!!!!!

  • 张文 6年前
    8

    支持一下!!!!!!!!!!!!!!!!1

  • 张文书 6年前
    9

    谢谢分享

  • 沈才曾 6年前
    10

    面拉伸做不来啊,来看看先

  • yangshizhan 6年前
    11

    这个要看看是不是对我有用的东西

  • ysujinchao 6年前
    12

    学习一下 谢谢分享!

  • wuxinrong 6年前
    13

    感谢分享。。。。。。。

  • meteorshu 6年前
    14

    谢谢分享谢谢分享谢谢分享

  • yangxinyxxy 6年前
    15

    的顶顶顶顶顶的顶顶顶顶顶

请登录后发表新帖