求教！如何修改多重引线的文字样式

xiaocainiao

2. (defun c:tt ()
   
3.   (setq en (car(entsel)))
   
4.   (setq en_data (entget en))
   
5.   (setq en1 (cdr(assoc 340 en_data)))
   
6.   (setq en_340 (entget en1))
   
7.   (if en_340
   
8.     (entmod (subst (cons 2 "文字") (assoc 2 en_340) en_340))
   
9.   )
   
10. )

(defun c:tt ()<br />   (setq en (car(entsel)))<br />   (setq en_data (entget en))<br />   (setq en1 (cdr(assoc 340 en_data)))<br />   (setq en_340 (entget en1))<br />   (if en_340 <br />     (entmod (subst (cons 2 "文字") (assoc 2 en_340) en_340))<br />   )<br /> )

我自己尝试了一下用entmod修改多重引线的文字样式、

发现修改不了、不知道什么原因。

请教各位大神、有没有其他方法可以修改多重引线的文字样式、感谢！

ssyfeng

试试这样呢

2. (defun c:tt ()
   
3. (vlax-put-property (vlax-ename->vla-object (car (entsel))) 'TextStyleName "文字")
   
4. )

(defun c:tt ()<br /> (vlax-put-property (vlax-ename->vla-object (car (entsel))) 'TextStyleName "文字")<br /> )

xiaocainiao

ssyfeng 发表于 2024-3-29 16:58
试试这样呢

这个可以、谢谢

xiaocainiao

ssyfeng 发表于 2024-3-29 16:13
试试这样呢

大神！还想请教一下、像标注样式、多重引线样式和表格样式设置中的文字样式如何修改呢？我想搞个合并文字样式的功能、修改图元样式这个会改了、但是对于标注样式中带有文字样式设置的、不知道从哪下手了