;;; Sets dimscale based on length of Bottom or Top white border line.
;;; TB_DIM at command line
;;; ---------------------------------------------------------------------------------
;;; Created 07/05/22 by Jerry Logan
;;; Assist from MHupp/Lee Mac in The Swamp
;;; Routine selects bottom white border line, checks it's length and sets
;;; Dimscale equal to that length by dividing bottom line by 34.
;;; Refer to OneNote - Drawing Conversion Help folder "Conversion Help" page
;;; DIMSCALE/BORDER SIZE CHART for correct dimscales.
;;; ---------------------------------------------------------------------------------
(defun tb_dim
( / box dimsc idx mni mxa obj scl sel
) )
)
)
)
)
(prompt "\nNothing selected, try again.") )
)
;;; -----------------------------------------------------
(command ".style" "Standard" "ipco.shx" (* 1.000 dimsc
) "0.85" "0" "n" "n" "n") (command ".style" "L080" "ipco.shx" (* 0.0781 dimsc
) "0.85" "0" "n" "n" "n") (command ".style" "L100" "ipco.shx" (* 0.0938 dimsc
) "0.85" "0" "n" "n" "n") (command ".style" "L120" "ipco.shx" (* 0.1094 dimsc
) "0.85" "0" "n" "n" "n") (command ".style" "L140" "ipco.shx" (* 0.1406 dimsc
) "0.85" "0" "n" "n" "n") (command ".style" "L175" "ipco.shx" (* 0.1563 dimsc
) "0.85" "0" "n" "n" "n") (command ".style" "L200" "ipco.shx" (* 0.1719 dimsc
) "0.85" "0" "n" "n" "n") (command ".style" "L240" "ipco.shx" (* 0.2187 dimsc
) "0.85" "0" "n" "n" "n") (command ".style" "LS080" "ipco.shx" (* 0.0781 dimsc
) "0.85" "20" "n" "n" "n") (command ".style" "LS100" "ipco.shx" (* 0.0938 dimsc
) "0.85" "20" "n" "n" "n") (command ".style" "LS120" "ipco.shx" (* 0.1094 dimsc
) "0.85" "20" "n" "n" "n") (command ".style" "LS140" "ipco.shx" (* 0.1406 dimsc
) "0.85" "20" "n" "n" "n") (command ".style" "LS175" "ipco.shx" (* 0.1563 dimsc
) "0.85" "20" "n" "n" "n") (command ".style" "LS200" "ipco.shx" (* 0.1719 dimsc
) "0.85" "20" "n" "n" "n") (command ".style" "LS240" "ipco.shx" (* 0.2187 dimsc
) "0.85" "20" "n" "n" "n") )
(tb_dim)
(sctxt)
)
)