(defun C:DS () ;Created by Igal Averbuh 2015
(setvar "osmode" 16384)
(setvar "orthomode" 0)
(command "-layer" "m" "TPZ-Geo-Image" "C" "1" "" "")

(setvar 'PLINEWID
(cond ((getdist (strcat "\nSpecify Width of Pline : ")))
((getvar 'dimscale))
)
)

(command "_.spline")
(while (> (getvar "CmdActive") 0)
(command pause)
)
(command "_.pedit" "l" "" "w" (getvar "PLINEWID") "")
(setvar "osmode" 167)
(princ)
)
(c:ds)

Advertisements