Road marking template helps you to create road marking drawings, this file includes road marking blocks and lines in proper layers. The main aim to using this file is to maintain the quality of drawing and increase productivity. All marking blocks are created according to Qatar Traffic Manual.
Click here to Download
Steps:Copy this road marking block to a new file and EXPLODE, then attach road xref and bind it.match with match properties tool for line marking and copy marking blocks to drawing.To draw Kerb Line use LISP Kerbline.lsp Click hereTip:If you want to rename all layer names to your standards like “M500” to “RD_DE_M500” use RENAME command
For more details read post Rename Click here
Similer Post : Dynamic Callout
(defun c:zz ()
ReplyDelete(setq z2(getpoint "ka mana ?:"(setq z1(getpoint "ti mana ?")))
ag(angle z1 z2)
cn1(fix(/ (distance z1 z2) 0.6))
)
(while (> cn1 -1)
(setq p1 z1
p2 (polar z1 (+ ag (ang 0)) 0.3)
p3 (polar p2 (+ ag (ang 270)) 2.5)
p4 (polar z1 (+ ag (ang 270)) 2.5)
)
(plg p1 p2 p3 p4)
(setq z1 (polar z1 ag 0.6)
cn1 (- cn1 1))
))
(defun plg (pt1 pt2 pt3 pt4)
(entmake (list (cons 0 "LWPOLYLINE")
(cons 100 "AcDbEntity")
(cons 8 "ZEBRA")
(cons 100 "AcDbPolyline")
(cons 90 4)
(cons 70 1)
(append (list 10) pt1)
(append (list 10) pt2)
(append (list 10) pt3)
(append (list 10) pt4)))
)
(defun ang (a)
(* pi (/ a 180.0)))
call me 0504381379
DeleteYou wrote this post very carefully.Line Marking Companies The amount of information is stunning and also a gainful article for us. Keep sharing this kind of articles, Thank you.
ReplyDelete