[求助]LSP在CAD14如何读取尺寸标注的实际值

xshrimp · 发表于 2008-7-7 20:16:00

看看我的函数库中有个取标注值的.

;取标注文本.
;(gps->getdimtext (car (entsel)))
;xshrimp 2008.07.07
(defun gps->getdimtext (ent / e el roop)
(if ent
(progn
(setq e (cdr (assoc -2 (tblsearch "block" (cdr (assoc 2 (entget ent)))))) roop T)
(while roop
(setq e (entnext e) el(entget e))
(if (member '(0 . "MTEXT") el)
(setq roop nil)
)
)
;判断有无修改.
(if (or
(= (cdr (assoc 1 (entget ent))) "<>")
(= (cdr (assoc 1 (entget ent))) "")
)
(strcat "<" (cdr (assoc 1 el)) ">")
(cdr (assoc 1 el))
)
)
)
)

muwind · 发表于 2008-7-7 22:43:00

首先非常感谢各位的热心指导，我去试试

muwind · 发表于 2008-7-15 21:28:00

本帖最后由作者于 2008-7-16 13:36:41 编辑

11楼的我试用了，非常好，基本满足我的愿望了。有个很细小的问题

R14取出来的有些是“/A1；”开头的东西，稍加修改就是我要的数据了，但在14以上的版本不是（比如04版），需要区别对待。不过在04里我倾向直接去42组码的值，问题不大。再次谢谢xshrimp兄

jaminth · 发表于 2008-7-22 23:44:00

比如:

尺寸标注的值为119.5,可用11楼的方法,提取出来却是 "<\\A1;119.5>"

请教大家,如何去除多余的部分,只获取1119.5这个值?!

muwind · 发表于 2008-7-23 23:08:00

我试过不是所有的标注尺寸都有这种情况，所以我采用的方式，是先判断取出来的东西是不是以\\A1开头的形式存在，如果不是就直接取该数据，否则就用SUBSTR读取 \\A1后面的数据。经过测试，完全可行

xshrimp · 发表于 2008-7-24 00:29:00

(setq str "<\\A1;119.5>")
(if ( = (substr str 1 5) "<\\A1;" )
(setq str (substr str 6 (- (strlen str) 6)))
);end if

sailorcwx · 发表于 2008-7-24 00:41:00

vla-get-Measurement

sailorcwx · 发表于 2008-7-24 00:47:00

修改后的值用vla-get-TextOverride

sailorcwx · 发表于 2008-7-24 00:49:00

还用R14?

vbyu1987 · 发表于 2010-7-23 11:13:00

我是小白，请问如何使用。

账号		自动登录	找回密码
密码			注册