好好学习，天天向上
有什么好晕的！画中心线再简单也得二三步，往往画多了或少了还得编辑，一步搞定不是好事吗？
看看我这个！多方便呀! 有要的就发上来！
高！实在是高！！
12楼的程序还需要进一步完善。
学过制图的网友很容易就能看出图中非常明显的错误，右侧三个圆（弧）的中心线应该相交在线段上，而不是相交在点上，左边的就对了。如果按上图标注中心线的话，我们设计院是通不过校对和审核的。具体规定见国家标准（各行业制图规范要求相似）：
<b><FONT color=#800000>房屋建筑制图统一标准</FONT></b> <BR><BR><FONT color=red><B>GBJ 1-86</B></FONT>
第3.0.8条 点划线或双点划线的两端，不应是点，点划线与点划线交接或点划线与其它图线交接时，应是线段交接。<BR>
只能标圆弧吗？多边形呢？组合体呢？圆环的圆形中心线呢？
单纯的标注独立图形没有什么意义，实际应用的图纸都是复杂的组合图形，例如建筑中的墙体平面图，每一堵墙、柱子都有轴线，外墙的轴线还不在正中间，像这样的图纸是不可能先画墙体再标中心线的。机械图中的变速箱壳体也是相同的道理。
中心线的作用就是定位，各种图形元素的相对位置大多是以中心线为基准的，尺寸的标注也是离不开中心线的。中心线就好比树干，各种图形元素就是枝叶，没有树干枝叶长到哪里呢？
我想12楼图中的几个圆（弧）是随手画的吧，如果要求几个圆之间有一定的相对位置怎么办？不会是计算圆心坐标以后再画圆吧？
谢谢楼上兄弟的提醒，确实我这个中心线与ＧＢ的要求还不符合（主要是中间有可能是点相交），也不好处理。
这是我自己编的，没有考虑你这么多情况，不过多边形、椭圆、圆环应该可以加进去！等有时间把它加进去！
这个程序的功能只是依据圆、弧画个中心线并自动确定中心线的长短，与画圆与弧本身没关系! 因为我的平面图大部分都是通过三维软件转过来的！
zero207发表于2004-11-21 23:56:00static/image/common/back.gif12楼的程序还需要进一步完善。 学过制图的网友很容易就能看出图中非常明显的错误，右侧三个圆（弧）的中心线应该相交在线段上，而不是相交在点上，左边的就对...
在线形比例一定的情况下，如果交点刚好在点上，我们是没法控制的，因为CAD是自动调整点和线的位置的，只有手画线才能保证所有的交点都不在点上。。。我给个代码吧，与12楼的差不多，不过我这里没有线型设置，是按当前情况绘制中心线，可以事先设定中心层再画。。。觉得好的就用，觉得不好，就当我没发过吧用法：将以下代码存为*.lsp文件，使用命令appload加载此文件;命令: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)
)
不明白
楼主可试试XRCAD( <A href="http://xrsoft.nease.net/CAD/XRCAD.RAR" target="_blank" >http://xrsoft.nease.net/CAD/XRCAD.RAR</A> )中的“绘图工具/绘制圆弧中心线”及“绘图工具/绘制直线间中心线”工具。
liyuwen发表于2004-11-24 16:01:00static/image/common/back.gif楼主可试试XRCAD( http://xrsoft.nease.net/CAD/XRCAD.RAR )中的“绘图工具/绘制圆弧中...
<BR>又在做广告，第二次抓到你了！