求助高手编写一个轴倒角和孔倒角的程序

brige2009 · 发表于 2011-8-3 22:36

求教高手编写一个轴倒角和孔倒角的lisp程序，这个命令可以大大提高倒角的绘图速度，步骤和功能要求如下。多谢！

命令:CHS

1、选择轴第一条轮廓线:
此时十字光标变成拾取框，选择图中1线靠近A端的部分（如果选择靠近B端则在B端倒角）。

2、选择另一条轴轮廓线: 选择图中2线靠近A端的部分，此时选中的线成虚点显示。1和2线必须是平行线，如果不是平行线的话，则提示“选择的线不平行，请重新选择”字样。

3、输入倒角宽度<1.5>:1，默认为1.5，输入1，倒角宽度不能大于1线和2线距离的一半，否则提示重新输入倒角值。

4、输入倒角角度<45.00>:默认为45°，倒角角度如下图所示

倒角完成后，添加的线如下图中的红色线所示。所用的图层为粗实线01层，绘制的对象为炸开的单个实体。

孔倒角的话，同轴倒角步骤1、2、3、4一样，得到的结果如下图红线所示。所用的图层为粗实线01层，绘制的对象为炸开的单个实体。

Andyhon · 发表于 2011-8-4 08:40

提供之前见过协力厂的作法
Run ...
呈现样本图案,含各部位尺寸
依次在各尺寸位提示并接受User输入的尺寸值
(有一些值应是依手册规范,不须User介入)

图案呈见User输入的尺寸,确认后,自动绘出并标上尺寸 ....

brige2009 · 发表于 2011-8-5 20:05

各位大侠，给个思路也行
在此多谢了
共同努力

cabinsummer · 发表于 2011-9-11 05:47

楼主用的程序可是InteCAD？

brige2009 · 发表于 2011-9-11 11:01

MDS
里面有一个这样的功能
我想把它移植到AutoCAD中来
希望大家出手相助

cabinsummer · 发表于 2011-10-31 18:40

http://bbs.mjtd.com/thread-89955-1-1.html
我这个孔轴倒角可能和你要求的略微不一样，你要愿意可以拿去更改。

brige2009 · 发表于 2011-11-1 21:31

cabinsummer 发表于 2011-10-31 18:40
http://bbs.mjtd.com/thread-89955-1-1.html
我这个孔轴倒角可能和你要求的略微不一样，你要愿意可以拿去更 ...

多谢指点！

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

[源码] 求助高手编写一个轴倒角和孔倒角的程序