[求助]：autolisp如何获得标注文本前缀状态?

ttmc

我遇到一个难题,我想写一个自动加注公差的程序.我选择的先取得数据,然后取消尺寸关联,再写入内容.可是,当选择一个直径尺寸文本后,却将尺寸前缀%%c给清除了.请大侠指点,如何在autolisp中知道一个尺寸值是否带有%%c的前缀呢?

我知道dimpost是关于全局的前后缀的变量名,可如何反映所选择的某一个尺寸文本的值呢?

我查了很多资料,可没有介绍autolisp这方面的知识,有一些是vlisp的,我看不懂.请高手们指点一下,在下不胜感激!

qjcpj

TextPrefix属性值。

ttmc

请问textprefix属性如何取得?
如何取得选取对象的textprifix的值呢?

kohi

[php]
(defun c:test ()
  (setq ent (entsel "/nPick a Dimension:"))
  (setq obj (vlax-ename->vla-object (car ent)))
  (vla-get-textprefix obj)
)
[/php]

ttmc

感谢感谢,非常感谢.
还请帮个忙,如何实现实数小数点后保留三位数字,比如0.03表示成0.030,也是想用在公差的标注上.

yshf

(rtos 0.03 2 3)

kohi

(vla-put-TolerancePrecision obj 3)

ttmc

(rtos 0.03 2 3) 不行的
还是回到0.03.

(vla-put-TolerancePrecision obj 3) 格式是什么?
是:(vla-put-TolerancePrecision 0.03 3)吗?怎么运行不了?
会出现
命令: (vla-put-toleranceprecision 0.03 3)
; 错误: 参数类型错误: VLA-OBJECT 0.03
为什么呢?我实在是看不懂vlisp的函数.真希望有autolisp的这方面的讲解.

还有这段
(defun c:test ()
  (setq ent (entsel "/nPick a Dimension:"))
  (setq obj (vlax-ename->vla-object (car ent)))
  (vla-get-textprefix obj)
)
代码,我在单位电脑运行正常,回家后却不行了.
查了好多资料,最后前面加了一句(vl-load-com)才解决.为什么我单位电脑不用加这句呢?同样的版本,都是MDT2004带的Auotcad2004.唯一的区别就是单位电脑里装了expertools,是不是这点区别呢?
后来家里电脑虽然这个功能有了,却无法再用rec画矩形,还有加载应用程序功能也没有了,不会和(vl-load-com)有关吧,重新启动电脑都不行.到昨晚临睡前还不行.还不知怎么解决呢,呜,我的命好苦啊!!!!!!!!

zxq0220

(SETVAR "DIMZIN" 0)