[编程交流] 帮助DCL？

PICKETS : dialog {
label = "The Picket Spacing Machine!" ;
: row {
:boxed_column {
label = "ENTER DIMENSIONS EXACTLY";
:edit_box {
key="X";
label="What is your Dimension from Center to Center of Post?" ;
value=dst1;
edit_width=14;
alignment=centered;
}
:edit_box {
key="y" ;
label = "What is your Post Diameter";
value=pip1;
edit_width=14;
}                    
:edit_box {
key="z" ;
label = "What is your Picket size";
value=bar1;
edit_width=14;
}
:row {
:column {
width=10;
alignment=centered;
label="End Space 1";
:edit_box {
edit_width=6;
key="end1" ;
value=endr1;
}
}
:column {
width=3;}
:column {
width=10;
label="# of Spaces";
:edit_box {
edit_width=6;
key="sp";
value=num2;
}
}
:row {
:column{
width=15;
:text {key="tt" ; value="SPACES @";
alignment=centered;}}
}
:column {
width=10;
label="Space Size";
:edit_box {
edit_width=6;
key="sp2";
value=spa2;
}
}
:column {
width=3;}
:column {
width=10;
alignment=centered;
label="End Space 2";
:edit_box {
key="end2" ;
edit_width=6;
value=endr1
}
}
}
:row {
:boxed_column {
label="Written by Joe Barrett and Brandon DeLoach     <2009>" ;}
}
}
}
ok_cancel ;
}

(defun c:pickets (/ aa ab ac ad ae af ag cen2cen PostDia PickSize dst2 num1 d num2 spa1 y y1 y2 y3 y4
                spa2 dst3 endb endr1 endr2
               )
 ;; convert to a number & return (number & type)
 (defun GetNum (numstr / num typ)
   ;;  Returns a list of (<type of number> <number>) or nil
   ;;  must be tested in this order (4 2 1 5 3)
   ;;  if you use (1 2 3 4 5) you will not get any 2 4 or 5 results
   ;;  further test result in inconsistancies with 3&4 and 5 types
   ;;  Note that if the system units are set to Arch then Arch entries will return
   ;;  as type 2 numbers, else they will be type 4 numbers
   ;;  so I put type 4 ahead of type 2
   (cond ((setq num (distof numstr 2)) (setq typ 2))
         ((setq num (distof numstr 4)) (setq typ 4))
         ((setq num (distof numstr 1)) (setq typ 1))
         ((setq num (distof numstr 5)) (setq typ 5))
         ((setq num (distof numstr 3)) (setq typ 3))
   )
   (list typ num)
 )
 (defun GetTiles ()
   (and
     (setq cen2cen (cadr (GetNum (get_tile "c2c")))) ; DIMENSION FROM POST TO POST
     (setq PostDia (cadr (GetNum (get_tile "pdia")))) ; DIAMETER OF POST
     (setq PickSize (cadr (GetNum (get_tile "psize")))) ; PICKET SIZE
   )
 )
 ;;  calc & update
 (defun calc ()
   (if (and (GetTiles) cen2cen PostDia PickSize)
     (progn
       ;;(setq cen2cen (getdist "\nEnter Post to Post spacing : <>")) ;DIMENSION FROM POST TO POST
       ;;(setq PostDia (getdist "\nEnter Pipe Size in inches : <1.66>")) ;DIAMETER OF POST (DEFAULT 1.66)
       ;;(setq PickSize (getdist "\nEnter thickness of pickets : <0.5>")) ;PICKET SIZE (DEFAULT 0.5)
       (setq dst2 (+ (- cen2cen PostDia) PickSize))
         ;dst2 is the spacing of pickets less the pipe post
       (setq num1 (/ dst2 4)) ;num1 is the number of picket spaces @ exactly 4"
       (setq d (fix (+ num1 0.99))) ;d is the number of spaces needed to round up
       (setq num2 (- d 2)) ;num2 is the number of spacing for the middle of the rail
       (setq spa1 (/ dst2 d))
       (setq y (+ spa1 0.03125))
       (setq y1 (* y 32))
       (setq y2 (- y1 (rem y1 1)))
       (setq y3 (/ y2 2))
       (setq y4 (- y3 (rem y3 1)))
       (setq spa2 (/ y4 16)) ;spa2 is the picket space in the middle in 16ths.
       (setq dst3 (* spa2 num2)) ;dst3 is the middle dimension.
       ;;This is the number of spaces times the picket
       ;;spacing for the middle section.
       (setq endb (- cen2cen dst3))
       (setq endr1 (/ (* endb 16) 2))
       (setq endr2 (- endr1 (rem endr1 1)))
       (setq endr (/ endr2 16))
       (setq endl (- endb endr)) ;endl is the left end dimension minus
       ;;the right end dimension.
       ;;    INPUT
       ;; Post to Post spacing  =  cen2cen
       ;; Pipe size = PostDia
       ;; Picket size = PickSize
       ;;
       ;;     OUTPUT
       ;;Left space = endl
       ;;Right space = endr
       ;;Number of middle spaces = d
       ;;Dimension of middle space spaces = spa2
       ;;Dimension of middle space total = dst3
       ;;  Update the dialog box
       (set_tile "msg" "Data evaluation complete.")
       (set_tile "end1" (rtos endl 4 )
       (set_tile "end2" (rtos endr 4 )
       (set_tile "sp" (rtos d 2 0)) ; # of Spaces
       (set_tile "sp2" (rtos spa2 4 ) ; Space Size
     )
     (set_tile "msg" "Incomplete input or bad number.")
   )
 )
 (defun doit (dn)
   ;;  set actions to do when exiting these tiles
   (action_tile "c2c" "(calc)")
   (action_tile "pdia" "(calc)")
   (action_tile "psize" "(calc)")
   ;;  default values for these tiles
   (set_tile "pdia" "1.66")
   (set_tile "psize" "0.5")
   (start_dialog)
   (unload_dialog dn)
 )
 ;;--------------------------
 ;;  S T A R T   H E R E     
 ;;--------------------------
 (setq dclfile "Pickets.dcl"
       dclName "PICKETS"
 )
 (cond
   ;;((not (tm_create_dcl dclName)) (prompt (strcat "\nCannot create " dclfile ".")))
   ((< (setq dcl# (load_dialog dclfile)) 0)
    (prompt (strcat "\nCannot load " dclfile "."))
   )
   ((not (new_dialog dclName dcl#)) (prompt (strcat "\nProblem with " dclfile ".")))
   ((doit dcl#)) ; No DCL problems: fire it up
 )       ; end cond
 (princ)
)