如何能够获得圆（circle）内的文字？

别晨

有这么一个问题，如果已知圆的直径，如何能够通过查找圆而获得所有同一直径的圆内的文字？
假设文字完全被圆嵌套，而文字的对齐方式等属性未知。


盼解^_^

xyp1964

2. (load "xyp_lib.vlx")   ;版本 V.20060210
3. ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)
4. 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
5. ★1·在acad.lsp中增加(load"xyp_lib")
6. ■2·在每个程序内增加(load"xyp_lib")
7. ■3·在command下，输入(load"xyp_lib")
8. ■4·在菜单.mnl中增加(load"xyp_lib")
9. ■5·将xyp_lib.vlx文件直接拽到cad屏幕
10. [COLOR=red] ★通用函数下载地址：[/COLOR]
11. [url]http://bbs.mjtd.com/forum.php?mod=viewthread&tid=37554[/url]
12. |;
13. ;;;
14. (defun c:test ()
15.   (setq DIA (UREAL 7 "" "\n直径" DIA)
16. rad (/ dia 2.0)
17. ss  (ssget (list (cons 0 "CIRCLE") (cons 40 rad)))
18. ss1 (ssadd)
19. i   -1
20.   )
21.   (setvar "osmode" 0)
22.   (while (setq s1 (ssname ss (setq i (1+ i))))
23.     (setq pt1 (xyp-get-MinMaxPoint s1 1)
24.    pt9 (xyp-get-MinMaxPoint s1 9)
25.    ss2 (ssget "w" pt1 pt9)
26.    ss3 (ssget "p" (list (cons 0 "TEXT")))
27.     )
28.     (command "select" ss1 ss3 "")
29.     (setq ss1 (ssget "p"))
30.   )
31.   ss1
32. )

(load "xyp_lib.vlx")   ;版本 V.20060210 ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下) 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序： ★1·在acad.lsp中增加(load"xyp_lib") ■2·在每个程序内增加(load"xyp_lib") ■3·在command下，输入(load"xyp_lib") ■4·在菜单.mnl中增加(load"xyp_lib") ■5·将xyp_lib.vlx文件直接拽到cad屏幕 [COLOR=red] ★通用函数下载地址：[/COLOR] [url]http://bbs.mjtd.com/forum.php?mod=viewthread&tid=37554[/url] |; ;;; (defun c:test ()   (setq DIA (UREAL 7 "" "\n直径" DIA) rad (/ dia 2.0) ss  (ssget (list (cons 0 "CIRCLE") (cons 40 rad))) ss1 (ssadd) i   -1   )   (setvar "osmode" 0)   (while (setq s1 (ssname ss (setq i (1+ i))))     (setq pt1 (xyp-get-MinMaxPoint s1 1)    pt9 (xyp-get-MinMaxPoint s1 9)    ss2 (ssget "w" pt1 pt9)    ss3 (ssget "p" (list (cons 0 "TEXT")))     )     (command "select" ss1 ss3 "")     (setq ss1 (ssget "p"))   )   ss1 )

别晨

谢谢二楼版主的热心解答，但你用到了你的通用函数库，所以也就隐蔽了一些实现，不利于学习呵呵（能公开函数库的源码就好啦^_^）

不过能否解释一下你用到的这个函数？
(xyp-get-MinMaxPoint s1 1)
(xyp-get-MinMaxPoint s1 9)

xyp1964

2. ;;;------------- xyp-get-MinMaxPoint -------------
3. ;;;指定对象最小外接矩形的九点坐标
4. ;;;(xyp-get-MinMaxPoint 实体名 参数)
5. ;;;参数＝1～9，上中下9位码；其他均为左下角点
6. ;;; 7        8         9 maxpoint '(x2 y2)
7. ;;;  ------------------
8. ;;;  |                |
9. ;;;  |                |
10. ;;;  |                |
11. ;;; 4|       5        |6
12. ;;;  |                |
13. ;;;  |                |
14. ;;;  |                |
15. ;;;  ------------------
16. ;;; 1        2         3
17. ;;;minpoint '(x1 y1 )
18. (defun xyp-get-MinMaxPoint (ename mode / pointmax pointmin x1 x2 y1 y2 dx dy point)
19.   (vla-getboundingbox
20.     (vlax-ename->vla-object ename)
21.     'minpoint
22.     'maxpoint
23.   )
24.   (setq pointmax (vlax-safearray->list maxpoint)
25. pointmin (vlax-safearray->list minpoint)
26. x1  (car pointmin)
27. x2  (car pointmax)
28. y1  (cadr pointmin)
29. y2  (cadr pointmax)
30. dx  (/ (- x2 x1) 2.0)
31. dy  (/ (- y2 y1) 2.0)
32.   )
33.   (cond ((= mode 1) (setq point pointmin))
34. ((= mode 2) (setq point (list (+ x1 dx) y1)))
35. ((= mode 3) (setq point (list x2 y1)))
36. ((= mode 4) (setq point (list x1 (+ y1 dy))))
37. ((= mode 5) (setq point (list (+ x1 dx) (+ y1 dy))))
38. ((= mode 6) (setq point (list x2 (+ y1 dy))))
39. ((= mode 7) (setq point (list x1 y2)))
40. ((= mode 8) (setq point (list (+ x1 dx) y2)))
41. ((= mode 9) (setq point pointmax))
42. (t (setq point pointmin))
43.   )
44.   point
45. )

;;;------------- xyp-get-MinMaxPoint ------------- ;;;指定对象最小外接矩形的九点坐标 ;;;(xyp-get-MinMaxPoint 实体名 参数) ;;;参数＝1～9，上中下9位码；其他均为左下角点 ;;; 7        8         9 maxpoint '(x2 y2) ;;;  ------------------ ;;;  |                | ;;;  |                | ;;;  |                | ;;; 4|       5        |6 ;;;  |                | ;;;  |                | ;;;  |                | ;;;  ------------------ ;;; 1        2         3 ;;;minpoint '(x1 y1 ) (defun xyp-get-MinMaxPoint (ename mode / pointmax pointmin x1 x2 y1 y2 dx dy point)   (vla-getboundingbox     (vlax-ename->vla-object ename)     'minpoint     'maxpoint   )   (setq pointmax (vlax-safearray->list maxpoint) pointmin (vlax-safearray->list minpoint) x1  (car pointmin) x2  (car pointmax) y1  (cadr pointmin) y2  (cadr pointmax) dx  (/ (- x2 x1) 2.0) dy  (/ (- y2 y1) 2.0)   )   (cond ((= mode 1) (setq point pointmin)) ((= mode 2) (setq point (list (+ x1 dx) y1))) ((= mode 3) (setq point (list x2 y1))) ((= mode 4) (setq point (list x1 (+ y1 dy)))) ((= mode 5) (setq point (list (+ x1 dx) (+ y1 dy)))) ((= mode 6) (setq point (list x2 (+ y1 dy)))) ((= mode 7) (setq point (list x1 y2))) ((= mode 8) (setq point (list (+ x1 dx) y2))) ((= mode 9) (setq point pointmax)) (t (setq point pointmin))   )   point )

ljpnb

xyp1964版，这个通用函数写得不错，其实以前也看到过你这个函数，当时没仔细看，没看明白，今天细看一下，总算明白。挺不错的一个函数，收下了。

别晨

; 错误: no function definition: VLAX-ENAME->VLA-OBJECT

不知道使用VLAX－函数是不是要进行一些初始化工作？

ljpnb

程序前面加上(vl-load-com)

别晨

看来也要学一下vl等函数的使用了
 谢谢楼上各位高手^_^