Author Topic: Mline Color  (Read 2451 times)

0 Members and 1 Guest are viewing this topic.

Patrick_35

  • Guest
Mline Color
« on: November 17, 2006, 10:41:42 AM »
How to change the color of a mline without changing its style ?
In light, how to modify the color of a style of mline without having to erase them

Thanks

@+

CAB

  • Global Moderator
  • Seagull
  • Posts: 10401
Re: Mline Color
« Reply #1 on: November 18, 2006, 08:25:23 AM »
Have you tried : [I did not]
Code: [Select]
(vla-put-color obj color)
I've reached the age where the happy hour is a nap. (°¿°)
Windows 10 core i7 4790k 4Ghz 32GB GTX 970
Please support this web site.

Andrea

  • Water Moccasin
  • Posts: 2372
Re: Mline Color
« Reply #2 on: November 18, 2006, 02:40:29 PM »
thaw by putting...color byblock...

but,...

Good question Pat..
eaven with standard AutoCAD command
we can't make a "change last..." or "chprops.."

 :|

By chance we have CAB... :kewl:
« Last Edit: November 18, 2006, 02:41:33 PM by Andrea »
Keep smile...

CAB

  • Global Moderator
  • Seagull
  • Posts: 10401
Re: Mline Color
« Reply #3 on: November 18, 2006, 02:53:08 PM »
Well the dxf code changes but only white is displayed.  :oops:
I've reached the age where the happy hour is a nap. (°¿°)
Windows 10 core i7 4790k 4Ghz 32GB GTX 970
Please support this web site.

Fatty

  • Guest
Re: Mline Color
« Reply #4 on: November 18, 2006, 05:53:28 PM »
How to change the color of a mline without changing its style ?
In light, how to modify the color of a style of mline without having to erase them

Thanks

@+

I think you couldn't :-(
IMHO

~'J'~

Patrick_35

  • Guest
Re: Mline Color
« Reply #5 on: November 20, 2006, 04:16:52 AM »
Thanks all guys
This lisp modifies the styles of mline
It's work that for the styles which are not called since a mline in the drawing
Code: [Select]
(if (setq lst (vl-remove-if-not '(lambda (x) (eq (car x) 350)) (dictsearch (namedobjdict) "ACAD_MLINESTYLE")))
  (foreach ent lst
    (entmod (append (vl-remove-if '(lambda (x) (eq (car x) 62)) (entget (cdr ent))) (list (cons 62 0))))
  )
)

   
I think that it is necessary to create an intermediate style in order to be able to change the colors.
For the moment I don't make a copy of an existing style, but that will come

@+