(defun C:RS () ; Created by Igal Averbuh 2015
(setvar "osmode" 16384)

(setvar 'dimscale
(cond ((getdist (strcat "\nSpecify Revision Cloud Arc Length : ")))
((getvar 'dimscale))
)
)
;(command "revcloud" "A" (* 0.3125 (getvar "DIMSCALE")) "")
(command "-layer" "m" "TPZ-NOTES" "C" "1" "" "")
(command "_.spline")
(while (> (getvar "CmdActive") 0)
(command pause)
)
(command "_.revcloud" "A" (* 0.8125 (getvar "DIMSCALE")) "" "_o" "_l" "_n")
(setvar "osmode" 167)
(princ)
)
(c:rs)

Advertisements