[求助]铁路线怎么画？？

meflying

解压后用命令APPLOAD加载次文件，使用命令：tielu绘制

zx79

真的很好用！


多谢拉！

zx79

不过出了点小问题，就是在画我的那张地图时画出来的都是实心的，线的宽度是0.03，不知道是什么问题？

tools

很多热心的好人啊！！

bigwa

独角斗士发表于2004-3-14 20:36:005357

請問這種gif圖檔是如何造出來的??

ljcgq

给你一个程序,只要你绘制的铁路轴线是连续的spline它可以帮你把轴线编辑成你需要的效果,由于我最近很忙,没有时间把它再扩展到line ,arc plne, 希望大家帮着扩展一下,谢谢. ;把spline变成铁路线示图
;ljc 2004.3.18
(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)

cadhby_ylh

11楼的方法我试了，画出的铁路线黑白间隔不等，而且只能画折线，不能拟合。是这样的吗？

lch841122

你们都是高手哦，好崇拜呀，能不能带小妹入入门呀，


可不可以告诉我哪个网页有CAD的入门教程呀。

太极狮子

很早的帖子了 ！

slecchw

我也在为这个问题发愁呢，多谢啦！