[求助]：如何取得文本的左下角及右上角坐标？谢谢！

bolixin

如何取得文本的左下角及右上角坐标？

aeo

去  "LISP/VLISP函数库 "看看

marcoyuwen

用TEXTBOX可以实现。

qiaqiadeng

研究一下：

2. 
   
3. (defun boundingbox (obj minp maxp)
   
4.   (vl-load-com)
   
5.   (vla-getboundingbox
   
6.     (vlax-ename->vla-object obj)
   
7.     'minp
   
8.     'maxp
   
9.   )
   
10.   (setq        minp (vlax-safearray->list minp)
    
11.         maxp (vlax-safearray->list maxp)
    
12.   )
    
13. )

<br /> (defun boundingbox (obj minp maxp)<br />   (vl-load-com)<br />   (vla-getboundingbox<br />     (vlax-ename->vla-object obj)<br />     'minp<br />     'maxp<br />   )<br />   (setq        minp (vlax-safearray->list minp)<br />         maxp (vlax-safearray->list maxp)<br />   )<br /> )

lazybug

给个lisp的
(defun c:zz()
(setq en_data (entget (car (entsel))))
(setq plist (textbox en_data))
(setq pt1 (mapcar '+ (car plist) (cdr (assoc 10 en_data2))))
(setq pt2 (mapcar '+ (cadr plist) (cdr (assoc 10 en_data2))))
)

eachy

最初由 lazybug 发布
[B]给个lisp的
(defun c:zz()
(setq en_data (entget (car (entsel))))
(setq plist (textbox en_data))
(setq pt1 (mapcar '+ (car plist) (cdr (assoc 10 en_data2))))
(setq pt2 (mapcar '+ (cadr plist) (cdr ... [/B]

你没有考虑旋转的文字，另外GetBoundingBox 和 TextBox 对文字前面是空格或者字尾有空格的时候返回值可能不是你期望的。
[iframe h=600 w=100%]http://www.mjtd.com/object/autolisp/ALR.default.237.htm[/iframe]

lazybug

谢谢eachy 斑竹
受教了

其是那是我自己一个程序里的一小段，看到符合一楼楼主的要求就发上来了，没考虑那么多，真是不好意思。

xyz518mm

请教版主您说"GetBoundingBox 和 TextBox 对文字前面是空格或者字尾有空格的时候返回值可能不是你期望的"这样的问题该怎样解决呢?
烦请可以解答一下
谢谢

eachy

最初由 xyz518mm 发布
[B]请教版主您说"GetBoundingBox 和 TextBox 对文字前面是空格或者字尾有空格的时候返回值可能不是你期望的"这样的问题该怎样解决呢?
烦请可以解答一下
谢谢 [/B]

在 2007 下 GetBoundingbox 和 TextBox 返回值都会去除前后的空格（记得以前的版本Textbox返回值会包含字首空格而不包含字尾的空格），当字首空格有意义时就不能直接用 text 表，要将 textstring 的字首空格用其他字符替代后再用 textbox ，看过晓东工具箱中 的 xdlsp.lsp 文件中关于字符处理的就能明白的。