返回Text、 MText的左下角点 右下角点 右上角点 左上角点

jpg102329

1. ;【管理员】大海<tryhi@sina.cn> 2017-07-16 20:48:08查看前后消息
   
2. 
   
3. ;;返回Text、 MText的左下角点 右下角点 右上角点 左上角点
   
4. (defun try-get-TextBox (EN / b enx h j l n o r ty w)
   
5. (setq ty(type en))
   
6. (cond
   
7. ((= 'VLA-OBJECT ty)
   
8. (setq enx (entget (vlax-vla-object->ename en)))
   
9. )
   
10. ((= 'ename ty) (setq enx (entget en)))
    
11. ((= 'list ty) (setq enx en))
    
12. )
    
13. (setq        l
    
14. (cond
    
15. ((= "TEXT" (cdr (assoc 0 enx)))
    
16. (setq b (cdr (assoc 10 enx))
    
17. r (cdr (assoc 50 enx))
    
18. l (textbox enx)
    
19. n (cdr (assoc 210 enx))
    
20. )
    
21. (list
    
22. (list (caar l) (cadar l))
    
23. (list (caadr l) (cadar l))
    
24. (list (caadr l) (cadadr l))
    
25. (list (caar l) (cadadr l))
    
26. )
    
27. )
    
28. ((= "MTEXT" (cdr (assoc 0 enx)))
    
29. (setq n (cdr (assoc 210 enx))
    
30. b (trans (cdr (assoc 10 enx)) 0 n)
    
31. r (angle '(0.0 0.0 0.0) (trans (cdr (assoc 11 enx)) 0 n))
    
32. w (cdr (assoc 42 enx))
    
33. h (cdr (assoc 43 enx))
    
34. j (cdr (assoc 71 enx))
    
35. o (list
    
36. (cond
    
37. ((member j '(2 5 8)) (/ w -2.0))
    
38. ((member j '(3 6 9)) (- w))
    
39. (0.0)
    
40. )
    
41. (cond
    
42. ((member j '(1 2 3)) (- h))
    
43. ((member j '(4 5 6)) (/ h -2.0))
    
44. (0.0)
    
45. )
    
46. )
    
47. )
    
48. (list
    
49. (list (car o) (cadr o))
    
50. (list (+ (car o) w) (cadr o))
    
51. (list (+ (car o) w) (+ (cadr o) h))
    
52. (list (car o) (+ (cadr o) h))
    
53. )
    
54. )
    
55. )
    
56. )
    
57. (setq        l
    
58. ((lambda (m)
    
59. (mapcar
    
60. '(lambda (p)
    
61. (mapcar '+
    
62. (mapcar '(lambda (r) (apply '+ (mapcar '* r p))) m)
    
63. b
    
64. )
    
65. )
    
66. l
    
67. )
    
68. )
    
69. (list
    
70. (list (cos r) (sin (- r)) 0.0)
    
71. (list (sin r) (cos r) 0.0)
    
72. '(0.0 0.0 1.0)
    
73. )
    
74. )
    
75. )
    

;【管理员】大海<<a href="mailto:tryhi@sina.cn" target="_blank">tryhi@sina.cn</a>> 2017-07-16 20:48:08查看前后消息<br /> <br /> ;;返回Text、 MText的左下角点 右下角点 右上角点 左上角点<br /> (defun try-get-TextBox (EN / b enx h j l n o r ty w)<br /> (setq ty(type en))<br /> (cond<br /> ((= 'VLA-OBJECT ty)<br /> (setq enx (entget (vlax-vla-object->ename en)))<br /> )<br /> ((= 'ename ty) (setq enx (entget en)))<br /> ((= 'list ty) (setq enx en))<br /> )<br /> (setq        l<br /> (cond<br /> ((= "TEXT" (cdr (assoc 0 enx)))<br /> (setq b (cdr (assoc 10 enx))<br /> r (cdr (assoc 50 enx))<br /> l (textbox enx)<br /> n (cdr (assoc 210 enx))<br /> )<br /> (list<br /> (list (caar l) (cadar l))<br /> (list (caadr l) (cadar l))<br /> (list (caadr l) (cadadr l))<br /> (list (caar l) (cadadr l))<br /> )<br /> )<br /> ((= "MTEXT" (cdr (assoc 0 enx)))<br /> (setq n (cdr (assoc 210 enx))<br /> b (trans (cdr (assoc 10 enx)) 0 n)<br /> r (angle '(0.0 0.0 0.0) (trans (cdr (assoc 11 enx)) 0 n))<br /> w (cdr (assoc 42 enx))<br /> h (cdr (assoc 43 enx))<br /> j (cdr (assoc 71 enx))<br /> o (list<br /> (cond<br /> ((member j '(2 5 8)) (/ w -2.0))<br /> ((member j '(3 6 9)) (- w))<br /> (0.0)<br /> )<br /> (cond<br /> ((member j '(1 2 3)) (- h))<br /> ((member j '(4 5 6)) (/ h -2.0))<br /> (0.0)<br /> )<br /> )<br /> )<br /> (list<br /> (list (car o) (cadr o))<br /> (list (+ (car o) w) (cadr o))<br /> (list (+ (car o) w) (+ (cadr o) h))<br /> (list (car o) (+ (cadr o) h))<br /> )<br /> )<br /> )<br /> )<br /> (setq        l<br /> ((lambda (m)<br /> (mapcar<br /> '(lambda (p)<br /> (mapcar '+<br /> (mapcar '(lambda (r) (apply '+ (mapcar '* r p))) m)<br /> b<br /> )<br /> )<br /> l<br /> )<br /> )<br /> (list<br /> (list (cos r) (sin (- r)) 0.0)<br /> (list (sin r) (cos r) 0.0)<br /> '(0.0 0.0 1.0)<br /> )<br /> )<br /> )<br />

<以上内容出自《大海语录》不代表本人观点>
欢迎加入通信管线设计技术交流群655280537，通信管线规划设计技术、资源交流群，CAD底图交换、付费教程免费获取、交流经验、互相学习，共同进步！

ketxu

Thanks for sharing. I'm finding this function