谁知道那里有画中心线的程序

yip05360

[glow=255,red,18][I]好好学习，天天向上[/I][/glow]

zxdcad

有什么好晕的！画中心线再简单也得二三步，往往画多了或少了还得编辑，一步搞定不是好事吗？


看看我这个！多方便呀!         有要的就发上来！


       

席恩蒂

高！实在是高！！

zero207

12楼的程序还需要进一步完善。 学过制图的网友很容易就能看出图中非常明显的错误，右侧三个圆（弧）的中心线应该相交在线段上，而不是相交在点上，左边的就对了。如果按上图标注中心线的话，我们设计院是通不过校对和审核的。具体规定见国家标准（各行业制图规范要求相似）： 房屋建筑制图统一标准

GBJ 1-86 第3.0.8条 点划线或双点划线的两端，不应是点，点划线与点划线交接或点划线与其它图线交接时，应是线段交接。

zero207

只能标圆弧吗？多边形呢？组合体呢？圆环的圆形中心线呢？


单纯的标注独立图形没有什么意义，实际应用的图纸都是复杂的组合图形，例如建筑中的墙体平面图，每一堵墙、柱子都有轴线，外墙的轴线还不在正中间，像这样的图纸是不可能先画墙体再标中心线的。机械图中的变速箱壳体也是相同的道理。


中心线的作用就是定位，各种图形元素的相对位置大多是以中心线为基准的，尺寸的标注也是离不开中心线的。中心线就好比树干，各种图形元素就是枝叶，没有树干枝叶长到哪里呢？


我想12楼图中的几个圆（弧）是随手画的吧，如果要求几个圆之间有一定的相对位置怎么办？不会是计算圆心坐标以后再画圆吧？

zxdcad

谢谢楼上兄弟的提醒，确实我这个中心线与ＧＢ的要求还不符合（主要是中间有可能是点相交），也不好处理。



这是我自己编的，没有考虑你这么多情况，不过多边形、椭圆、圆环应该可以加进去！等有时间把它加进去！


这个程序的功能只是依据圆、弧画个中心线并自动确定中心线的长短，与画圆与弧本身没关系! 因为我的平面图大部分都是通过三维软件转过来的！

meflying

zero207发表于2004-11-21 23:56:0012楼的程序还需要进一步完善。 学过制图的网友很容易就能看出图中非常明显的错误，右侧三个圆（弧）的中心线应该相交在线段上，而不是相交在点上，左边的就对...

在线形比例一定的情况下，如果交点刚好在点上，我们是没法控制的，因为CAD是自动调整点和线的位置的，只有手画线才能保证所有的交点都不在点上。。。我给个代码吧，与12楼的差不多，不过我这里没有线型设置，是按当前情况绘制中心线，可以事先设定中心层再画。。。觉得好的就用，觉得不好，就当我没发过吧用法：将以下代码存为*.lsp文件，使用命令appload加载此文件

2. ;命令:Center
3. ;功能:画圆中心线,长出圆半径1/3.(defun c:center  (/ ss i j ent ents ptc r pts os)
4.    (setq ss (ssget '((0 . "CIRCLE"))))
5.    (setq i 0)
6.    (command "_.undo" "be")
7.    (setvar "cmdecho" 0)
8.    (setq os (getvar "osmode"))
9.    (setvar "osmode" 0)
10.    
11.    (repeat (sslength ss)
12.        (setq ent (ssname ss i))
13.        (setq ents (entget ent))
14.        (setq ptc (cdr (assoc 10 ents))
15.      r     (cdr (assoc 40 ents))
16.      j     0
17.      pts '()
18.        )
19.        (repeat 4
20.            (setq pts
21.            (append pts (list (polar ptc (* j (/ pi 2)) (+ r (/ r 3)))))
22.            )
23.            (setq j (1+ j))
24.        )
25.        (command "_.line"
26.            (nth 0 pts)
27.            (nth 2 pts)
28.            ""
29.            "_.line"
30.            (nth 1 pts)
31.            (nth 3 pts)
32.            ""
33.        )
34.        (setq i (1+ i))
35.    )
36.    (command "_.undo" "e")
37.    (setvar "osmode" os)
38.    (princ)
39. )

;命令:Center ;功能:画圆中心线,长出圆半径1/3.(defun c:center  (/ ss i j ent ents ptc r pts os)    (setq ss (ssget '((0 . "CIRCLE"))))    (setq i 0)    (command "_.undo" "be")    (setvar "cmdecho" 0)    (setq os (getvar "osmode"))    (setvar "osmode" 0)        (repeat (sslength ss)        (setq ent (ssname ss i))        (setq ents (entget ent))        (setq ptc (cdr (assoc 10 ents))      r     (cdr (assoc 40 ents))      j     0      pts '()        )        (repeat 4            (setq pts            (append pts (list (polar ptc (* j (/ pi 2)) (+ r (/ r 3)))))            )            (setq j (1+ j))        )        (command "_.line"            (nth 0 pts)            (nth 2 pts)            ""            "_.line"            (nth 1 pts)            (nth 3 pts)            ""        )        (setq i (1+ i))    )    (command "_.undo" "e")    (setvar "osmode" os)    (princ) )

jlwang888

不明白

liyuwen

楼主可试试XRCAD( http://xrsoft.nease.net/CAD/XRCAD.RAR )中的“绘图工具/绘制圆弧中心线”及“绘图工具/绘制直线间中心线”工具。

zero207

liyuwen发表于2004-11-24 16:01:00楼主可试试XRCAD( http://xrsoft.nease.net/CAD/XRCAD.RAR )中的“绘图工具/绘制圆弧中...

又在做广告，第二次抓到你了！