Adesu
Joined: 20 Jul 2005
Posts: 31
|
 Posted:
Mon Oct 17, 2005 6:42 am Post subject:
Re: Load Linetypes w/ Vlisp |
|
|
| Jonathan wrote: | To the Experts:
How does one load linetypes from a *.lin file, with visual lisp?
Thanks. |
Hi Jonathan,are you want load linetype,here my code to load alls load
| Code: |
; ltl is stand for line type load
; Design by ade suharna <mteybid@yuasabattery.co.id>
; 14 April 2005
; Program no.227/04/2005
; Edit by Adesu 30/09/2005 1).
; 17/10/2005 2).
(defun c:ltl (/ lin)
(setq lin "C:/Program Files/AutoCAD 2004/Support/acad.lin") ; for acad 2004
;(setq lin "c:/Auto Cad 2000/support/acad.lin") ; for acad 2000
(setq ltyp "dashed") ; 2).
(if ; 1).
(not (tblsearch "ltype" ltyp)) ; 1).
(command "_linetype" "l" "*" lin "")
(alert (strcat "\nStyle name of " ltyp " still exist")) ; 1).
)
(princ)
)
|
|
|
FAQ
Memberlist
Register
Profile
Log in to check your private messages
Log in
