[求助]：如何在CAD中画平行线中的中线？

SHORT

原来在天正3.0中有这个命令，可是在天正5.0中没找到，用CAD2002的命令是哪条？这对我来说，非常重要，谢谢赐教。:8

XDSoft

最初由 SHORT 发布
[B]原来在天正3.0中有这个命令，可是在天正5.0中没找到，用CAD2002的命令是哪条？这对我来说，非常重要，谢谢赐教。:8 [/B]

用LINE命令，然后用MID捕捉中点不就可以画了吗？

若我理解错了，你给大家截个图上来吧，具体说说如何要求？

明经通道

http://www.mccad.net/mcdown/list.asp?id=20

YueFeng

最初由 明经通道 发布
[B]http://www.mccad.net/mcdown/list.asp?id=20 [/B]

明经兄，不至于吧。广告做的也太火啦。

XDSoft

最初由 明经通道 发布
[B]http://www.mccad.net/mcdown/list.asp?id=20 [/B]

明经，如果希望，我可以在网站首页上加入“你网站的所有最新更新”，不要再这里吧，这样会托慢论坛的速度的，你的网站服务器不太正常，大多时间都访问不了，那朋友访问我的论坛就速度很慢了。

明经通道

搞笑一下，试试效果，还是不错，我改掉了。
[F]服务器刚换过，速度飞快。

SHORT

最初由 XDSoft 发布
[B]

用LINE命令，然后用MID捕捉中点不就可以画?.. [/B]

我可能没说清楚，我的意思是快速画出平行线的中轴，如图：

marting

用 OFFSET 命令不方便吗？

SHORT

offset需知道中轴的距离，或知道中轴中的一个点，我的意思是点两个平行线就直接画出中轴。

eachy

用API中的函数很容易，对平行的曲线类都可，取两点，直接求得距离，用另一线控制方向，在offset。主要用的函数：

1. 
   
2. xdrx_getdist
   
3. 
   
4. 功    能：求点到AcDbCurve(曲线类)的最短距离和最短距离对应的曲线上的点。
   
5. 
   
6. 调用格式：(xdrx_getdist <pt> <AcDbCurve类实体图元名>)
   
7. 
   
8. 说    明：实体类型可以是：AcDbLine、AcDbPolyline(lwpolyline),AcDbArc,AcDbCircle,AcDbEllipse,
   
9.                           AcDbSpline
   
10. 
    
11. 返 回 值：成功返回LISP表(距离 点), 失败返回NIL.
    

复制代码

当然如果是不平行的线，可以看看工具箱中的【等距连线】，有了连线，用每个线的中点就可以构造轴线了。

SHORT

感谢！感谢！

XDSoft

最初由 SHORT 发布
[B]原来在天正3.0中有这个命令，可是在天正5.0中没找到，用CAD2002的命令是哪条？这对我来说，非常重要，谢谢赐教。:8 [/B]

写好了，请试用：

;|
   命令：dline_midx
   功能：绘制两条直线的中轴线（平行和不平行都可以）

   说明：1、生成的中轴线图层随点取的第一条线
        2、程序配合XDRX_API使用，对程序有建议请到：
         晓东CAD空间－论坛 http://www.xdcad.net/forum
         留言
|;

2. 
   
3. (defun c:dline_midx (/ e1 e2 p1_s p2_s p1_mid p2_mid)
   
4.   (if (and
   
5.         (setq e1 (car (xdrx_entsel "\n请点取第一根LINE<退出>:" '((0 . "line")))))
   
6.         (progn
   
7.           (redraw e1 3)
   
8.           t
   
9.         )
   
10.         (setq e2 (car (xdrx_entsel "\n请点取平行的第二根LINE<退出>:" '
    
11.                                    ((0 . "line"))
    
12.                       )
    
13.                  )
    
14.         )
    
15.       )
    
16.     (progn
    
17.       (xdrx_begin)
    
18.       (xdrx_ucson)
    
19.       (redraw e1 4)
    
20.       (xdrx_setenttodb e1)
    
21.       (setq lyr (xdrx_getentdxf 8))
    
22.       (setq p1_s (xdrx_curve_getpoint e1)
    
23.             p2_s (xdrx_curve_getpoint e2)
    
24.       )
    
25.       (setq p2_s (apply
    
26.                    'xdrx_getnearpt
    
27.                    (cons (car p1_s) p2_s)
    
28.                  )
    
29.       )
    
30.       (setq p1_mid (xdrx_midp (car p1_s) (car p2_s))
    
31.             p2_mid (xdrx_midp (last p1_s) (last p2_s))
    
32.       )
    
33.       (xdrx_line1 p1_mid p2_mid)
    
34.       (xdrx_setenttodb (entlast))
    
35.       (xdrx_modent 8 lyr)
    
36.       (xdrx_ucsoff)
    
37.       (xdrx_end)
    
38.     )
    
39.   )
    
40.   (princ)
    
41. )
    

<br /> (defun c:dline_midx (/ e1 e2 p1_s p2_s p1_mid p2_mid)<br />   (if (and<br />         (setq e1 (car (xdrx_entsel "\n请点取第一根LINE<退出>:" '((0 . "line")))))<br />         (progn<br />           (redraw e1 3)<br />           t<br />         )<br />         (setq e2 (car (xdrx_entsel "\n请点取平行的第二根LINE<退出>:" '<br />                                    ((0 . "line"))<br />                       )<br />                  )<br />         )<br />       )<br />     (progn<br />       (xdrx_begin)<br />       (xdrx_ucson)<br />       (redraw e1 4)<br />       (xdrx_setenttodb e1)<br />       (setq lyr (xdrx_getentdxf 8))<br />       (setq p1_s (xdrx_curve_getpoint e1)<br />             p2_s (xdrx_curve_getpoint e2)<br />       )<br />       (setq p2_s (apply<br />                    'xdrx_getnearpt<br />                    (cons (car p1_s) p2_s)<br />                  )<br />       )<br />       (setq p1_mid (xdrx_midp (car p1_s) (car p2_s))<br />             p2_mid (xdrx_midp (last p1_s) (last p2_s))<br />       )<br />       (xdrx_line1 p1_mid p2_mid)<br />       (xdrx_setenttodb (entlast))<br />       (xdrx_modent 8 lyr)<br />       (xdrx_ucsoff)<br />       (xdrx_end)<br />     )<br />   )<br />   (princ)<br /> )<br />

梦断江南

;只针对平行线，平行线可以不在同一个高度上
;第二条平行线可以没有，只取点
;支持 arc,cir,ellipse，*line (包括spline,经过拟合的spline)

2. [FONT=century gothic]
   
3. (defun c:mf (/ OS pe1 p1 p2 dist2)
   
4. (princ "\n mf=middle dist offset 两条平行线的中轴线-------lxx.2002.4")
   
5. (setq os (getvar "osmode"))
   
6. (setvar "osmode" 128)
   
7. (setq pe1 (entsel)  
   
8.          p1 (osnap (last pe1) "nea")
   
9.          p2 (getpoint p1)
   
10.          p2 (list (car p2) (cadr p2))
    
11.          dist2 (/ (distance p1 p2) 2)
    
12. )
    
13. (command "_.offset"  dist2 pe1 p2 ^c)
    
14. (setvar "osmode" os)
    
15. (princ)
    
16. )
    
17. (princ "\n mf=middle dist offset 两条平行线的中轴线-------lxx.2002.4")   [/FONT]
    

[FONT=century gothic]<br /> (defun c:mf (/ OS pe1 p1 p2 dist2)<br /> (princ "\n mf=middle dist offset 两条平行线的中轴线-------lxx.2002.4")<br /> (setq os (getvar "osmode"))<br /> (setvar "osmode" 128)<br /> (setq pe1 (entsel)  <br />          p1 (osnap (last pe1) "nea")<br />          p2 (getpoint p1)<br />          p2 (list (car p2) (cadr p2))<br />          dist2 (/ (distance p1 p2) 2)<br /> )<br /> (command "_.offset"  dist2 pe1 p2 ^c)<br /> (setvar "osmode" os)<br /> (princ)<br /> )<br /> (princ "\n mf=middle dist offset 两条平行线的中轴线-------lxx.2002.4")   [/FONT] <br />

uug

能不能把绘制平行线中线的程序改为绘制风管中心线？
风管是line或pline连续线，中心线为单线－－点画线；在不同的层上。
风管的两条边线可能不平行，例如变径处、不等径弯头处。

alim

我不知道这些是什么东西，大概与风管有关。