查看单个帖子
旧 2009-04-26, 08:50 PM   #1
yang686526
高级会员
 
注册日期: 06-11
帖子: 14579
精华: 1
现金: 224494 标准币
资产: 234494 标准币
yang686526 向着好的方向发展
默认 怎样用lisp对两组直线进行倒圆角操作?

怎样用lisp对两组直线进行倒圆角操作?
www.dimcax.com
怎样用lisp对两组直线进行倒圆角操作?
如题

我也不太懂!
希望有人来普及一下!
技术员

图片:

图片:

我给你编一个程序它可对两组直线进行倒圆角,是原程序,
你把程序考到你的cad下解压为wdj.lsp.
在命令下用(load"wdj")回车就可使用,
在命令下输入wdj回车
提示:点倒角的内点回车用cad的fillet倒角),你在一组要倒角的线内点一个点,
提示:点倒角的外点:你在一组要倒角的线外点一个点.
提示:内r:你输入内r的值,回车,两个圆角就倒好了.
4
gbg

谢谢
我的程序是这样的:先后选择a、b两组空间直线,确定同一平面的直线(唯一的,即任意平面最多只有两条直线,而且这两条直线不同属于一个组)筛选出来,倒圆角,循环..
能用vba最好了
yang686526离线中   回复时引用此帖
GDT自动化论坛(仅游客可见)