|
|
HomeNewsExamplesDemoDownloadsFAQDocumentationMailing ListsLicense
|
9:01 pm GMT
GeSHi - Generic Syntax Highlighter
Latest News
News Archive
|
Random Screenshot
Demonstration
Runtime Example
**(defun c:chgsc ()
(initget "10 20 50 100 200")
(setq newdwgsc (getkword "What is your scale: "))
(setq #dwgsc (atof newdwgsc))
(command "INSERT" (strcat "1-" newdwgsc) "0,0" "1.0" "1.0" "0.0")
(command "DIMSTYLE" "R" (strcat "1-" newdwgsc))
)
|
|