如何绘制铁路

ahwu · 发表于 2002-4-13 10:41:30

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

如何象绘制样条曲线一样绘制铁路，就象地图上的一段黑一段白的那种，谢谢！！！

梦断江南 · 发表于 2002-4-13 12:20:38

以前有段时间讨论了沿着曲线等距离插断线这个问题，有很多贴及解决方案，和你的问题很想象，你用“距离”“短线”搜索一下。也可在程序库“xd给大家写的程序”中找。
大体方法如下：
1。作形文件，改线形。
2。offset ,两条细实线，中间夹一条粗虚线。
3。求曲线法线，等距离插入，编程实现
4。divide用短粗线块均分曲线。

ahwu · 发表于 2002-4-13 23:52:49

非常感谢梦断江南老师的指导
我已采用如下办法实现：首先绘制一多段线（细实线），然后用offset在两侧各复制一条，用Pedit编辑中间的多段线，线型采用按要求编制的虚线，线宽设成和两侧细实线的距离相等即可。
但是每次都进行以上操作很麻烦，希望高手能编一lisp程序自动实现以上过程，即绘制一条多段线后，剩下的操作自动执行，谢谢！！！！

XDSoft · 发表于 2002-4-14 09:02:21

最初由 ahwu 发布
[B]非常感谢梦断江南老师的指导
我已采用如下办法实现：首先绘制一多段线（细实线），然后用offset在两侧各复制一条，用Pedit编辑中间的多段线，线型采用按要求编制的虚线，线宽设成和两侧细实线的距离相等即可。
但是每次都进行以上操作很麻烦，希望高手能编一lisp程序自动实现以上过程，即绘制一条多段线后，剩下的操作自动执行，谢谢！！！！ [/B]

eachy版主给大家写过，等他来给贴上吧

ahwu · 发表于 2002-4-16 09:52:29

管理员，有关本主题的内容还是搜索不到，请eachy版主把程序帖过来，也请各位高手帮忙，谢谢！！！！！！！！

eachy · 发表于 2002-4-16 10:15:47

;|
命令：tlx
说明：通过拾取中线自动生成铁路线, 中线可以是*polylinee、line或arc
程序中使用线型作虚线, 所以对经过拟合的pline支持不好,请注意!
以下所用H3线型可根据ltscale调整数值，将其加入到acad.lin中
*H3,___ ___ ___ ___ ___ ___ ___ ___
A,5,-4
|;
(setq #tl_wid 2.0) ;默认路宽
(defun c:tlx (/ ss s1 e tf wid sp lp0 lp1 ang)
(xdrx_begin '("cmdecho" "0"))
(setq tf T
olddist (getvar "offsetdist")
oldos (getvar "osmode")
)
(while (and tf
(setq ss (xdrx_entsel
"\n选路中心线<退出>: "
'((0 . "LINE,ARC,*POLYLINE") (8 . "TL"))
)
)
)
(if ss
(progn
(setq wid
(getreal (strcat "\n铁路线宽度:<" (rtos #tl_wid 2 1) ">: ")
)
)
(if (null (tblsearch "ltype" "h3")) ;判断是否加载线型
(command ".linetype" "l" "h3" "acad" "")
)
(if (or (= wid "")
(= wid nil)
)
(setq wid #tl_wid)
(setq #tl_wid wid)
)
(mapcar 'setvar '("offsetdist" "osmode") (list wid 0))
(setq e (car ss))
(setq sp (car (xdrx_getsamplept e)) ;线起点
ang (last
(xdrx_getperpline
e
(list (car sp) (cadr sp) '0.0)
)
) ;法线角度
lp0 (polar sp ang wid)
lp1 (polar sp (+ ang pi) wid)
s1 (ssadd)
s1 (ssadd e s1)
)
(command ".offset" "" e lp0 "")
(setq s1 (ssadd (entlast) s1))
(command ".offset" "" e lp1 "")
(setq s1 (ssadd (entlast) s1))
(command ".change" e "" "p" "lt" "h3" "")
(if (wcmatch (xdrx_getentdxf 0) "*POLYLINE")
(command ".pedit" e "w" (* 2 wid) "")
(progn
(command ".pedit" e "y" "w" (* 2 wid) "")
(setq s1 (ssadd (entlast) s1))
)
)
(xdrx_block_make s1 sp T) ;作匿名块
)
(setq tf nil)
)
)
(mapcar 'setvar
'("offsetdist" "osmode")
(list olddist oldos)
)
(xdrx_end)
(princ)
)

;| 
命令：tlx 
 
说明：通过拾取中线自动生成铁路线, 中线可以是*polylinee、line或arc 
       
      程序中使用线型作虚线, 所以对经过拟合的pline支持不好,请注意! 
 
      以下所用H3线型可根据ltscale调整数值，将其加入到acad.lin中 
*H3,___  ___  ___  ___  ___  ___  ___  ___ 
A,5,-4 
|; 
(setq #tl_wid 2.0)                        ;默认路宽 
(defun c:tlx (/ ss s1 e tf wid sp lp0 lp1 ang) 
  (xdrx_begin '("cmdecho" "0")) 
  (setq        tf        T 
        olddist        (getvar "offsetdist") 
        oldos        (getvar "osmode") 
  ) 
  (while (and tf 
              (setq ss (xdrx_entsel 
                         "\n选路中心线<退出>: " 
                         '((0 . "LINE,ARC,*POLYLINE") (8 . "TL")) 
                       ) 
              ) 
         ) 
    (if        ss 
      (progn 
        (setq wid 
               (getreal        (strcat "\n铁路线宽度:<" (rtos #tl_wid 2 1) ">: ") 
               ) 
        ) 
        (if (null (tblsearch "ltype" "h3")) ;判断是否加载线型 
          (command ".linetype" "l" "h3" "acad" "") 
        ) 
        (if (or        (= wid "") 
                (= wid nil) 
            ) 
          (setq wid #tl_wid) 
          (setq #tl_wid wid) 
        ) 
        (mapcar 'setvar '("offsetdist" "osmode") (list wid 0)) 
        (setq e (car ss)) 
        (setq sp  (car (xdrx_getsamplept e)) ;线起点 
              ang (last 
                    (xdrx_getperpline 
                      e 
                      (list (car sp) (cadr sp) '0.0) 
                    ) 
                  )                        ;法线角度 
              lp0 (polar sp ang wid) 
              lp1 (polar sp (+ ang pi) wid) 
              s1  (ssadd) 
              s1  (ssadd e s1) 
        ) 
        (command ".offset" "" e lp0 "") 
        (setq s1 (ssadd (entlast) s1)) 
        (command ".offset" "" e lp1 "") 
        (setq s1 (ssadd (entlast) s1)) 
        (command ".change" e "" "p" "lt" "h3" "") 
        (if (wcmatch (xdrx_getentdxf 0) "*POLYLINE")   
          (command ".pedit" e "w" (* 2 wid) "") 
          (progn 
            (command ".pedit" e "y" "w" (* 2 wid) "") 
            (setq s1 (ssadd (entlast) s1)) 
          ) 
        ) 
        (xdrx_block_make s1 sp T)        ;作匿名块 
      )                                        
      (setq tf nil)                        
    )                                        
  )                                        
  (mapcar 'setvar 
          '("offsetdist" "osmode") 
          (list olddist oldos) 
  ) 
  (xdrx_end) 
  (princ) 
)

柔柔 · 发表于 2003-8-28 21:59:19

这里有一个：
http://www.xdcad.net/forum/showthread.php?s=&threadid=74032

(if (null (tblsearch "ltype" "h3")) ;判断是否加载线型
(command ".linetype" "l" "h3" "acad" "")
)
这方法很好，我得把它加到我的程序中。

账号		自动登录	找回密码
密码			立即注册

如何绘制铁路

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

如何自动实现？？？

回复: 如何自动实现？？？

请eachy版主帖过来，也请各位高手帮忙，谢谢！