AutoLISP - Adding DXF code 48 to entities....

[eelrod]

Hello, I'm realitively new to AutoLISP.

What I would like to do is change certain entity's linetype scale override with LISP.  The problem I'm having is that if an entity's LTScale is the default, it has no LTScale override and no DXF code 48 to modify with entmod.

Is there a way to add DXF code 48 to an entity?

Thank you kindly!

[hmsilva · Accepted solution]

Try

(if (assoc 48 ent)
   (entmod (subst (cons 48 3) (assoc 48 ent) ent))
   (entmod (append ent (list (cons 48 3))))
)

Hope this helps,
Henrique

[scot-65]

In lieu of CONS, try APPEND.

(entmod (append d1 (list (cons dfx new))))

???

[eelrod]

Thank you, that is exactly what I needed!

[hmsilva]

---

@Anonymous.elrod wrote:

Thank you, that is exactly what I needed!

---

You're welcome, evan.elrod
Glad I could help

Henrique