解压后用命令APPLOAD加载次文件，使用命令：tielu绘制
真的很好用！
多谢拉！
不过出了点小问题，就是在画我的那张地图时画出来的都是实心的，线的宽度是0.03，不知道是什么问题？
很多热心的好人啊！！
独角斗士发表于2004-3-14 20:36:00static/image/common/back.gif5357
<BR>請問這種gif圖檔是如何造出來的??
给你一个程序,只要你绘制的铁路轴线是连续的spline它可以帮你把轴线编辑成你需要的效果,由于我最近很忙,没有时间把它再扩展到line ,arc plne, 希望大家帮着扩展一下,谢谢.
;把spline变成铁路线示图<BR>;ljc 2004.3.18<BR>(DEFUN O1O( name cd / cm tc os q zd qd ang qdz zdy w1 w2 w3 w4 p1p2 p3 p4 ) ;name--spline的图元名 cd铁路线的宽度<BR> (setq cm(getvar "cmdecho") tc(getvar "clayer") os(getvar "osmode"))<BR> (command "osnap" "off")<BR> (setq cd(/ cd 2))<BR> (setq q(entget name))<BR> (setq Zd (cdr(assoc 10 q)))<BR> (setq qd (cdr(LAST q))) <BR> (SETQ ANG (ANGLE QD ZD))<BR> (SETQ qdz (polar qd (+ ANG ( / PI 2)) cd))<BR> (setq qdy (polar qd (- ANG ( / PI 2)) cd))<BR> (command "offset" cd name qdz "")<BR> (setq w1(entlast)) <BR> (setq p1 (cdr(assoc 10 (entget w1))))<BR> (setq p2 (cdr(last (entget w1))))<BR> (command "offset" cd name qdy "") <BR> (setq w2(entlast)) <BR> (setq p4 (cdr(assoc 10 (entget w2))))<BR> (setq p3 (cdr(last (entget w2)))) <BR> (command "line" p1 p4 "") (setq w3(entlast)) <BR> (command "line" p2 p3 "") (setq w4(entlast)) <BR> (command "-bhatch" "p" "solid" "s" w1 w2 w3 w4 "" "")<BR> (command "erase" w1 w2 w3 w4 name "")<BR> (setvar "cmdecho" cm)<BR> (setvar "osmode" os)<BR> (setvar "clayer" tc)<BR>)<BR>(defun c:tl( / line n0 j linex q qd zd cdd ang qdz dqy)<BR> (setq cm(getvar "cmdecho") tc(getvar "clayer") os(getvar "osmode"))<BR> (command "osnap" "off")<BR> (print "请选择铁路线:") (print)<BR> (setq line (ssget '((0 . "SPLINE"))))<BR> (setq ds(getint "请输黑白段长度:"))<BR> (setq cd(getreal "请输入绘制铁路线的宽度:"))<BR> (command "ucs" "" "")<BR> (command "erase" (ssget "x" '((0 . "point"))) "")<BR> (setq n0 (sslength line))<BR> (setq j 0 n2 0)<BR> (repeat n0<BR> (setq linex (ssname line j)) <BR> (setq cdd(/ cd 2))<BR> (setq q(entget linex))<BR> (setq Zd (cdr(assoc 10 q)))<BR> (setq qd (cdr(LAST q))) <BR> (SETQ ANG (ANGLE QD ZD))<BR> (SETQ qdz (polar qd (+ ANG ( / PI 2)) (* 10 cd)))<BR> (setq qdy (polar qd (- ANG ( / PI 2)) (* 10 cd)))<BR> (command "offset" cdd linex qdz linex qdy "")<BR> (command "measure" linex ds "")<BR> (command)<BR> (setq point (ssget "x" '((0 . "point"))))<BR> (setq n (sslength point))<BR> (setq i 0 ii 0)<BR> (repeat n<BR> (setq p1 (cdr(assoc 10 (entget(ssname point i)))))<BR> (command "erase" (ssname point i) "") <BR> (command "zoom" "w" (polar p1 (* pi 0.75) ds ) (polar p1 (* pi -0.25) ds ) )<BR> (command "break" (list (car p1) (cadr p1) (caddr p1)) "@" )<BR> (if (= 2 ii) (setq ii 0))<BR> (if (= 0 ii) (o1o (entlast) cd) (command "erase" (entlast) ""))<BR> (setq ii (1+ ii)) <BR> (setq i (+ i 1))<BR> ) <BR> (setq j (+ j 1)) <BR> (if (= 2 ii) (o1o linex cd) (command "erase" linex ""))<BR> )<BR> (command "zoom" "e" "")<BR>(setvar "cmdecho" cm)<BR> (setvar "osmode" os)<BR> (setvar "clayer" tc)<BR>)<BR>(print "敲入tL运行程序---LJC") (PRINT)
11楼的方法我试了，画出的铁路线黑白间隔不等，而且只能画折线，不能拟合。是这样的吗？
你们都是高手哦，好崇拜呀，能不能带小妹入入门呀，
可不可以告诉我哪个网页有CAD的入门教程呀。
很早的帖子了 ！
我也在为这个问题发愁呢，多谢啦！