提取面或实体的边缘曲线源代码 --还有些问题？谁能帮我解决？

1113824550 · 发表于 2011-6-18 10:56

本帖最后由 1113824550 于 2011-6-18 13:06 编辑

$$
$$  本文内容【提取面的外边缘曲线】
$$
$$  制作者：梅雷  QQ：1113824550
$$
$$
ENTITY/face,ln(2000)
NUMBER/poin(3),NUM1(2000,3),NUM2(2000,3)
L10:
MASK/71  $$ 只选择面改成70就是提取实体的内边缘曲线
ident/'梅雷提示！请选择面...',face,resp
JUMP/L10:,END:,,,resp

l20:
$$ 提取面的失量方向一般用于拉伸方向不用可以去掉
poin=snorf(face,.5,.5)
$$ 提取面的边缘曲线
ln=soledg/face,cnt,n
$$ 计算并提取面的外边缘曲线
I=0
IL:
I=I+1
IF/I>N,JUMP/KK:
$$ 提取坐标
NUM1(I,1..3)=CPOSF(ln(I),0)
NUM2(I,1..3)=CPOSF(ln(I),1)
JUMP/IL:
KK:
J=-1
JL:
J=J+1
IF/J>N-2,JUMP/KKK:
IF/NUM1(N-J,1..3)<>NUM1(N-J-1,1..3) AND $
NUM2(N-J,1..3)<>NUM2(N-J-1,1..3),DELETE/ln(N-J-1)
JUMP/JL:
KKK:
$$
$$ 如果你有其它代码请写在下面
$$
END:
HALT

$$ 有时候发现GRIP做的ug命令 UG无法用后退
$$ 解决方法 Shift + Ctrl + B 按两次就可以后退了

$$ 保存UG发现 GRIP做一个命令移动坐标到某一点无法使用
$$ 还没找到方法有办法的希望能说一下

1113824550 · 发表于 2011-6-18 13:05

本帖最后由 1113824550 于 2011-6-18 13:07 编辑

有些问题？
有些可以有些不可以
那位高手能解决？

1113824550 · 发表于 2011-6-22 09:29

呵呵自己解决了原来怎么简单...

694893367 · 发表于 2011-6-23 09:27

自己解决又不发上来??

694893367 · 发表于 2011-6-23 09:32

前面加上选面或实体生成自动块

wangcongwei1002 · 发表于 2011-6-23 23:35

UG二次开发毕设 · 发表于 2011-6-24 11:10

$$ 有时候发现GRIP做的UG命令 UG无法用后退
这个问题是你程序本身有问题，并不是所谓的GRIP问题，你没有设置“后退”程序，当然有问题了。
$$ 保存UG发现 GRIP做一个命令移动坐标到某一点无法使用
你新建坐标才是对的！系统坐标移动后无法关联对象！

至于你说的提取面或实体的边缘曲线你用好MASK我真的想不到还能有什么问题！

1113824550 · 发表于 2011-6-25 07:57

【UG二次开发毕设】请教系统坐标移动后无法关联对象如何才能关联对象
----------------------------------------------------------------------------------

$$ 提取面的内/外【边缘曲线】
$$ 制作者：梅雷
$$ 用 CHAIN/（链选择函数）来实现

ENTITY/face,ln(2000),OBJ(2000)
NUMBER/poin(3)

L10:
MASK/71
ident/'梅雷提示！请选择面...',face,resp
JUMP/L10:,END:,,,resp

l20:
$$ 提取面的失量方向
poin=snorf(face,.5,.5)

$$提取面的边缘曲线
ln=soledg/face,cnt,n

CHAIN/START,ln(n),XLARGE,END,ln(1),OBJ,CNT,ct

wby=n-ct+1
nby=n-ct
$$ 其中 ln(wby..n)  为外边缘曲线
$$ 其中 ln(1..nby)  为内边缘曲线

END:
HALT

694893367 · 发表于 2011-7-3 12:20

可改成选实体的吗？

1113824550 · 发表于 2011-7-5 08:29

只要改一下 MASK/71为
MASK/70 就行

		自动登录	找回密码
密码			注册

[疑难] 提取 面或实体的边缘曲线 源代码 --还有些问题？谁能帮我解决？

[疑难] 提取面或实体的边缘曲线源代码 --还有些问题？谁能帮我解决？