社区 › AutoLISP/Visual LISP 编程技术 › 求助,怎样修改某个标注样式所使用的文字样式呀？

mzm8q 发表于 2011-7-10 16:28:26

求助,怎样修改某个标注样式所使用的文字样式呀？

有谁知道方法请说一下！
问过很朋友都没解决好。

Gu_xl 发表于 2011-7-10 17:23:19

回复 mzm8q 的帖子


;;;功能：修改标注样式文字样式
;;;参数1 dimstyle标注样式名称
;;;参数2txtstyle 文字样式名称
(defun SetDimTxtStyle (dimstyle txtstyle)
(if (and
        (setq txtstyle (tblobjname "style" txtstyle))
        (setq dimstyle (tblobjname "dimstyle" dimstyle))
        )
(progn
(setq dimstyle (subst (cons 340 txtstyle) (assoc 340 (setq dimstyle (entget dimstyle))) dimstyle))
(entmod dimstyle)
)
    )
)

mzm8q 发表于 2011-7-10 17:28:01

谢谢Gu_xl 版主

mzm8q 发表于 2011-7-10 17:39:08

Gu_xl 版主
用了你这个修改，怎么多了一个样式替换呢？

yarp 发表于 2011-7-10 20:46:54

(defun c:tt ( / dim textStyles num i )
(princ "\选择要改变字体的标注")
(setq dim (vlax-ename->vla-object (car (entsel))))
(princ "\可选的字体样式为：\n")
(setq textStyles (vla-get-textstyles (vla-get-document dim) ))
(setq num (vla-get-count textStyles)
i -1 )
(repeat num
   (princ (vla-get-name (vla-item textStyles (setq i (1+ i)))))
   (princ "\t")
   )
(princ "\n")
(princ "你要选择第几个字体样式？")
(setq num (getint))
(vla-put-textstyle dim (vla-get-name (vla-item textStyles num)))
)

mzm8q 发表于 2011-7-10 22:46:57

谢谢！

查看完整版本: 求助,怎样修改某个标注样式所使用的文字样式呀？