如果取得尺寸文字的字高

joe · 发表于 2004-2-16 15:54:00

各位高手﹐請問如果取得尺寸文字的字高?

meflying · 发表于 2004-2-16 16:08:00

(vla-get-textheight (vlax-ename->vla-object (car (entsel))))

joe · 发表于 2004-2-16 16:18:00

謝謝meflying,每次都是你幫我解決問題﹐不過我用的是R14版﹐沒有這些函數吧!

meflying · 发表于 2004-2-16 16:38:00

还真没有办法用DXF组码得到，一个比较笨的办法： (defun c:test( / ent ss h)
(setq ent (car (entsel "选择标注...")))
(if ent
(progn
(setvar "cmdecho" 0)
(command "_.undo" "be")
(command "_.explode" ent)
(setq ss (ssget "p" '((0 . "*TEXT"))))
(setq ent (ssname ss 0))
(setq h (cdr (assoc 40 (entget ent))))
(command "_.undo" "e")
(command "u")
)
)
h
)

龙龙仔 · 发表于 2004-2-16 17:05:00

(CDR (ASSOC 40 (ENTGET (CAR (NENTSEL "\n點標註文字: ")))))

;;也可以遍歷圖塊

meflying · 发表于 2004-2-16 17:17:00

遍历图块可以，不过直接的就不行，都是0

无痕 · 发表于 2004-2-16 18:28:00

肯定能找出来

龙龙仔 · 发表于 2004-2-17 07:55:00

本帖最后由作者于 2004-2-18 12:32:15 编辑

joe · 发表于 2004-2-17 16:45:00

謝謝龍兄了﹐但第一種方法必須在選擇時選擇尺寸標注中的文字部分﹐選擇其它部分時返回nil﹐能告訴我這是為什么嗎?

无痕 · 发表于 2004-2-17 18:52:00

因为(nentsel "\n翴匡夹爹ゅ: ")

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

如果取得尺寸文字的字高

本帖子中包含更多资源