[求助]怎样提取标注中的文字作为实数型
 

[求助]怎样提取标注中的文字作为实数型
www.dimcax.com
[求助]怎样提取标注中的文字作为实数型
各位大侠，我想提取选中的标注中的文字，然后转为实数，然后+0.5，然后转为字符，然后给这个标注加上后缀，
比如说：我选中直径标注“￠6”，最后要成为是：“￠6深6.5”。
其中6.5是 6+0.5 而得到，
谢谢！
学无止境
以下内容需要帖子数达到5才可以浏览
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
( "\nselect a dimtion 选择尺寸:")
( ( ss ( '((0 . "dimension")))) (
( i -1)
( ( ss)
( ent ( ( ss ( i ( i)))))
( ( ( (getvar"acadver") 1 2) "14")
( ( ((assoc 100 ( ent))) "acdbdiametricdimension") (
( l ( ( ( ( 42 ent)) 0.5) 2 3)
ent ( ( 1 ( "<>深" l)) ( 1 ent) ent))
( ent)
))
)
)
))
()
)
踅摸
d
我是这样写的：
;;;选择一个标注
(setq dimobj1 (car (entsel)))
(setq dimobj (vlax-ename->vla-object dimobj1))
;;;提取字符串，
(setq value (vla-get-measurement dimobj ))
(setq value1 (+ value 0.5))
(setq dimvl1 (itoa value1))
(setq suffix (strcat "深" dimvl1 ))
这样老说数据错误，为什么？
学无止境
itoa -> rtos
原创加密lisp真正的破解.原创lisp操作cad内置对话框.原创lisp直接调用win32 api.原创lisp开发小助手(代码自动生成器).原创vba语句->lisp语句解释器.原创lisp音乐播放器.原创lisp直接使用vba对话框.
当图档存为r14版时，用vla-get-measurement 获取不到尺寸值的,
vla-get-measurement只能用于
d