智能中心线v1.4(2019-12-29更新)

jh1005

智能中心线v1.4，命令：ce
2019-12-29更新：
把一些command换成vla，AutoCAD2020测试通过。

下图代码可按需修改图层，线型，颜色，随层或不建层：



——————————————
智能中心线v1.3，命令：ce
2012-10-5更新：
增加点选功能，详情看图。
修复一些bug

2012-9-21更新：
修复实线设置线型比例出错的bug

2012-9-19更新：
修复自定义函数“notopen”的bug。

2012-9-18更新：
1.增加支持不是多义线的由4条线组成的矩形或斜矩形。
2.增加重叠线出错提示。

2012-9-17更新：
1.把一些常用变量放在程序前面，方面修改：
  (setq lay "中心线") ;图层
  (setq col 6) ;颜色
  (setq lt "center") ;线型
  (setq sc1 0.1) ;(圆、椭圆、矩形……)的中心线的延长倍数
  (setq sc2 0) ;直线的中心线延长线倍数
  (setq sc3 0.8) ;(圆、椭圆、矩形……)的中心线的自动线型比例
  (setq sc4 0.4) ;直线的中心线的自动线型比例
2.增加同心圆或同心圆弧的处理，只画同心圆最大圆的中心线。
3.包容盒按右键切换。

2012-9-8更新：
1.增加自动线型比例(在fy-LineFormat函数里)。
2.修改线型、图层、颜色，修改程序中以下三句。
   (setq lay "中心线") ;图层
   (setq col 6)           ;颜色
   (setq lt "center")    ;线型
3.修改延长线倍数，查找代码中所有的 0.1 来修改。

2012-9-6略修正一些小问题。

2012-9-5更新，之前已下载的朋友请重新下载，感谢zhaozwf指出问题。
1.修复画交叉线和共点线的bug
2.修复画圆弧中心线的bug

2012-9-4更新：
1.增加斜矩形。
2.增加画多条平行线的中心线。
3.修改中心线延长为总长的0.1倍。
4.修正两条平行线左右错开时 中心线有时画得太短的问题。

如图，不解释：

zst1978

程序经测试仍发现bug和不足：
1、圆弧对象识别有BUG，中心点捕捉错误，捕捉到圆弧的圆心了，
2、程序不能识别图块、光栅图像，单行文字、多行文字、多线、属性定义文字、标注、填充图案等对象
3、另外，用天正做图的，程序不能识别天正的绘图对象
求优化

wsj249201

      “  ;;↓↓↓↓以下中心线的参数(可自行修改)↓↓↓↓
        (setq lay "3中心线层") ;图层名称,如果把lay设为nil则不建层(随层)
        (setq col 1)        ;颜色(1是红色)
        (setq lt "center")  ;线型
        (setq sc1 0.1)      ;(圆、椭圆、矩形……)的中心线的延长倍数
        (setq sc2 0)        ;直线的中心线延长线倍数
        (setq sc3 0.0)      ;(圆、椭圆、矩形……)的中心线的自动线型比例(0.0)
        (setq sc4 0.4)      ;直线的中心线的自动线型比例(0.4)
        ;;↑↑↑↑以上中心线的参数(可自行修改)↑↑↑↑”

这个中心线是按照是按照圆直径的0.1倍超出圆的，“在机械制图国家标准的规定中，规范的中心线的端点需超出圆弧3-5mm”这个怎么修改一下啊，谢谢！

smartstar

小笨可太聪明了！

669423907

中心线要伸出图形外边的，望楼主继续完善。单线的功能很好。

jack11280

好東西真的很好用

jh1005

669423907 发表于 2012-9-2 09:23
中心线要伸出图形外边的，望楼主继续完善。单线的功能很好。

延长距离由LL变量控制，可自行修改。

完整武器

很好的中心线程序 谢共享,矩形中心线要是支持这种方式就更加好了

yjr111

这种情况好像不合理
下面这样应该更合理

成仔

支持源码，顶一个

daidong013

楼主为什么我把层5改成其它自己定义的图层画出来的就只有一根中心线而不是十字线了呢?

jh1005

daidong013 发表于 2012-9-2 20:10
楼主为什么我把层5改成其它自己定义的图层画出来的就只有一根中心线而不是十字线了呢?

已修改了一下，增加斜矩形，请重新下载，修改图层只需改(setq lay "5")即可。