[编程交流] 需要代码帮助

(if (not (tblsearch "LTYPE" ltname))
(vla-load
(vla-get-Linetypes
(vla-get-ActiveDocument
(vlax-get-acad-object))) ltname "acadiso.lin"))

(setq file1 "acadiso.lin"
       file2 "custom_linetype.lin"
       file '(a b)
)

(defun c:test (/ )
 (vla-load
   (vla-get-Linetypes
     (vla-get-ActiveDocument
   (vlax-get-acad-object))) "newlntype" "X:\\newlinetypesfile.lin")
 )

;;; ------------------------------------------------------------------------
;;;    STDLIB_LOAD_LINETYPE.LSP
;;;
;;;    Copyright © December, 2008
;;;    Timothy G. Spangler
;;;
;;;    Permission to use, copy, modify, and distribute this software
;;;    for any purpose and without fee is hereby granted, provided
;;;    that the above copyright notice appears in all copies and
;;;    that both that copyright notice and the limited warranty and
;;;    restricted rights notice below appear in all supporting
;;;    documentation.
;;;
;;;    STDLIB_LOAD_LINETYPE
;;;
;;;                 Description:
;;;                        Called from a menu pulldown or rightclick menu
;;;                * (STDLIB_LOAD_LINETYPE <LINETYPE>)
;;;                <LINETYPE>                        =        STRING        =        Valid linetype
;;;
;;;                        Returns:
;;;                                T if found and loaded otherwise nil
;;;
;;; ------------------------------------------------------------------------
;;; MAIN FUNCTION ;;;;;;;;;;;;;;;;;;;;;;;;;
(defun STDLIB_LOAD_LINETYPE (Linetype / OldCmdEcho LineFiles FullFile Found OpenFile CurrentLine LinePath Result)
;; Set system variables
(setq OldCmdEcho (getvar "CMDECHO"))
(setvar "CMDECHO" 0)
;; Load linetype
(if (not (tblsearch "LTYPE" Linetype))
        (progn
                ;; Check each search path for a .lin file
                (foreach Path (STR->LIST (getenv "ACAD") ";")
                        (if (setq LineFiles (vl-directory-files Path "*.lin"))
                                (progn
                                        (foreach File LineFiles
                                                (setq FullFile (cons (strcat Path "\" File) FullFile))
                                        )
                                        (setq Found (cons Path Found))
                                )
                        )
                )
                ;; Read each line file found and check for the linetype
                (foreach LineFile FullFile
                        (setq OpenFile (open LineFile "r"))
                        (while (setq CurrentLine (read-line OpenFile))
                                (if (wcmatch (strcase CurrentLine) (strcat "*" (strcase LineType) "*"))
                                        (setq LinePath Linefile)
                                )
                        )
                        (close OpenFile)
                )
                ;; Load result
                (if LinePath        
                        (setq Result T)                                        
                        (setq Result nil)
                )
        )
)
(if Result
        ;(command "-linetype" "load" Linetype LinePath "")
        (vl-cmdf "-linetype" "load" Linetype LinePath "")
)
;; Reset system
(setvar "CMDECHO" OldCmdEcho)
;; Send Result
Result
)
(princ)

;;; ------------ STRING TO LIST SUB ROUTINE, CREATE A LIST FROM A STRING WITH DELIMETER
(defun STR->LIST (Stg Del / CurChr PosCnt TmpLst TmpStr NewTmpLst)
(setq PosCnt 1)
(setq TmpStr "")
(repeat (1+ (strlen Stg))
        (setq CurChr (substr Stg PosCnt 1))
        (if (= CurChr Del)
                (progn
                        (setq TmpLst (cons TmpStr TmpLst))
                        (setq TmpStr "")
                )
                (setq TmpStr (strcat TmpStr CurChr))
        )
        (setq PosCnt (1+ PosCnt))
)
(if (/= TmpStr "")
        (setq TmpLst (cons TmpStr TmpLst))
)
(setq NewTmpLst (reverse TmpLst))
NewTmpLst
)

 
(STDLIB_LOADLINETYPE "linetypename")

 
Command: (STDLIB_LOADLINETYPE "linetypename")
; error: no function definition: STDLIB_LOADLINETYPE

 
*ABC,LINEOFABC
A,25,-5,5,-5

 
*GAS,LINEOFGAS
A,25,-5,["G",standard,S=2,A=0,X=-.1,Y=-1],-5

(defun Sub_LTLoad (lTyp)
 (or (tblsearch "LTYPE" lTyp)
  (vla-load
   (vla-get-Linetypes
    (vla-get-ActiveDocument
     (vlax-get-acad-object)
    )
   ) 
   lTyp "acad.lin"
  )
 )
)

;; String Breaker by Lee McDonnell
(defun StrBrk (str chrc / pos lst)
 (while (setq pos (vl-string-position chrc str))
   (setq lst (cons (substr str 1 pos) lst)
         str (substr str (+ pos 2))))
 (reverse (cons str lst)))

(defun lt_load (ltname / StrBrk lt Path files lst)
 ;; String Breaker by Lee McDonnell
 (defun StrBrk (str chrc / pos lst)
   (while (setq pos (vl-string-position chrc str))
     (setq lst (cons (substr str 1 pos) lst)
           str (substr str (+ pos 2))))
   (reverse (cons str lst)))
 (setq lt (vla-get-linetypes (vla-get-ActiveDocument (vlax-get-acad-object))))
 (if (not (tblsearch "LTYPE" ltname))
   (progn
     (foreach Path (vl-remove "" (StrBrk (getenv "ACAD") 59))
       (and (setq files (vl-directory-files Path "*.lin" 1))
            (setq lst   (append lst (mapcar (function (lambda (x) (strcat Path "\" x))) files)))))
     (foreach file lst
       (vl-catch-all-apply 'vla-load (list lt ltname file)))))
 (and (tblsearch "LTYPE" ltname)))