[编程交流] 环虽然

;Version 1.02
(defun C:bd(/ width depth membr suffix suffixs prx tsz dpth wdth label label2 label1)
(setq     lsttsz ' ("11x17" "24x36")
         lstmembr '("Flush Beam" "Header/Drop Beam")
         lstprx '("1 ply" "2 ply" "3 ply")
         lstwidth '("1.5" "1.75" "3" "3.5" "4.5" "5.25" "7" "2.5")
         lstdepth '("5.5" "6" "7.25" "8" "9.25" "9.5" "10" "11.25" "11.875" "12" "14" "16" "18" "24")
         lstsuffix '("PSL" "LVL" "LSL")
  lstsuffixs '("FRB" "UWA" "UCA" "nothing"));end setq
(or tsz (setq tsz (car lsttsz))) 
(or membr (setq membr (car lstmembr)))
(or prx (setq prx (car lstprx)))
(or width (setq width (car lstWidth)))
(or depth (setq depth (car lstDepth)))
(or suffix (setq suffix (car lstsuffix)))
(or suffixs (setq suffixs (car lstsuffixs)))
(setq dcl_id (load_dialog "beam.dcl"))                      
(if (not (new_dialog "beam" dcl_id)) (exit))                        
   (progn
       (set_tile tsz "1")
       (set_tile membr "1")
       (set_tile prx "1")
       (set_tile width "1")
       (set_tile depth "1")
       (set_tile suffix "1")
       (set_tile suffixs "1")
     (action_tile "tsz" "(setq tsz $value)")
     (action_tile "membr" "(setq membr $value)")
     (action_tile "prx" "(setq prx $value)")
     (action_tile "width" "(setq width $value)")
     (action_tile "depth" "(setq depth $value)")
     (action_tile "suffix" "(setq suffix $value)")
     (action_tile "suffixs" "(setq suffixs $value)"));end progn
       (start_dialog)
       (unload_dialog dcl_id)
;;;----set variables -------------------------------------
 ;(setvar expert 1)
 (setq layerset (getvar "clayer")
orthoset (getvar "orthomode")
polyset  (getvar "plinewid")
);setq
;------------What size text for border  -------------------
(if(= tsz "11x17") (setq tsz1 "6"))
(if(= tsz "24x36")(setq tsz1 "4.5"))
;------------Which layer it draws the beam on-------------------
(if(= membr "Flush Beam") (setq layer_name "S-FRM-BEAM"))
(if(= membr "Header/Drop Beam")(setq layer_name "S-FRM-HEADER"))
 (command "expert" "1" "")
;-------------Creat layers for beam-------------------------------  
(command "_.layer" "M" layer_name "c" "12" layer_name "S" layer_name "")
;-----------------draw beams -------------------------  
 (command "pline" pause "w" width width pause "")
;----------change thickness of polyline----------------  
 (command "chprop" "l" "" "t" depth "")
;----------change text size and style-------------------  
   (command "textsize" tsz1 "")
(command "_.style" "romans" "romans" "0" "0.80" "" "" "" "")
;-------------Creat layers for text-------------------------------  
(command "_.layer" "M" "S-ANNO-TEXT" "c" "1" "S-ANNO-TEXT" "S" "S-ANNO-TEXT" "")
(and (setq ss (ssget "L" '((0 . "*polyline"))))
       (while (setq en (ssname ss 0))
           (setq ed (entget en))
           (setq p10 (cdr (assoc 10 ed)))
           (setq p9 (reverse ed))
           (setq p11 (cdr (assoc 10 p9)))
          (setq mpt (mapcar '(lambda (a b) (* (+ a b) 0.5)) p10 p11))
           (setq ltype (cdr (cond
    ((assoc 6 ed)))))
           (setq dpth (cdr (cond
    ((assoc 39 ed)))))
           (setq wdth (cdr (cond
    ((assoc 40 ed)))))
;---------How many plys the member has----------
(cond 
    ((= prx "1 ply") (and (< width "1.75")(setq label2 "")))
    ((= prx "2 ply")(setq label2 "2~"))
    ((= prx "3 ply")(setq label2 "3~")));end cond
;----------Width of the member---------       
(cond
    ((= wdth 1.5)(setq label "2x"
      suffix ""))
    ((= wdth 1.75)(setq label "1.75x"))
    ((= wdth 2.5)(setq label "I-JOIST/BEAM"
                     label2 ""
       dpth 0
       suffix ""))
    ((= wdth 3)(setq label "2x"
     suffix "" ))       
    ((= wdth 3.5)(setq label "3.5x"
       label2 ""))
    ((= wdth 4.5)(setq label "2x"
       suffix ""))
    ((= wdth 5.25)(setq label "5.25x"
        label2 ""))
    ((= wdth 7)(setq label "7x"
     label2 "")));end cond
;----------Depth of the Member-------------       
(cond
 ((= dpth 5.5)(setq label1 (rtos dpth 2 1)))
 ((= dpth 6)(setq label1 (rtos dpth 2 0)))
 ((= dpth 7.25)(setq label1 (rtos dpth 2 2)))
 ((= dpth 9.25)(setq label1 (rtos dpth 2 2)))
 ((= dpth 9.5)(setq label1 (rtos dpth 2 1)))
 ((= dpth (setq label1 (rtos dpth 2 0)))
 ((= dpth 10)(setq label1 (rtos dpth 2 0)))
 ((= dpth 11.25)(setq label1 (rtos dpth 2 2)))
 ((= dpth 12)(setq label1 (rtos dpth 2 0)))
 ((= dpth 11.875)(setq label1 (rtos dpth 2 3)))
 ((= dpth 14)(setq label1 (rtos dpth 2 0)))
 ((= dpth 16)(setq label1 (rtos dpth 2 0)))
 ((= dpth 18)(setq label1 (rtos dpth 2 0)))
 ((= dpth 24)(setq label1 (rtos dpth 2 0)))       
 ((= dpth 0)(setq label1 "")));end cond
 (defun radians->degrees (r)(cvunit r "radian" "degree"))
;-------TEXT JUSTIFICATION----------------------------------------     
(setq lan (angle p10 p11))
      (setq ad (radians->degrees lan))
      (if (and (> ad 90.1) (<= ad 270.1)) 
        (progn
          (setq ptemp p10
                p10 p11
                p11 ptemp
                lan (angle p10 p11)  
                ad (radians->degrees lan))))
      (setq dir (if (< (* pi 0.5) lan (* pi 1.5)) - +))
                  (setq r3(entmake (list (cons 0 "TEXT")
                          (cons 8 (getvar "CLAYER"))
                          (cons 7 (getvar "TEXTSTYLE"))
                          (cons 40 (getvar "TEXTSIZE"))
                          (cons 41 0.80)
     (cons 72 4)
            (setq fg(cons 10 ' (0.0 0.0)));(setq r1(polar mpt (dir lan (+ 1))
                                   ;(getvar "TEXTSIZE")))))
                          (setq hg(cons 11 (setq r2(polar mpt (dir lan (* 0.5 pi));(+ 1))
                                  (+ (* 0.5 (atof width)) (* 0.8 (getvar "TEXTSIZE")))))))
                          (setq gg(cons 50 lan))
                         (setq rg(cons 1 (strcat label2 label label1 suffix suffixs))))))
                  (ssdel en ss)))
;---------------------reset vars-----------
(setvar "clayer" layerset)
(setvar "orthomode" orthoset)  
(setvar "plinewid"  polyset)
(command "expert" "0" "") 
 (princ)
)

beam : dialog {
label = "Pick a Member";
     : row {
       : boxed_radio_row {key = "tsz";
         label = "Text Size";
         : radio_button {
           label = "11x17";
           key = "11x17";
         }
         : radio_button {
           label = "24x36";
           key = "24x36";
           }}} 
     : row {
       : boxed_radio_row {key = "membr";
         label = "Member";
         : radio_button {
           label = "Flush Beam";
           key = "Flush Beam";
         }
         : radio_button {
           label = "Header/Drop Beam";
           key = "Header/Drop Beam";
           }}}
            : row {
       : boxed_radio_row {key = "prx";
         label = "Preffix";
         : radio_button {
           label = "1 Ply";
           key = "1 ply";
         }
         : radio_button {
           label = "2 Ply";
           key = "2 ply";
         }
         : radio_button {
           label = "3 Ply";
           key = "3 ply";
         }}}
     : row {
       : boxed_radio_row {key = "width";
         label = "Width";
          : radio_button {
           label = "1.5 (SGL 2x)";
           key = "1.5";
         }
         : radio_button {
           label = "1.75";
           key = "1.75";
         }
           : radio_button {
           label = "3 (DBL 2x)";
           key = "3";
         } 
         : radio_button {
           label = "3.5";
           key = "3.5";
         }
          : radio_button {
           label = "4.5 (TPL 2x)";
           key = "4.5";
         }
         : radio_button {
           label = "5.25";
           key = "5.25";
         }
         : radio_button {
           label = "7";
           key = "7";
         }
         : radio_button {
           label = "I-JOIST/BEAM";
           key = "2.5";
         }}}
      : row {
       : boxed_radio_row {key = "depth";
         label = "Depth";
         : radio_button {
           label = "5.5";
           key = "5.5";
         }
          : radio_button {
           label = "2x6";
           key = "6";
         }
         : radio_button {
           label = "7.25";
           key = "7.25";
         }
          : radio_button {
           label = "2x8";
           key = "8";
         }
         : radio_button {
           label = "9.25";
           key = "9.25";
         }
          : radio_button {
           label = "9.5";
           key = "9.5";
         }
          : radio_button {
           label = "2x10";
           key = "10";
         }
         : radio_button {
           label = "11.25";
           key = "11.25";
         }
         : radio_button {
           label = "11.875";
           key = "11.875";
         }
          : radio_button {
           label = "2x12";
           key = "12";
         }          
         : radio_button {
           label = "14";
           key = "14";
         }
         : radio_button {
           label = "16";
           key = "16";
         }
         : radio_button {
           label = "18";
           key = "18";
         }
          : radio_button {
           label = "24";
           key = "24";
         }}}
    : row {
       : boxed_radio_row {key = "suffix";
         label = "Suffix";
         : radio_button {
           label = "PSL";
           key = " PSL";
         }
         : radio_button {
           label = "LVL";
           key = " LVL";
         }
         : radio_button {
           label = "LSL";
           key = " LSL";
         }
         }}
  : row {
       : boxed_radio_row {key = "suffixs";
         label = "Suffixs";
         : radio_button {
           label = "FRB";
           key = " FRB";
         }
           : radio_button {
           label = "UWA";
           key = " UWA";
         }
         : radio_button {
           label = "UCA";
           key = " UCA";
         }
         : radio_button {
           label = "NOTHING";
           key = "";
         }
         }}
     : row {
       : button {
         label = "&OK";
         key = "accept";       
         fixed_width = true;
         is_default = true;
         alignment = centered;
       }  
       : button {
         label = "&Cancel";
         key = "cancel";        
         fixed_width = true;
         is_cancel = true;
         alignment = centered;
       }}
     : paragraph {
      :text_part {
      label = "PTS Inc.";
      alignment = centered;       
      }
       :text_part {
      label = "Version 1.02";
      alignment = centered;       
      }}
}

(while condition
 operation1
 operation2
 ...
 operationN
)

([color=BLUE]defun[/color] c:test1 ( [color=BLUE]/[/color] e i n s x )
   ([color=BLUE]if[/color] ([color=BLUE]setq[/color] s ([color=BLUE]ssget[/color]))
       ([color=BLUE]progn[/color]
           ([color=BLUE]setq[/color] i 0
                 n ([color=BLUE]sslength[/color] s)
           )
           ([color=BLUE]while[/color] ([color=BLUE]<[/color] i n)
               ([color=BLUE]setq[/color] e ([color=BLUE]ssname[/color] s i)
                     x ([color=BLUE]cdr[/color] ([color=BLUE]assoc[/color] 0 ([color=BLUE]entget[/color] e)))
                     i ([color=BLUE]1+[/color] i)
               )
               ([color=BLUE]print[/color] x)
           )
       )
   )
   ([color=BLUE]princ[/color])
)

5