Message 1 of 3
Change style label Civil 3d
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
I'm trying to modify a style of a label in autocad civil 3d by another style that already exists, but it's giving me an error, could someone help me.
(DEFUN C:se()
(vl-load-com)
(setq el (car (entsel "\nSelecione o label que deseja inverter: ")))
(setq elo (vlax-ename->vla-object el))
(setq elest (vlax-get-property elo 'LabelStyle))
(setq nome (vlax-get-property elest 'name))
(setq dir (vl-string-search "DIREITA" NOME))
(if (/= dir nil)
(setq nome2 "TIE-IN_PLANTA_A ESQUERDA_H 1.30" )
(setq nome2 "TIE-IN_PLANTA_A DIREITA_H 1.30" )
)
(vlax-property-available-p elest 'name t)
(vlax-dump-object elest)
(VLAX-PUT-PROPERTY elest 'Name nome2)
)