Error convert lsp to vlx

WHY I CANT CONVERT LISP LAYERMAKER OF LEEMAC TO VLX !

CODE :

(defun c:1000 nil (vl-load-com)  
 ;; © Lee Mac 2010

 ;;----------------------------------------------------------------------------------------------;;
 ;; Specifications:                                                                              ;;
 ;;----------------------------------------------------------------------------------------------;;
 ;; Description         Data Type       Remarks                                                  ;;
 ;;----------------------------------------------------------------------------------------------;;
 ;; Layer Name          STRING          Only standard chars allowed.                             ;;
 ;; Layer Colour        INTEGER         may be nil, -ve for Layer Off, Colour < 256              ;;
 ;; Layer Linetype      STRING          may be nil, If not loaded, CONTINUOUS.                   ;;
 ;; Layer Lineweight    REAL            may be nil, negative=Default, otherwise 0 <= x <= 2.11   ;;
 ;; Plot?               BOOLEAN         T = Plot Layer, nil otherwise                            ;;
 ;; Bit Flag            INTEGER         0=None, 1=Frozen, 2=Frozen in VP, 4=Locked               ;;
 ;; Description         STRING          may be nil for no description                            ;;
 ;;----------------------------------------------------------------------------------------------;;
 ;; Function will print list detailing any unsuccesful layers                                    ;;
 ;;----------------------------------------------------------------------------------------------;;
 
 (
   (lambda ( lst )
     (mapcar 'print
       (vl-remove-if 'cdr
         (mapcar
           (function
             (lambda ( x )
               (and (caddr x) (LM:LoadLinetype (caddr x))) (cons (car x) (apply 'MakeLayer x))
             )
           )
           lst
         )
       )
     )
   )
  '(
   ;  Name                 Colour   Linetype    Lineweight Plot? Bitflag  Description 
   ( "COT"                      2  "CONTINUOUS"     0.4       T      0      nil  )
   ( "CUA"                     151  "CONTINUOUS"    0.13       T      0      nil  )
   ( "CUA2"                    157  "CONTINUOUS"    0.13       T      0      nil  )
   ( "DIEN"                    30  "CONTINUOUS"     0.3       T      0      nil  )
   ( "DUONGDIEN"               227  "ÑIEÄN"         0.13       T      0      nil  )
   ( "DUONGNUOC"               38  "NÖÔÙC"          0.13       T      0      nil  )
   ( "DUONGRANHGIOI"           16  "NÖÔÙC"          0.13       T      0      nil  )
   ( "DUONGNUOC"               227  "NÖÔÙC"         0.13       T      0      nil  )
   ( "GACH"                    69  "CONTINUOUS"     0.09       T      0      nil  )
   ( "GACH2"                   73  "CONTINUOUS"     0.09       T      0      nil  )
   ( "GHICHU"                  16  "CONTINUOUS"     0.13       T      0      nil  )
   ( "HATCH"                   177 "CONTINUOUS"     0.09       T      0      nil  )
   ( "HTUONG"                  26  "CONTINUOUS"     0.09       T      0      nil  )
   ( "KHONGIN"                 2  "CONTINUOUS"      0.13       nil      0      nil  )
   ( "KICHTHUOC"               206  "CONTINUOUS"    0.09       T      0      nil  )
   ( "KYHIEU"                  146  "CONTINUOUS"    0.13       T      0      nil  )
   ( "KYHIEU2"                 145  "CONTINUOUS"    0.13       T      0      nil  )
   ( "MAI"                     45  "CONTINUOUS"     0.13       T      0      nil  )
   ( "NETCAT"                  7  "CONTINUOUS"      0.4       T      0      nil  )
   ( "NETCAT2"                 253  "CONTINUOUS"    0.3       T      0      nil  )
   ( "NETKHUAT"                252  "HIDDEN"        0.09       T      0      nil  )
   ( "NETTHAY"                 67  "CONTINUOUS"     0.18       T      0      nil  )
   ( "NETVIEN"                 44  "CONTINUOUS"     0.3       T      0      nil  )
   ( "NUOC"                    150  "CONTINUOUS"    0.13       T      0      nil  )
   ( "NUOCMUA"                 53  "NUOCMUA2"       0.13       T      0      nil  )
   ( "NUOCTHAI"                35  "NUOCTHAI3"      0.13       T      0      nil  )
   ( "SOTRUC"                  9  "CONTINUOUS"      0.13       T      0      nil  )
   ( "TBWC"                    23  "CONTINUOUS"     0.13       T      0      nil  )
   ( "TRUC"                    251  "DASHDOT"       0.09       T      0      nil  )
   ( "VATDUNG"                 25  "CONTINUOUS"     0.09       T      0      nil  )
   ( "VATDUNG2"                21  "CONTINUOUS"     0.09       T      0      nil  )
   ( "VUWIP"                   210  "."             0.09       T      0      nil  )
   ( "XREF"                    137  "CONTINUOUS"    0.09       T      0      nil  )
   )
 )
 (princ)
)

(defun MakeLayer ( name colour linetype lineweight willplot bitflag description )
 ;; © Lee Mac 2010
 (or (tblsearch "LAYER" name)
   (entmake
     (append
       (list
         (cons 0 "LAYER")
         (cons 100 "AcDbSymbolTableRecord")
         (cons 100 "AcDbLayerTableRecord")
         (cons 2  name)
         (cons 70 bitflag)
         (cons 290 (if willplot 1 0))
         (cons 6
           (if (and linetype (tblsearch "LTYPE" linetype))
             linetype "CONTINUOUS"
           )
         )
         (cons 62 (if (and colour (< 0 (abs colour) 256)) colour 7))
         (cons 370
           (if (minusp lineweight) -3
             (fix
               (* 100
                 (if (and lineweight (<= 0.0 lineweight 2.11)) lineweight 0.0)
               )
             )
           )
         )
       )
       (if description
         (list
           (list -3
             (list "AcAecLayerStandard" (cons 1000 "") (cons 1000 description))
           )
         )
       )
     )
   )
 )
)

;;--------------------=={ Load Linetype }==-------------------;;
;;                                                            ;;
;;  Attempts to load a specified linetype from any linetype   ;;
;;  definition files (.lin) found in the ACAD Support Path    ;;
;;------------------------------------------------------------;;
;;  Author: Lee Mac, Copyright © 2011 - [url]www.lee-mac.com[/url]       ;;
;;------------------------------------------------------------;;
;;  Arguments:                                                ;;
;;  lt - name of linetype to load                             ;;
;;------------------------------------------------------------;;
;;  Returns:  T if linetype loaded successfully, else nil     ;;
;;------------------------------------------------------------;;

(defun LM:LoadLinetype ( lt ) (vl-load-com)
 ;; © Lee Mac 2010
 
 (cond
   ( (tblsearch "LTYPE" lt) )
   ( (progn
       (or acdoc (setq acdoc (vla-get-ActiveDocument (setq acapp (vlax-get-acad-object)))))
       (or aclts (setq aclts (vla-get-Linetypes acdoc)))

       (vl-some
         (function
           (lambda ( file )
             (vl-catch-all-apply 'vla-load (list aclts lt file))
             (and (tblsearch "LTYPE" lt))
           )
         )
         (setq *LineTypeDefs*
           (cond
             ( *LineTypeDefs* )
             (
               (apply 'append
                 (mapcar '(lambda ( directory ) (vl-directory-files directory "*.lin" 1))
                   (LM:str->lst
                     (vla-get-SupportPath (vla-get-Files (vla-get-Preferences acapp))) ";"
                   )
                 )
               )
             )
           )
         )
       )
     )
   )
 )  
)

;;-------------------=={ String to List }==-------------------;;
;;                                                            ;;
;;  Separates a string into a list of strings using a         ;;
;;  specified delimiter string                                ;;
;;------------------------------------------------------------;;
;;  Author: Lee Mac, Copyright © 2011 - [url]www.lee-mac.com[/url]       ;;
;;------------------------------------------------------------;;
;;  Arguments:                                                ;;
;;  str - string to process                                   ;;
;;  del - delimiter by which to separate the string           ;;
;;------------------------------------------------------------;;
;;  Returns:  A list of strings                               ;;
;;------------------------------------------------------------;;

(defun LM:str->lst ( str del / pos )
 ;; © Lee Mac 2010
 (if (setq pos (vl-string-search del str))
   (vl-remove "" (cons (substr str 1 pos) (LM:str->lst (substr str (+ pos 1 (strlen del))) del)))
   (list str)
 )
)






(
   (lambda ( lst / lts ) (setq lts (vla-get-Linetypes (vla-get-ActiveDocument (vlax-get-acad-object))))
     (mapcar 'cons (mapcar 'car lst)
       (mapcar
         (function
           (lambda ( x )
             (and (caddr x)
               (or (tblsearch "LTYPE" (caddr x))
                 (vl-catch-all-apply 'vla-load (list lts (caddr x) "acadiso.lin"))
               )
             )
             (apply 'MakeLayer x)
           )
         )
         lst
       )
     )
   )

MISS : ; error: malformed list on input

; Compilation aborted: Fatal errors found!!!!!

You should ask the owner of that Lisp for a permission , before you make any bit of a thing to it .

Please use

 tags. [/b]

WHY I CANT CONVERT LISP LAYERMAKER OF LEEMAC TO VLX !

You should ask the owner of that Lisp for a permission , before you make any bit of a thing to it .

I think he is OK with regard to permission. See: http://lee-mac.com/terms.html

Thanks rkmcswain for the clarification .

vnanhvu,

Why did you copy this part:

(
 (lambda ( lst / lts ) (setq lts (vla-get-Linetypes (vla-get-ActiveDocument (vlax-get-acad-object))))
   (mapcar 'cons (mapcar 'car lst)
     (mapcar
       (function
         (lambda ( x )
           (and (caddr x)
             (or (tblsearch "LTYPE" (caddr x))
               (vl-catch-all-apply 'vla-load (list lts (caddr x) "acadiso.lin"))
             )
           )
           (apply 'MakeLayer x)
         )
       )
       lst
     )
   )
 )

To the end of the code?

Also, I'm curious as to why you wish to compile this code to a VLX?

:EatingPopcorn: :WatchingIntently:

vnanhvu,

 

Also, I'm curious as to why you wish to compile this code to a VLX?

Now THAT! is the question.

:EatingPopcorn: :WatchingIntently:

 

Is it Scary for you baby ?

What's the big deal?

[ATTACH]27664[/ATTACH]

I originally wanted to hop over to the lilly pond and post that clip, but I didn't want to presume that I had permission to do so.

Separately, I've asked Mark if I might have a small user folder there, but no response (or folder).

What's the big deal?

No biggie... I simply suspected that your two earlier questions would evoke some interesting responses (as they have in the past).

I didn't intend to derail the thread, Lee ~ Room full of boys.

Im a new member,i failure to writing. I will fix it again later!

I guess the performance and the reaction is almost like that guy who's been asking for routines and has lots of accounts !

I forgot his username .but I am sure that Renderman remember that name .

Im a new member,i failure to writing. I will fix it again later!

Hi Vnanhvu,

I do hope I've not scared you off, as we are here to help.

I was just being silly; I apologize.