Putting DXF's codes in, A

arka69 · 发表于 2022-7-6 17:08:54

I´ve made a little function for changing easily attributes in entities
It goes like this

(defun atribsubst (valorcambiado grupocodigo nombreobjeto)
(entmod
(subst
(cons grupocodigo valorcambiado)
(assoc grupocodigo (entget nombreobjeto))
(entget nombreobjeto)
)
)
)

Works pretty well  , but for dxf group codes which are on default (for which there's no entry in entities atribute's list to be SUBStituted doesn´t work.

So I added one fix with IF function...

(defun atribsubst2 (valorcambiado grupocodigo nombreobjeto)
  (entmod
(if (not (assoc grupocodigo (entget nombreobjeto)))
;;;so if there are no entry I add it
      (cons (cons grupocodigo valorcambiado)
      (entget nombreobjeto))
;;;otherwise It works with same routine
      (subst
            (cons grupocodigo valorcambiado)
                  (assoc grupocodigo (entget nombreobjeto))
                  (entget nombreobjeto))
)
  )
)
Which seem to work, no error, return the list. But after that, nothing changes...

I´ve used it to change color (dxf code 62) to red (n 1) of one poly wich was on "bylayer" (default, so there's no entry in its atrib list)
(atribsubst2 1 62 (car (entsel)))

It returns
((62 . 1) (-1 . ) (0 . "LWPOLYLINE") (330 . ) (5 . "1B0") (100 . "AcDbEntity") so on...

But no color change, and doing
(entget (car (entsel)))
on same object returns
(-1 . ) (0 . "LWPOLYLINE") (330 . ) (5 . "1B0") (100 . "AcDbEntity") so on...

:?

What am I doing wrong? I´m using acad 2008 :wink:

Lee Mac · 发表于 2022-7-6 17:25:57

have you included the following code in your LISP:

copy

(defun c:colourtest (/ ent1)     (setq ent1 (entget (car (entsel))))     (if (assoc 62 ent1)         (setq ent1 (subst (cons 62 1) (assoc 62 ent1) ent1))         (setq ent1 (cons (cons 62 1) ent1))     ) ;  end if     [color=Red][b](entmod ent1)[/b][/color]     (princ))

arka69 · 发表于 2022-7-6 17:39:18

Yes, Check it, "entmod" it's just before the "if" function, so I don't have to write it two times it works with the "if"output case.

I'm checking if your code works on my ACAD2008...
I'll let you know instantly

arka69 · 发表于 2022-7-6 17:45:37

Aha, it doesn´t work neither.

Guess it´s supossed to change the enitity color to red, even if it was set on "bylayer", but in this case doesn´t work.

Maybe it needs to have its right position on atrib list? I mean in acad 2008...?

Lee Mac · 发表于 2022-7-6 18:06:46

ahh, sorry Arka - didnt spot the "entmod" in there.

All I can think is that it must be an ACAD 08 thing, because the LISP I posted works fine on ACAD 04.

arka69 · 发表于 2022-7-6 18:18:35

Yeah, I think so, it's one of the many advantages of having a too recent version...
Anyway, just for confirmation purposes... anybody can test the code "colortest" on an entity with color "bylayer" and running autocad 2008?

[编程交流] Putting DXF's codes in, A

发表回复

精选推荐