社区 › AutoLISP/Visual LISP 编程技术 › 如何更改一个标注的样式？

tm20038175 发表于 2012-5-3 18:57:45

如何更改一个标注的样式？

例如有个标注图元en，我想把它从样式一更改为样式二，文字和箭头大小不变，其它跟随样式二，如何实现？

tm20038175 发表于 2012-5-3 20:27:34

顶起来！………

tm20038175 发表于 2012-5-3 22:29:31

板凳自己做…………

tm20038175 发表于 2012-5-4 06:25:12

…………………………………………

maiko 发表于 2012-5-4 13:17:31

本帖最后由 maiko 于 2012-5-4 13:18 编辑

顶顶

tm20038175 发表于 2012-5-4 15:22:34

好像dxf没有相对应的组码……

tm20038175 发表于 2012-5-4 18:51:54

又沉下去啦。。。。。。。

caoyin 发表于 2012-5-4 19:23:32

dxf方法也可以，只是数据储存在词典，比较麻烦。
(setq NwST "standard")

(setq OBJ (vlax-ename->vla-object (car (entsel))))

(setq TXTGHT (vla-get-TextHeight OBJ));;字高
(setq ARRSZE (vla-get-ArrowheadSize OBJ)) ;;箭头尺寸


(vla-put-StyleName OBJ NwST)
;;如果实现真正的尺寸不变，需要跟全局比例因子进行计算
(vla-put-TextHeight OBJ TXTGHT)
(vla-put-ArrowheadSize OBJ ARRSZE)

tm20038175 发表于 2012-5-4 20:01:53

caoyin 发表于 2012-5-4 19:23
dxf方法也可以，只是数据储存在词典，比较麻烦。
(setq NwST "standard")



真高人啦，我似乎看到解决的曙光了。。。。。

查看完整版本: 如何更改一个标注的样式？