(defun c:test
(/ dimsc scl sn1 ss ss2 n
) ;; Why are you saving this ?
"Scaled TitleBlock"
"Choose The Appropriate Scale"
'("4" "8" "12" "16" "24" "48" "96")
)
)
(command "_layer" "unlock" "TBLK_BORD_LINES" "") (command "scale" "all" "" "0,0" scl
"") ;;I'm sure I'm not even close with my attempt... I get Error: bad argument type: lselsetp "4"
;;I need to associate the selection from the listbox with dimscale.
;;and then set the dimscale
;;vla-put-scalefactor ???
;; 'scl' is not a selection set it's a ( string ? ) that is a result of dos_listbox <-don't have the dos functions
;; Again here .. no selection set
;; (setq ss2 (vlax-ename->vla-object (ssname scl (setq nn (1- ss)))))
;; (setq sn1 (stracase (vla-get-scalefactor ss2))) No function 'stracase' AND STRCASE is used on STRINGS the scale returned is a NUMBER
;; (cond (vla-put-scalefactor ss2)) This COND has no conditions, might as well use (vla-put-scalefactor ss2) but again no selset
)
(command "_layer" "lock" "TBLK_BORD_LINES" "") )
;; Code revised based on the title of this thread
"Scaled TitleBlock"
"Choose The Appropriate Scale"
'("4" "8" "12" "16" "24" "48" "96")
)
)
)
)