Jump to content

Error convert lsp to vlx

vnanhvu

By vnanhvu
in AutoLISP, Visual LISP & DCL

 Share

Recommended Posts

vnanhvu Enthusiast

vnanhvu

Posted
Posted (edited)

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
       )
     )
   )

:o

MISS : ; error: malformed list on input

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

Edited by rkmcswain
added CODE tags
Tharwat Grand Master

Tharwat

Posted
Posted

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

rkmcswain Grand Master

rkmcswain

Posted
Posted
WHY I CANT CONVERT LISP LAYERMAKER OF LEEMAC TO VLX !

You are missing a closing parenthesis at the end of the code.

 

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

Lee Mac Grand Master

Lee Mac

Posted
Posted

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?

BlackBox Grand Master

BlackBox

Posted
Posted

:EatingPopcorn: :WatchingIntently: :unsure:

 

:P

pBe Grand Master

pBe

Posted
Posted
vnanhvu,

 

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

 

Now THAT! is the question. :)

alanjt Grand Master

alanjt

Posted
Posted
:EatingPopcorn: :WatchingIntently: :unsure:

 

:P

 

azn.gif

 

popcorn.gif

BlackBox Grand Master

BlackBox

Posted
Posted
[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? :huh:

 

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. :oops:

vnanhvu Enthusiast

vnanhvu

Posted
  • Author
Posted

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

Tharwat Grand Master

Tharwat

Posted
Posted

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

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

BlackBox Grand Master

BlackBox

Posted
Posted
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. :oops:

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Unfortunately, your content contains terms that we do not allow. Please edit your content to remove the highlighted words below.
Reply to this topic...

×   Pasted as rich text.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
 Share
Go to topic listing
×
×
  • Create New...