Export linetype definition

[doni49]

I wrote a lisp routine that exports a linetype definition.  But all it's able to handle is SIMPLE LINETYPES.  I want to add the ability to export complex linetypes.  But I don't see the symbol definition anywhere in the ltype table.

((0 . "LTYPE") (2 . "SAN LINE") (70 . 0) (3 . "SANITARY line ----SAN----SAN----SAN----SAN----S") (72 . 65) (73 . 3) (40 . 0.9) (49 . 0.5) (49 . -0.2) (49 . -0.2))

;
;  Purpose:  Export Linetype Definition
;
;  Author:  Don Ireland
;
;  Version:  1.0 - Currently only exports simple linetypes.
;
(defun c:LTExport(/ dimzin file lt ltname n def)
  (setq dimzin(getvar "dimzin"))
  (defun *error* ()
    (setvar "dimzin" dimzin)
    (if f(close f))
    (setq *error* nil)
  )
  (setvar "dimzin" 12)
  (setq ltname (getstring "Enter Linetype Name:  "))
  (setq lt(tblsearch "ltype" ltname) n 6 def "A" )
  (repeat (cdr(assoc 73 lt))
    (setq def(strcat def "," (rtos (cdr(nth (setq n (1+ n)) lt)) 2 )))
  )
  (if (not file)(setq file 
    (getfiled 
      "Create Linetype File" ; <----------------------------Title of the file selection dialog 
      (strcat (getvar "dwgprefix") (cdr (assoc 2 lt))) ;  <-Default file to create
      "lin" ;  <--------------------------------------------Extension
      1 ; <-------------------------------------------------Tell AutoCAD to generate a new file
    )
  ))
  (setq f (open file "w"))
  (write-line 
    (strcat "*" (cdr (assoc 2 lt)) "," (cdr (assoc 2 lt)));String to write
    f
  )
  (write-line 
    def ;String to write
    f
  )
  (close f)
  (setvar "dimzin" dimzin)
  (setq *error* nil)
)

[paullimapa]

you can always try this linout.vlx 

https://www.cadforum.cz/en/dl_file.asp?ID=390

https://www.cadforum.cz/en/download.asp?fileID=390

[doni49]

I actually tried that before posting.  It just throws error messages.  A screenshot of the errors is attached.

[paullimapa]

could you share a sample dwg with the complex linetype you're trying to generate the definition?

[paullimapa]

have you tried new-lin.lsp:

PC: NEW-LIN lisp

[vladimir_michl]

This is a quite old version - please use the latest LINout from https://www.cadforum.cz/en/qaID.asp?tip=3958

The .LIN file is created in the same folder as your DWG so make sure it is not opened from a CD-ROM, a web site or anything like that.

Vladimir Michl, www.arkance.world  -  www.cadforum.cz

[doni49]

Thanks guys.

1. I just tried linout again -- this time using a file that started out completely blank with a line drawn using the linetype I was after.  It worked without error this time.  I guess I could always copy a line out to a blank file and THEN extract the linetype.
2. As far as posting a copy of the file I was using when I got the error message, I'm not sure now what file I was using.
3. I've never seen the "new-lin" lisp routine linked above.  So I've never tried it.
4. I'll try the new version that @vladimir_michl linked above.

[paullimapa]

You may want to try the "new-lin" lisp since that’s open source code.  If it works then you can compare the code with yours and see what’s missing 

[komondormrex]

hey,

try this demo to feed back to me is there is problems with linetypes. to see a linetype definition double click on a linetype name or its description. this is archived compiled custom lisp command. the command name is export_linetypes.

[john.uhden]

@doni49 ,

See if this helps you out...

(Please ignore the testing code.  Even delete it.)

[Sea-Haven]

@john.uhden just a little help for Bricscad the default lin is just that "Default.lin" you can check product name pretty easy. Then look for correct xxx.lin

(vlax-product-key)
"Software\\Bricsys\\BricsCAD\\V25x64\\en_US"

 So code should work in both software, not sure about others like Intellicad & Zwcad.