Moving a linetype to a layer
CADForums.net Forum Index CADForums.net
Discussion of AutoCAD and other CAD software.
 
 FAQFAQ   MemberlistMemberlist     RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 
 
Moving a linetype to a layer
Post new topic   Reply to topic    CADForums.net Forum Index -> Customization

Author Message
psilzle
Guest
Posted: Wed Nov 30, 2005 9:10 pm    Post subject: Moving a linetype to a layer Reply with quote
How would I write a lisp to move a certin linetype (centerx2) to a
layer (bendlines). I have a customer that is sending in drawings that
have lines that I want to move to our layer. I have the lisp written
to create the layer, I now need to move just the centerx2 linetype to
the layer bendline.

Any help?

Thanks,

Paul Silzle

Back to top
Adesu



Joined: 20 Jul 2005
Posts: 32
Posted: Thu Dec 01, 2005 1:13 am    Post subject: Re: Moving a linetype to a layer Reply with quote
psilzle wrote:
How would I write a lisp to move a certin linetype (centerx2) to a
layer (bendlines). I have a customer that is sending in drawings that
have lines that I want to move to our layer. I have the lisp written
to create the layer, I now need to move just the centerx2 linetype to
the layer bendline.

Any help?

Thanks,

Paul Silzle


Hi Paul,here my code to change object linetype as your layer
Code:

(defun c:clol (/ ss ssl cnt opt ssn sse clay)
  (setq ss (ssget "x" '((6 . "CENTERX2"))))
  (setq ssl (sslength ss))
  (setq cnt 0)
  (setq opt (getstring "\nEnter new name of layer<bendlines>: "))
  (if (= opt "")(setq opt "bendlines"))
  (repeat
    ssl
    (setq ssn (ssname ss cnt))
    (setq sse (entget ssn))
    (setq clay (cdr (assoc 8 sse)))
    (entmod (subst (cons 8 opt)(assoc 8 sse) sse))
    (setq cnt (1+ cnt))
    )
  (princ)
  )
Back to top
View user's profile Send private message
psilzle
Guest
Posted: Fri Dec 02, 2005 9:10 pm    Post subject: Re: Moving a linetype to a layer Reply with quote
Thank you!!!!

Paul Silzle
Back to top
Adesu



Joined: 20 Jul 2005
Posts: 32
Posted: Wed Dec 07, 2005 12:45 am    Post subject: Re: Moving a linetype to a layer Reply with quote
psilzle wrote:
Thank you!!!!

Paul Silzle


You're welcome
Back to top
View user's profile Send private message
 
Post new topic   Reply to topic    CADForums.net Forum Index -> Customization All times are GMT
Page 1 of 1

 
 You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum

Access Forum - Microsoft Office Forum - Electronics

Contact Us Powered by phpBB