请问怎么定制铁路的线型？

xvbwily

近日在画图时需划出铁路的线型
找了一本关于定制的书来看，
仍然是不得要领，
请各位高手帮忙！
在此先行谢过了！

陈伯雄

您看了我写的《AutoCAD2002高级应用技术》了么？里边有一个专题说铁路线...

xvbwily

实在对不起您没有看到您的《Autocad2002高级应用》
我看的是刘林编著的,可能没有您编的好，
但是我还没有找到你的书。
你能提供线索吗或者是动动你的手指头帮我把命令贴上来？
不胜感激！

xvbwily

陈兄：
拜托！

xvbwily

伯雄兄：
拜托拜托！

xvbwily

今天又来一位求教铁路线形的人，各位高手，请问你们为什么不留言？
为什么不指点指点我们这些水平较低的人？

东哥

用这一招试试。
用多段线绘制铁路中心线，往两边偏移得到铁路线的宽。把中间的线改变线型为虚线。多段线编辑改变线宽与铁路线宽相同，同时打开线型生成项。用CAD中原有的虚线线形如果觉得中间的间隔不好，可以自己修改acadiso.lin。如原来的DASHED线形是这样定义的：
*DASHED,Dashed __ __ __ __ __ __ __ __ __ __ __ __ __ _
A, 12.7, -6.35
其中12.7表示划线长，-6.35表示空格大小。可以把它改成等长。或不修改原线形定义，而在该文件中加一个线形。只要如法炮制就可以了，如加上下面的内容：
*TIELU,Tielu __  __  __  __  __  __  __  __  __  __  __  __  __
A, 12.7, -12.7

xvbwily

多谢东哥！

xazhji

自定义线型的方法很好，最好要编写一个程序来执行。

meflying

;线型定义还是自己写，实现自动存文件，及自动加载

(vl-load-com)
(defun loadline(lname fname / adoc msp ltps lname)
  (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
  (setq ltps (vla-get-linetypes adoc))
  (setq ltp (vl-catch-all-apply 'vla-load (list ltps lname fname)))
  (if (vl-catch-all-error-p ltp)
    (princ "此线型已存在或没有此线型！")
    (princ)
  )
  (princ)
)

(defun c:addline( / lname str1 str2 fname f)
  (setq lname (getstring "新定义线型名称:"))
  (setq str1 (getstring t "输入线型定义第一行:"))
  (setq str2 (getstring t "输入线型定义第二行:"))
  (setq fname "userline.lin")
  (setq f (open fname "a"))
  (write-line str1 f)
  (write-line str2 f)
  (write-line "\n" f)
  (close f)
  (loadline lname fname)
  (princ)
)