Toggle multilines with autolisp

[teknomatika]

Hello,
Someone can help with the following:

In a job I have different multiline styles. Using a routine will it be possible to toggle current style just picking on one of these multilines?

Thanks

 

Aalmeidah

[ronjonp]

Sure:

(defun c:foo (/ e)
  (if (and (setq e (car (entsel "\nPick an mline: ")))
	   (= "MLINE" (cdr (assoc 0 (setq e (entget e)))))
      )
    (setvar 'cmlstyle (cdr (assoc 2 e)))
  )
  (princ)
)

 

[teknomatika]

ronjonp

It is! Very well!

Thanks for the help and the availability.
 

[ronjonp]

5 hours ago, teknomatika said:

ronjonp

It is! Very well!

Thanks for the help and the availability.
 

Glad to help