Topic: Changing Dimstyles with Lisp

[whdjr]

I need to change some colors in some dimensions in a template dwg.  The code below sets everything correctly it just doesn't apply it to the dwg.  Can someone help please?

Code: [Select]

(defun test (/ dim)
 (defun sub (lst code int)
  (setq dim (subst (cons code int) (assoc code lst) lst))
 )
 (while
  (if (not dim)
   (setq dim (tblnext "DIMSTYLE" T))
   (setq dim (tblnext "DIMSTYLE"))
  )
  (if dim
   (mapcar '(lambda (x y)
     (sub dim x y)
    )
   '(176 177 178)
   '(1 1 4)
   )
  )
  (entmod dim)
 )
)

[Guest]

Not having worked with changing dimstyles via LSP, I'm just thinking out loud here but, do you need to ENTUPD the dim??

[whdjr]

Entupd updates an ename.  'TBLNEXT' doesn't give an ename and I think that is the issue.  I used entmod because it is supposed to work on an entity list but technically I don't have a complete entity list from TBLNEXT.

[whdjr]

I tried changing (entmod dim) to
(entupd (tblobjname "DIMSTYLE" (cdr (assoc 2 dim) )))
but it didn't help any.

[jbuzbee]

Dimension "entities" are special blocks, that when created, use properties stored in a dimstyle - which is a table object.  If you change the dimstyle pragmatically, chances are you'd need to iterate through the database and entupd each dimension "entity" referencing that style?

[Kerry]

You've changed the definition Table, you now need to change the individual dims, so ..

Command: dim

Dim: update

Select objects: ....................

[whdjr]

You've changed the definition Table, you now need to change the individual dims, so ..

Command: dim

Dim: update

Select objects: ....................

This was a template dwg that didn't have any actual dimensions just the styles, and it never actually changed the styles.

I did it all manually this morning.

Thanks,