[求助]请问高手，铁路线应该怎么画？？？

zx79

偶在画一个地图



不知铁路线该怎么画（一段黑、一段白的）


是不是有什么图库可以下载，直接应用呀？


还是要自己定义线型？


多谢拉！！

ljcgq

你能把你要画的样图发个么?

东哥

用多段线画，向两边偏移（成三条线），然后把中间的线改用虚线线型以及改变其线宽。

zx79

是这样的

ljcgq

能给个电子版的么?

ljcgq

还有黑白的长度有什么规定么?

dbdr

这样行吗？

zx79

怎么画的呀？

ljcgq

写了个程序给你,可以把样条曲线编辑成你例图中的效果

ljcgq

;把spline变成铁路线示图
;ljc 2004.3
(DEFUN O1O( name cd / cm tc os q zd qd ang qdz zdy w1 w2 w3 w4 p1p2 p3 p4 ) ;name--spline的图元名 cd铁路线的宽度
(setq cm(getvar "cmdecho") tc(getvar "clayer") os(getvar "osmode"))
(command "osnap" "off")
(setq cd(/ cd 2))
(setq q(entget name))
(setq Zd (cdr(assoc 10 q)))
(setq qd (cdr(LAST q)))
(SETQ ANG (ANGLE QD ZD))
(SETQ qdz (polar qd (+ ANG ( / PI 2)) cd))
(setq qdy (polar qd (- ANG ( / PI 2)) cd))
(command "offset" cd name qdz "")
(setq w1(entlast))
(setq p1 (cdr(assoc 10 (entget w1))))
(setq p2 (cdr(last (entget w1))))
(command "offset" cd name qdy "")
(setq w2(entlast))
(setq p4 (cdr(assoc 10 (entget w2))))
(setq p3 (cdr(last (entget w2))))
(command "line" p1 p4 "") (setq w3(entlast))
(command "line" p2 p3 "") (setq w4(entlast))
(command "-bhatch" "p" "solid" "s" w1 w2 w3 w4 "" "")
(command "erase" w1 w2 w3 w4 name "")
(setvar "cmdecho" cm)
(setvar "osmode" os)
(setvar "clayer" tc)
)
(defun c:tl( / line n0 j linex q qd zd cdd ang qdz dqy)
(setq cm(getvar "cmdecho") tc(getvar "clayer") os(getvar "osmode"))
(command "osnap" "off")
(print "请选择铁路线:") (print)
(setq line (ssget '((0 . "SPLINE"))))
(setq ds(getint "请输黑白段长度:"))
(setq cd(getreal "请输入绘制铁路线的宽度:"))
(command "ucs" "" "")
(command "erase" (ssget "x" '((0 . "point"))) "")
(setq n0 (sslength line))
(setq j 0 n2 0)
(repeat n0
(setq linex (ssname line j))
(setq cdd(/ cd 2))
(setq q(entget linex))
(setq Zd (cdr(assoc 10 q)))
(setq qd (cdr(LAST q)))
(SETQ ANG (ANGLE QD ZD))
(SETQ qdz (polar qd (+ ANG ( / PI 2)) (* 10 cd)))
(setq qdy (polar qd (- ANG ( / PI 2)) (* 10 cd)))
(command "offset" cdd linex qdz linex qdy "")
(command "measure" linex ds "")
(command)
(setq point (ssget "x" '((0 . "point"))))
(setq n (sslength point))
(setq i 0 ii 0)
(repeat n
(setq p1 (cdr(assoc 10 (entget(ssname point i)))))
(command "erase" (ssname point i) "")
(command "zoom" "w" (polar p1 (* pi 0.75) ds ) (polar p1 (* pi -0.25) ds ) )
(command "break" (list (car p1) (cadr p1) (caddr p1)) "@" )
(if (= 2 ii) (setq ii 0))
(if (= 0 ii) (o1o (entlast) cd) (command "erase" (entlast) ""))
(setq ii (1+ ii))
(setq i (+ i 1))
)
(setq j (+ j 1))
(if (= 2 ii) (o1o linex cd) (command "erase" linex ""))
)
(command "zoom" "e" "")
(setvar "cmdecho" cm)
(setvar "osmode" os)
(setvar "clayer" tc)
)
(print "敲入tL运行程序---LJC") (PRINT)