[转帖]绘制铁路线型

席恩蒂

　　AutoCAD中带有各种线型，包括一些带符号（如圆圈、方框等）的线型，但却没有铁路线型。包括Autodesk公司新推出的GIS系统--World这一与地图紧密相关的产品，在其五花八门的线型中也未发现有铁路线型。可见，铁路这种特殊的线型，看似简单，实则很难用AutoCAD线型实现。下面向大家介绍一种简便、变通的解决方法。       


　　1．使用多义线绘制命令（Pline）画出铁路中心线（颜色为黑色，假设曲线长度约为1000个图形单位）。       


　　2．使用多义线编辑命令（Pedit）将画出的铁路中心线宽度用Width子命令设置为所需宽度，例如5，并使用子命令Fit或Spline将曲线进行拟合，使其成为光滑的曲线。       


　　3．使用复制命令（Copy）将上述多义线在原位置复制，即在响应Copy的"Second        point        of        displacement:"时使用"@0,0"即可。       


　　4．使用Pedit命令使复制出的多义线宽度略为减小，例如减小到3。       


　　5．使用线型命令（LineType）装载虚线线型，例如ACAD_ISO03W100。       


　　6．使用目标属性修改命令（DDModify）对复制出的多义线属性进行修改，将"Color"设置为255（白色），"Linetype"设置为虚线，"Linetype        Scale"设置成适当值（视绘图比例而定，如果在线型比例命令LTScale设置的线型比例为1，则该值设为2），并将"olyline"的"LT        Gen"选项选中，即将该曲线设置成连续线型。       


　　7．如果没有出现预期的效果，可使用刷新命令（ReGen）对图形进行刷新，或者使用改变实体显示顺序命令（DrawOrder），将白色虚线的多义线放到上一层（选Front子命令）或将黑色实线的多义线放到下一层（选Back子命令）。

xyp1964

ljc编了一个：

2. ;;;铁路线绘制
3. ;;;把spline变成铁路线示图
4. ;;;ljc 2004.3
5. (DEFUN O1O (name cd / cm tc os q zd qd ang qdz zdy w1 w2 w3 w4 p1p2 p3
6.          p4)
7.    ;;name--spline的图元名 cd铁路线的宽度
8.    (setq  cm (getvar "cmdecho")
9.   tc (getvar "clayer")
10.   os (getvar "osmode")
11.    )
12.           ;(command "osnap" "off")
13.    (setvar "osmode" 0)
14.    (setq  cd   (/ cd 2)
15.   q     (entget name)
16.   Zd   (cdr (assoc 10 q))
17.   qd   (cdr (LAST q))
18.   ANG (ANGLE QD ZD)
19.   qdz (polar qd (+ ANG (/ PI 2)) cd)
20.   qdy (polar qd (- ANG (/ PI 2)) cd)
21.    )
22.    (command "offset" cd name qdz "")
23.    (setq  w1 (entlast)
24.   p1 (cdr (assoc 10 (entget w1)))
25.   p2 (cdr (last (entget w1)))
26.    )
27.    (command "offset" cd name qdy "")
28.    (setq  w2 (entlast)
29.   p4 (cdr (assoc 10 (entget w2)))
30.   p3 (cdr (last (entget w2)))
31.    )
32.    (command "line" p1 p4 "")
33.    (setq w3 (entlast))
34.    (command "line" p2 p3 "")
35.    (setq w4 (entlast))
36.    (command "-bhatch" "p" "solid" "s" w1 w2 w3 w4 "" "")
37.    (command "erase" w1 w2 w3 w4 name "")
38.    (setvar "cmdecho" cm)
39.    (setvar "osmode" os)
40.    (setvar "clayer" tc)
41. )
42. (defun c:tielu (/ line n0 j linex q qd zd cdd ang qdz dqy)
43.    (setq  cm (getvar "cmdecho")
44.   tc (getvar "clayer")
45.   os (getvar "osmode")
46.    )
47.           ;(command "osnap" "off")
48.    (setvar "osmode" 0)
49.    (print "请选择铁路线(SPLINE):")
50.    (print)
51.    (setq  line (ssget '((0 . "SPLINE")))
52.   ds     (getint "请输黑白段长度:")
53.   cd     (getreal "请输入绘制铁路线的宽度:")
54.    )
55.    (command "ucs" "" "")
56.    (command "erase" (ssget "x" '((0 . "point"))) "")
57.    (setq  n0 (sslength line)
58.   j   0
59.   n2 0
60.    )
61.    (repeat n0
62.        (setq linex  (ssname line j)
63.      cdd  (/ cd 2)
64.      q  (entget linex)
65.      Zd  (cdr (assoc 10 q))
66.      qd  (cdr (LAST q))
67.      ANG  (ANGLE QD ZD)
68.      qdz  (polar qd (+ ANG (/ PI 2)) (* 10 cd))
69.      qdy  (polar qd (- ANG (/ PI 2)) (* 10 cd))
70.        )
71.        (command "offset" cdd linex qdz linex qdy "")
72.        (command "measure" linex ds "")
73.        (command)
74.        (setq point  (ssget "x" '((0 . "point")))
75.      n  (sslength point)
76.      i  0
77.      ii  0
78.        )
79.        (repeat n
80.            (setq p1 (cdr (assoc 10 (entget (ssname point i)))))
81.            (command "erase" (ssname point i) "")
82.            (command "zoom"
83.                "w"
84.                (polar p1 (* pi 0.75) ds)
85.                (polar p1 (* pi -0.25) ds)
86.            )
87.            (command "break" (list (car p1) (cadr p1) (caddr p1)) "@")
88.            (if (= 2 ii)
89.   (setq ii 0)
90.            )
91.            (if (= 0 ii)
92.   (O1O (entlast) cd)
93.   (command "erase" (entlast) "")
94.            )
95.            (setq ii (1+ ii)
96.          i   (+ i 1)
97.            )
98.        )
99.        (setq j (+ j 1))
100.        (if  (= 2 ii)
101.            (O1O linex cd)
102.            (command "erase" linex "")
103.        )
104.    )
105.    (command "zoom" "e" "")
106.    (setvar "cmdecho" cm)
107.    (setvar "osmode" os)
108.    (setvar "clayer" tc)
109. )
110. ;;(print "敲入tL运行程序---LJC")
111. (PRINT)

;;;铁路线绘制 ;;;把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")    (setvar "osmode" 0)    (setq  cd   (/ cd 2)   q     (entget name)   Zd   (cdr (assoc 10 q))   qd   (cdr (LAST q))   ANG (ANGLE QD ZD)   qdz (polar qd (+ ANG (/ PI 2)) cd)   qdy (polar qd (- ANG (/ PI 2)) cd)    )    (command "offset" cd name qdz "")    (setq  w1 (entlast)   p1 (cdr (assoc 10 (entget w1)))   p2 (cdr (last (entget w1)))    )    (command "offset" cd name qdy "")    (setq  w2 (entlast)   p4 (cdr (assoc 10 (entget w2)))   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:tielu (/ line n0 j linex q qd zd cdd ang qdz dqy)    (setq  cm (getvar "cmdecho")   tc (getvar "clayer")   os (getvar "osmode")    )           ;(command "osnap" "off")    (setvar "osmode" 0)    (print "请选择铁路线(SPLINE):")    (print)    (setq  line (ssget '((0 . "SPLINE")))   ds     (getint "请输黑白段长度:")   cd     (getreal "请输入绘制铁路线的宽度:")    )    (command "ucs" "" "")    (command "erase" (ssget "x" '((0 . "point"))) "")    (setq  n0 (sslength line)   j   0   n2 0    )    (repeat n0        (setq linex  (ssname line j)      cdd  (/ cd 2)      q  (entget linex)      Zd  (cdr (assoc 10 q))      qd  (cdr (LAST q))      ANG  (ANGLE QD ZD)      qdz  (polar qd (+ ANG (/ PI 2)) (* 10 cd))      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")))      n  (sslength point)      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)          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)

trkx

正因为没办法定制这样的线型，剩下最有效的办法就是编程，而不是如何画的问题。要说画，一句话解决：“二条实线一条虚线”。

wawbt

不过编程还没有学会，席姐的方法也可以。

Joseflin

RAILROAD LINETYPE 请参考

xyp1964

楼上是演示版。