yang686526

高手们帮帮忙，关于多线不同线宽问题
www.dimcax.com
高手们帮帮忙，关于多线不同线宽问题
图样

线总宽70， 粗虚线线宽为0.5，白实线线宽为.15
最近绘图，要定制个轨道线，中间线为虚线，两边线为实线，线宽不一样宽，中间粗，两边细。麻烦大家给帮个忙，用多线如何制定？？

你提的问题是可编程序来画,但你提供的数据达不到你画的图,你把你要的数据画在图上.
gbg

图片：

你把程序考到你的cad下给它一个名,例:hx.lsp在命令下用(load"hx")回车就可使用了,在命令下输入hx回车,提示:起点:你用鼠标给出起点,你用鼠标给出起点,到点:你用鼠标给出到点,你用鼠标给出起点,软件提示:线的总宽2) 你用键盘输入线宽,回车,不输入回车线宽为2,就话画出闲线.
(if (not (tblsearch "layer" "0z"))
(command "layer" "n" "0z" "")
)
(if (not (tblsearch "layer" "2z"))
(command "layer" "n" "2z" "c" "2" "2z" "")
)
(defun c:hx ()
(setq os (getvar "osmode"))
(setvar "osmode" 0)
(setq p1 (getpoint "线的起点: ") p2 (getpoint p1 "到点:") ppp2 p2 an (angle p1 p2) an1 (+ (* pi 0.5) an) di (distance p1 p2))
(setq w (getreal "线的总宽2) "))
(if (= w nil)(setq w 1)(setq w (/ w 2.0)))
(setq di1 (/ di 14) pp1 (polar p1 an1 w ) pp2 (polar pp1 an di))
(setq pp3 (polar p1 (+ (* pi 1.5) an) w) pp4 (polar pp3 an di))
(command "layer" "s" "0z" """pline" pp1 "w" "0.15" "0.15" pp2 """pline" pp3 pp4 "")
(command "layer" "s" "2z" "")
(setq p2 (polar p1 an di1) p3 (polar p2 an di1))
(command "pline" p1 "w" "0.5" "0.5" p2 "")
(setq p1 (polar p3 pi (/ di1 6)))
(repeat 6
(setq p2 (polar p1 an di1) p3 (polar p2 an di1))
(command "pline" p1 "w" "0.5" "0.5" p2 "")
(setq p1 (polar p3 pi (/ di1 6)))
)
(command "pline" p1 ppp2 "")
)
gbg

先谢谢坛主，再拷下来用用。
看来得研究研究lisp了，昨天还找了点教程。

有点问题？？


我用的cad2006，加载正常。但是输入hx后，捕捉开关自动关闭，并且捕捉选项全为不全。为何取消(setq os (getvar "osmode")) (setvar "osmode" 0)，osmode这句命令，就不能画出来了，所有的线就重合成一条了。并接画斜线和竖线时就乱套了。
能否用多线定义成3条线的样式，但加载中间一条线时，使它的线宽成2边线的倍数或是加载较宽的虚线。能操作吗？有文件
原程序有一些问题,现改了.
(if (not (tblsearch "layer" "0z"))
(command "layer" "n" "0z" "")
)
(if (not (tblsearch "layer" "2z"))
(command "layer" "n" "2z" "c" "2" "2z" "")
)
(defun c:hx ()
(setq os (getvar "osmode")) ;;取你在用这程序前的扑捉状态
(setvar "osmode" 0) ;;不要捕捉
(setq p1 (getpoint "线的起点: ") p2 (getpoint p1 "到点:") ppp2 p2 an (angle p1 p2) an1 (+ (* pi 0.5) an) an2 (+ (* pi 1.5) an) di (distance p1 p2))
(setq w (getreal "线的总宽2) "))
(if (= w nil)(setq w 1)(setq w (/ w 2.0)))
(setq di1 (/ di 14) pp1 (polar p1 an1 w ) pp2 (polar pp1 an di))
(setq pp3 (polar p1 an2 w) pp4 (polar pp3 an di))
(command "layer" "s" "0z" """pline" pp1 "w" "0.15" "0.15" pp2 """pline" pp3 pp4 "")
(command "layer" "s" "2z" "")
(setq p2 (polar p1 an di1) p3 (polar p2 an di1))
(command "pline" p1 "w" "0.5" "0.5" p2 "")
(setq p1 (polar p3 (+ an pi) (/ di1 6)))
(repeat 6
(setq p2 (polar p1 an di1) p3 (polar p2 an di1))
(command "pline" p1 "w" "0.5" "0.5" p2 "")
(setq p1 (polar p3 (+ an pi) (/ di1 6)))
)
(command "pline" p1 ppp2 "")
(setvar "osmode" os) ;;返回用程序前的扑捉状态
)
gbg

没问题了，谢谢坛主。

教程 我现在就正在用这个学习

看来得研究研究lisp了，昨天还找了点教程。

路过，受教!