[编程交流] dcl和lisp帮助

( DEFUN C:SETSC ()
   (SETQ CURSC (getvar "useri1" ))
   (princ "the print scale is 1:")(princ cursc)
   (setq newsc (getint "\nNew scale  1:"))
   (setvar "useri1" newsc)
     (setq a1 (getvar "useri1"))
     (princ "\n The new print scale is 1:")(princ newsc)(princ)
)

setsc1: dialog {
        label = "print scale";
: text_part {
            label = " ";
          key = "useri1";
alignment = left;
}
spacer_1;
: boxed_column {
    label = " scale ";
   : radio_column {
      : radio_button { label = "1 : 10"; key = "10"; }
      : radio_button { label = "1 : 20"; key = "20"; }
      : radio_button { label = "1 : 50"; key = "50"; }
      : radio_button { label = "1 : 100"; key = "100"; }
      : radio_button { label = "1 : 200"; key = "200"; }
      : radio_button { label = "1 : 500"; key = "500"; }
      : radio_button { label = "1 : 1000"; key = "1000"; }
      : radio_button { label = "1 : 2000"; key = "2000"; }
      : radio_button { label = "1 : 5000"; key = "5000"; }
      : radio_button { label = "1 : 10000"; key = "10000"; }
   }
}
: edit_box {
label = "Other scale    1  : ";
key = "newsc";
alignment = left;
edit_limit = 30;
edit_width = 10;
 fixed_width = true ; 
allow_accept = true ;
}
spacer_1;
ok_cancel_help;
spacer_1;
: errtile {
width = 34;
}
: text_part {
            label = " © 2015";
          key = "selection_msg";
alignment = right;
}
}
//DCL CODING ENDS HERE

( DEFUN C:SETSC1 ()
(setq dcl_id (load_dialog "setsc1.dcl"))
    (if (not (new_dialog "setsc1" dcl_id))
 (exit )
    );if
   (SETQ CURSC (getvar "useri1" ))
;    (setq newsc (getint "\nNew scale  1:"))
   (setvar "useri1" newsc)
     (setq a1 (getvar "useri1"))
)

(defun c:SETSC (/ dd dcl newsc pass)
;hanhphuc 07/01/2015 *happy new year*
 (if (and (setq fn (findfile [b]"[color="blue"]setsc[color="red"]1.dcl[/color][/color]"[/b])) (setq dcl (load_dialog fn))) ;_ end of and
   (progn (setq newsc (if (or (= "" (setq newsc(getvar "users1"))) (not (numberp (read newsc))))
                 "10"
                 newsc
                 ) ;_ end of if
         ) ;_ end of setq
   (new_dialog "setsc1" dcl)
   (set_tile "newsc" newsc)
          (set_tile newsc "1")
   (mapcar ''((x) (action_tile x "(set_tile "newsc" (get_attr $key "key"))"))
           '("10" "20" "50" "100" "200" "500" "1000" "2000" "5000" "10000")
           ) ;_ end of mapcar
   (action_tile "accept" "(setq newsc (get_tile "newsc"))(done_dialog dcl)")
   (setq dd (start_dialog))
   (if (setq pass(numberp (read newsc)))
     (setvar "users1" newsc)
     ) ;_ end of if
   (set_tile "newsc" newsc)
   ) ;_ end of progn
   ) ;_ end of if
 (unload_dialog dcl)
 (if (and (/= dd 0) pass)
   (alert (strcat "\nThe new print scale is 1: " newsc))
   ;(alert "Invalid :-( ")
   ) ;_ end of if
 (princ)
)

setsc1: dialog {
        label = "print scale";
: text_part {
            label = " ";
          key = "useri1";
alignment = left;
}
spacer_1;
: boxed_column {
    label = " scale ";
   : radio_column {
      : radio_button { label = "1 : 10"; key = "10"; }
      : radio_button { label = "1 : 20"; key = "20"; }
      : radio_button { label = "1 : 50"; key = "50"; }
      : radio_button { label = "1 : 100"; key = "100"; }
      : radio_button { label = "1 : 200"; key = "200"; }
      : radio_button { label = "1 : 250"; key = "250"; }
      : radio_button { label = "1 : 500"; key = "500"; }
      : radio_button { label = "1 : 1000"; key = "1000"; }
      : radio_button { label = "1 : 2000"; key = "2000"; }
      : radio_button { label = "1 : 5000"; key = "5000"; }
      : radio_button { label = "1 : 10000"; key = "10000"; }
   }
}
: edit_box {
label = "new scale    1  : ";
key = "newsc";
alignment = left;
edit_limit = 30;
edit_width = 10;
 fixed_width = true ; 
allow_accept = true ;
}
spacer_1;
ok_cancel_help;
spacer_1;
: errtile {
width = 34;
}
: text_part {
            label = " ©1.1-2015";
          key = "selection_msg";
alignment = right;
}
}
//DCL CODING ENDS HERE

(defun c:SETSC1 (/ dd dcl newsc pass)
 (if (and (setq fn (findfile "setsc1.dcl")) (setq dcl (load_dialog fn))) ;_ end of and
   (progn (setq newsc (if (or (= "" (setq newsc(getvar "users1"))) (not (numberp (read newsc))))
                 "10"
                 newsc
                 ) ;_ end of if
         ) ;_ end of setq
   (new_dialog "setsc1" dcl)
   (set_tile "newsc" newsc)
          (set_tile newsc "1")
   (mapcar ''((x) (action_tile x "(set_tile "newsc" (get_attr $key "key"))"))
           '("10" "20" "50" "100" "200" "500" "1000" "2000" "5000" "10000")
           ) ;_ end of mapcar
   (action_tile "accept" "(setq newsc (get_tile "newsc"))(done_dialog dcl)")
   (setq dd (start_dialog))
   (if (setq pass(numberp (read newsc)))
     (setvar "users1" newsc)
     ) ;_ end of if
   (set_tile "newsc" newsc)
   ) ;_ end of progn
   ) ;_ end of if
 (unload_dialog dcl)
 (if (and (/= dd 0) pass)
   (alert (strcat "\nThe new print scale is 1: " newsc))
   ;(alert "Invalid :-( ")
   ) ;_ end of if
 (princ)
)

(vl-load-com)
(vla-InsertBlock object InsertionPoint Name [color="red"](atof newsc) (atof newsc)[/color] 1.0 0.0 )
; example newsc applied to Xscale, Yscale in red.