Sectionviewstyle

mecdep
mecdep
in Programming and customization

I want to change a sectionview style.
I can retrieve the list object from the database.
I can change the list, but the entmod command doesn't work.
I tryed to delete the old list with the command: (dictremove sec_view_style_dic_id section_style_name) , and it works.
But when I create the new style with the command (setq xrecord (entmakex xrecord)) to append to the dictionary it give only NIL.

Here the code i used (the entmod attempt)

(setq section_style_name "MyStyle")
(setq sec_view_style_dic_obj (dictsearch (namedobjdict) "ACAD_SECTIONVIEWSTYLE"))
(setq sec_view_style_dic_id (cdr (assoc -1 sec_view_style_dic_obj)))

(setq old_section_style_obj (dictsearch sec_view_style_dic_id section_style_name))
(setq old_section_style_id (cdr (assoc -1 sec_view_style_dic_obj)))

(setq section_style_obj old_section_style_obj)

; first change in the dxf list
(setq section_style_obj (subst (cons 62 5)(assoc 62 section_style_obj) section_style_obj)) 
; second change
(setq section_style_obj (subst (cons 62 5)(assoc 62 section_style_obj) section_style_obj)) 

   ; (setq section_style_id (entmakex section_style_obj))

(entmod section_style_obj)
(entupd (cdr (assoc -1 section_style_obj))) 
(command "._regen")