I am so close at getting this complete it is really bothering me. There is only one thing I need this routine to do and that is pause right after it sets my revcloud arc lengths. So the user can either start drawing the revcloud or hit O to select objects. By default I have put "O" to select objects and the lisp routine works perfect. But that's not the command that should be there. Putting PAUSE in place of "O" doesn't work and this is where I am stuck. I would use get object, but we don't have any lisp routines that use that function so I am not sure where I would place that line in this lisp.
Code:(setq oldlay (getvar "clayer"))
(setq a (getvar "cannoscalevalue"))
(COMMAND "-LAYER" "M" "MEREVISION" "C" "4" "" "S" "MEREVISION" "")
(setq ss (
cond
((= a (/ 1.0 192.0)) 50.0) ;1/16th scale sets arc length to 50
((= a (/ 1.0 128.0)) (/ 135.0 4.0)) ;3/32th scale sets arc length to 33.75
((= a (/ 1.0 96.0)) 25.0) ;1/8th scale sets arc length to 25
((= a (/ 1.0 64.0)) (/ 75.0 4.0)) ;3/16th scale sets arc length to 18.75
((= a (/ 1.0 48.0)) (* 25.0 0.5)) ;1/4 scale sets arc length to 12.5
((= a 1.0) (/ 1.0 4.0)) ;1:1 scale sets arc length to .25
((= a (/ 1.0 240.0)) 75.0) ;1:20 scale sets arc length to 75
((= a (/ 1.0 480.0)) 100.0) ;1:40 scale sets arc length to 100
((= a (/ 1.0 24.0)) (* 25 0.25)) ;1/2 scale sets arc length to 6.25
)
)
(setq
i 0
rrr (ssget
)
)
(progn
(while (< i (sslength rrr))
(setq X (ssname rrr i))
(COMMAND "revcloud" "style" "calligraphy" "a" SS SS "O" X "N")
(setq i (+ 1 i))
)
)
(setvar "clayer" oldlay)