[编程交流] LISP自动加载gro

(defun C:llt()
(command "-linetype" "l" "cen*" "acadiso.lin" "")
(command "-linetype" "l" "hid*" "acadiso.lin" "")
(princ)
)

(defun c:llt()
(setq a "Center")
 (if (= (tblsearch "ltype" a) nil)  
      (command "-linetype" "l" a "acadiso.lin" "")
            (princ))
(setq b "Center2")
 (if (= (tblsearch "ltype" b) nil)  
      (command "-linetype" "l" b "acadiso.lin" "")
            (princ))
(setq c "Centerx2")
 (if (= (tblsearch "ltype" c) nil)  
      (command "-linetype" "l" c "acadiso.lin" "")
            (princ))
(setq d "Hidden")
 (if (= (tblsearch "ltype" d) nil)  
      (command "-linetype" "l" d "acadiso.lin" "")
            (princ))
(setq e "Hidden2")
 (if (= (tblsearch "ltype" e) nil)  
      (command "-linetype" "l" e "acadiso.lin" "")
            (princ))
(setq f "Hiddenx2")
 (if (= (tblsearch "ltype" f) nil)  
      (command "-linetype" "l" f "acadiso.lin" "")
            (princ))
(princ)
)

(defun c:llt()
 (foreach lt '("Center" "Center2" "Centerx2" "Hidden" "Hidden2" "Hiddenx2")
   (if(not(tblsearch "ltype"lt))
     (command "_.-linetype" "_l" lt "acadiso.lin" "")
     ); end if
   ); end foreach
 (princ)
 ); end of c:llt

 
;Tip1684:   LTXT.LSP      Linetype Generator     (c)2001, Darren Marker
(defun
    C:LTXT ()
 (setvar "cmdecho" 0)
 (setq V:CLAYER (getvar "clayer"))
 (setq V:EXPERT (getvar "expert"))
 (if (not V:LINET)
   (setq V:LINET "XX")
 ) ;_ end of if
 (setq V:LINET_X
        (getstring
          (strcat
            "\n \n \nEnter line text: <"
            V:LINET
            ">"
          ) ;_ end of strcat
        ) ;_ end of getstring
 ) ;_ end of setq
 (if (/= V:LINET_X "")
   (setq V:LINET (strcase V:LINET_X))
 ) ;_ end of if
 (setq V:LINET (strcase V:LINET))
 (LT_MAKER)
) ;_ end of defun
(defun
    LT_MAKER ()
 (setvar "expert" 4)
 (setq V:LINET_L (strlen V:LINET))
 (setq V:LINET_W (rtos (* V:LINET_L 0.1) 2 1))
 (setq V:LT_FILE "c:\\temp\\lt_temp.lin")
 (setq V:LT_VAR1 (open V:LT_FILE "w"))
 (setq V:LT_TEXTL1
        (strcat
          "*" V:LINET "," V:LINET "----" V:LINET "----" V:LINET "----"
          V:LINET
         ) ;_ end of strcat
 ) ;_ end of setq
 (setq V:LT_TEXTL2
        (strcat
          "A,5.5,-1.5,["
          (chr 34)
          V:LINET
          (chr
            34
          ) ;_ end of chr
          ",SIMPLEX,S=0.1,R=0.0,X=-1.25,Y=-0.25],-"
          V:LINET_W
        ) ;_ end of strcat
 ) ;_ end of setq
 (setq V:LT_VAR2 (write-line V:LT_TEXTL1 V:LT_VAR1))
 (setq V:LT_VAR3 (write-line V:LT_TEXTL2 V:LT_VAR1))
 (close V:LT_VAR1)
 (command "-linetype" "l" V:LINET V:LT_FILE "")
 (setvar "expert" V:EXPERT)
 (command ".celtype" V:LINET)
 (princ
   (strcat
     "\n \n \nCurrent Layer -"
     (getvar
       "clayer"
     ) ;_ end of getvar
   ) ;_ end of strcat
 ) ;_ end of princ
 (princ)
 (princ
   (strcat
     "\n \n \nCurrent Entity linetype set to:"
     V:LINET
   ) ;_ end of strcat
 ) ;_ end of princ
 (princ)
 (setq V:PNT1 (getpoint "\nPick start point:"))
 (command ".line" V:PNT1)
 (while
   (setq V:PT
          (getpoint
            (getvar "lastpoint")
            "\nNext point 
            or <Return to
            terminate>:"
          ) ;_ end of getpoint
   ) ;_ end of setq
    (command V:PT)
 ) ;_ end of while
 (command)
 (command)
 (setvar "celtype" "bylayer")
 (princ)
 (princ
   "\n \nLine-Text terminated.  Linetype set to 
            BYLAYER:"
 ) ;_ end of princ
 (princ)
) ;_ end of defun
(princ)
(princ " Line-Text Loaded...")
(princ)
(princ
 (strcat
   "\n \n"
   (chr 34)
   "LTXT"
   (chr 34)
   " to 
            execute:"
 ) ;_ end of strcat
) ;_ end of princ
(princ)