[编程交流] 两个问题

[b][color=BLACK]([/color][/b]defun c:llen [b][color=FUCHSIA]([/color][/b]/ lay lin i dt ss en ed di dt[b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]while [b][color=NAVY]([/color][/b]or [b][color=MAROON]([/color][/b]not lay[b][color=MAROON])[/color][/b]
            [b][color=MAROON]([/color][/b]not [b][color=GREEN]([/color][/b]or [b][color=BLUE]([/color][/b]wcmatch lay [color=#2f4f4f]"*`**"[/color][b][color=BLUE])[/color][/b]
                     [b][color=BLUE]([/color][/b]wcmatch lay [color=#2f4f4f]"*`,*"[/color][b][color=BLUE])[/color][/b]
                     [b][color=BLUE]([/color][/b]tblsearch [color=#2f4f4f]"LAYER"[/color] lay[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
        [b][color=NAVY]([/color][/b]setq lay [b][color=MAROON]([/color][/b]strcase [b][color=GREEN]([/color][/b]getstring [color=#2f4f4f]"\nLAyer To Calulate:   "[/color][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]while [b][color=NAVY]([/color][/b]or [b][color=MAROON]([/color][/b]not lin[b][color=MAROON])[/color][/b]
            [b][color=MAROON]([/color][/b]not [b][color=GREEN]([/color][/b]or [b][color=BLUE]([/color][/b]wcmatch lin [color=#2f4f4f]"*`**"[/color][b][color=BLUE])[/color][/b]
                     [b][color=BLUE]([/color][/b]wcmatch lin [color=#2f4f4f]"*`,*"[/color][b][color=BLUE])[/color][/b]
                     [b][color=BLUE]([/color][/b]tblsearch [color=#2f4f4f]"LTYPE"[/color] lin[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
        [b][color=NAVY]([/color][/b]setq lin [b][color=MAROON]([/color][/b]strcase [b][color=GREEN]([/color][/b]getstring [color=#2f4f4f]"\nLType To Calulate:   "[/color][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
  [b][color=FUCHSIA]([/color][/b]and [b][color=NAVY]([/color][/b]setq i -1
            dt 0
            ss [b][color=MAROON]([/color][/b]ssget [color=#2f4f4f]"X"[/color] [b][color=GREEN]([/color][/b]list [b][color=BLUE]([/color][/b]cons 0 [color=#2f4f4f]"LINE"[/color][b][color=BLUE])[/color][/b]
                                [b][color=BLUE]([/color][/b]cons 6 lin[b][color=BLUE])[/color][/b]
                                [b][color=BLUE]([/color][/b]cons 8 lay[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
       [b][color=NAVY]([/color][/b]while [b][color=MAROON]([/color][/b]setq en [b][color=GREEN]([/color][/b]ssname ss [b][color=BLUE]([/color][/b]setq i [b][color=RED]([/color][/b]1+ i[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
              [b][color=MAROON]([/color][/b]setq ed [b][color=GREEN]([/color][/b]entget en[b][color=GREEN])[/color][/b]
                    di [b][color=GREEN]([/color][/b]distance [b][color=BLUE]([/color][/b]cdr [b][color=RED]([/color][/b]assoc 10 ed[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b]
                                 [b][color=BLUE]([/color][/b]cdr [b][color=RED]([/color][/b]assoc 11 ed[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]
                    dt [b][color=GREEN]([/color][/b]+ di dt[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
       [b][color=NAVY]([/color][/b]princ [b][color=MAROON]([/color][/b]strcat [color=#2f4f4f]"\nTotal Length Of LINEs on LAyer "[/color] lay
                      [color=#2f4f4f]" With LType "[/color] lin [color=#2f4f4f]" = "[/color] [b][color=GREEN]([/color][/b]rtos dt 2 4[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
  [b][color=FUCHSIA]([/color][/b]if [b][color=NAVY]([/color][/b]zerop dt[b][color=NAVY])[/color][/b]
      [b][color=NAVY]([/color][/b]alert [b][color=MAROON]([/color][/b]strcat [color=#2f4f4f]"No Entities Match The Criteria\n"[/color]
                      [color=#2f4f4f]"LAyer "[/color] lay [color=#2f4f4f]" - "[/color] [color=#2f4f4f]"LTYPE "[/color] lin[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
  [b][color=FUCHSIA]([/color][/b]prin1[b][color=FUCHSIA])[/color][/b][b][color=BLACK])[/color][/b]

(defun c:THblk (/ ss ents) 
;Tharwat 09.Septmber.2010  
(if
 (and
   (setq ss
       (ssget "_x" '((0 . "INSERT"))
        )) 
           (setq ents (sslength ss)))                
 (if
    (cond (
     (= ents 1)
        (alert (strcat " You have only" " " (itoa ents) " " " Block ...")
               )
    )
            (
             (> ents 1)
             (alert (strcat " You have" " " (itoa ents) " " " Blocks ..."))
             )
   )
   (princ)
   )        
   (alert " *** NO BLOCKS FOUND *** ")
 )
 (princ)
 )