May 22, 2013

Blk : Road Marking Template

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 

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 here

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


  1. (defun c:zz ()
    (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)))