几何尺寸与公差论坛------致力于产品几何量公差标准GD&T (GDT:ASME)|New GPS(ISO)研究/CAD设计/CAM加工/CMM测量

几何尺寸与公差论坛------致力于产品几何量公差标准GD&T (GDT:ASME)|New GPS(ISO)研究/CAD设计/CAM加工/CMM测量 (http://www.dimcax.com/hust/index.php)
-   ObjectARX(AutoLISP) (http://www.dimcax.com/hust/forumdisplay.php?f=178)
-   -   三视图自动拉线(新手上路) (http://www.dimcax.com/hust/showthread.php?t=11499)

yang686526 2009-04-26 04:18 PM

三视图自动拉线(新手上路)
 
三视图自动拉线(新手上路)
www.dimcax.com
三视图自动拉线(新手上路)
;第一次发帖,而且我是新手,如有不当之处,还请大家批评指正.
自己写了一个自动拉线的小程序,高手见笑了..
绘图步骤如下
如图:

圆弧+直线:
arc+line:
+自动拉线:
+eqptdl:
+直线:
+line:
+自动拉线:
+eqptdl:
+直线:
+line:
+完成:
+ok:
再来一个:


circle+eqptdl:
+line+eqptdl:
+line:
+ok:

打完收工.
注: 以上红色文字为自定义命令.
;==============================================================================
此lsp文件包含三个命令:
1 ready
此命令用于自动建立图层.
并且画出坐标轴.
2 eqptdl
主角命令
对"1辅助线"层(绿色那层)上的图元拉线
注:只对 线段 圆弧 圆 拉线,也就是说除此之外的 多段线 样条.. 都不会被拉线.
3 ok
此命令用于将"1辅助线"层上的所有图形改到"2粗实线"层上.
并且清除 拉线..
;===================================================================
当然为了使用方便大家可以为之设置快捷键
如:
21--ready
22--eqptdl
23--ok
;=====================================================================
好了欢迎大家来鄙视在下...
d
不好意思,
请问我写此贴时,上传的lsp文件怎么这里没有地方下载..
d


所有的时间均为北京时间。 现在的时间是 10:35 PM.