再次求助高手们完善下面这个封闭区域内文本居中小程序

gzxl

hnlgy 发表于 2013-6-14 20:07
顶起来让大家看见，别沉了。

是不是这样的？先发个测试的fas，如是这样再奉上代码

hnlgy

gzxl 发表于 2013-6-15 00:03
是不是这样的？先发个测试的fas，如是这样再奉上代码

感谢分享，正是需要这种效果。

ucuc2003

http://bbs.mjtd.com/thread-91647-1-1.html
看下yjr111 老大的作品，这个很不错

阿然

多行文字的实际高宽请参考组码42及43，给你一个cab大师的多行文字boundingbox的代码

1. (defun box_mtext (ent / elst p10 txth ang vec wid hgt dxf UCSangle
   
2.                   attpt ul ur lr ll)
   
3.   (defun dxf (code elst)
   
4.     (cdr (assoc code elst))
   
5.   )
   
6. 
   
7.   ;; incase it is a list,  (ename point)
   
8.   (and (listp ent) (setq ent (car ent)))
   
9.   (setq elst (entget ent))
   
10. 
    
11.   (setq p10   (trans (dxf 10 elst) 0 1) ; insertion point WCS to UCS
    
12.         txth  (dxf 40 elst) ; text height
    
13.         wid   (dxf 42 elst) ; full width
    
14.         hgt   (dxf 43 elst) ; full height
    
15.         ang   (dxf 50 elst) ; rotation angle in UCS
    
16.         attpt (dxf 71 elst) ; attachment point code
    
17.   )
    
18. 
    
19.   ;|--------------------------------------------------------------
    
20.   ;;  CAB 01/24/2006 removed as the ang fron DXF code 50 os in UCS
    
21.   ;;  correct for UCS
    
22.   (setq  ang (- ang (angle (trans '(0.0 0.0 0.0) 1 0)
    
23.                            (trans '(1.0 0.0 0.0) 1 0)))
    
24.   )
    
25.   ;;  angles  90 = (/ pi 2)   180 = pi  270 = (* pi 1.5)
    
26.   ---------------------------------------------------------------|;
    
27. 
    
28.   
    
29.   ;;  Get upper left (ul) from insert point (p10)
    
30.   (cond ((= attpt 1) (setq ul p10)) ; top left
    
31.         ((= attpt 2) (setq ul (polar p10 (+ pi ang) (/ wid 2)))) ; top center
    
32.         ((= attpt 3) (setq ul(polar p10 (+ pi ang) wid))) ; top right
    
33.         ((= attpt 4) (setq ul (polar p10 (+ (/ pi 2) ang) (/ hgt 2)))) ; middle left
    
34.         ((= attpt 5) ; middle center
    
35.          (setq ul (polar (polar p10 (+ pi ang) (/ wid 2)) (+ (/ pi 2) ang) (+ (/ hgt 2)))))
    
36.         ((= attpt 6) ; middle right
    
37.          (setq ul (polar (polar p10 (+ pi ang) wid) (+ (/ pi 2) ang) (+ (/ hgt 2)))))
    
38.         ((= attpt 7) (setq ul (polar p10 (+(/ pi 2) ang) hgt))) ; bottom left
    
39.         ((= attpt 8) ; bottom center
    
40.          (setq ul (polar (polar p10 (+ pi ang) (/ wid 2)) (+ (/ pi 2) ang) hgt)))
    
41.         ((= attpt 9) ; bottom right
    
42.          (setq ul (polar (polar p10 (+ pi ang) wid) (+ (/ pi 2) ang) hgt)))
    
43.   );cond
    
44.   (setq ur (polar ul ang wid)
    
45.         lr (polar ur (+ ang (* pi 1.5)) hgt)
    
46.         ll (polar lr (+ ang pi) wid)
    
47.   );setq
    
48.   (list ll lr ur ul)
    
49. );boxmtext
    

(defun box_mtext (ent / elst p10 txth ang vec wid hgt dxf UCSangle<br />                   attpt ul ur lr ll)<br />   (defun dxf (code elst)<br />     (cdr (assoc code elst))<br />   )<br /> <br />   ;; incase it is a list,  (ename point)<br />   (and (listp ent) (setq ent (car ent)))<br />   (setq elst (entget ent))<br /> <br />   (setq p10   (trans (dxf 10 elst) 0 1) ; insertion point WCS to UCS<br />         txth  (dxf 40 elst) ; text height<br />         wid   (dxf 42 elst) ; full width<br />         hgt   (dxf 43 elst) ; full height<br />         ang   (dxf 50 elst) ; rotation angle in UCS<br />         attpt (dxf 71 elst) ; attachment point code<br />   )<br /> <br />   ;|--------------------------------------------------------------<br />   ;;  CAB 01/24/2006 removed as the ang fron DXF code 50 os in UCS<br />   ;;  correct for UCS<br />   (setq  ang (- ang (angle (trans '(0.0 0.0 0.0) 1 0)<br />                            (trans '(1.0 0.0 0.0) 1 0)))<br />   )<br />   ;;  angles  90 = (/ pi 2)   180 = pi  270 = (* pi 1.5)<br />   ---------------------------------------------------------------|;<br /> <br />   <br />   ;;  Get upper left (ul) from insert point (p10)<br />   (cond ((= attpt 1) (setq ul p10)) ; top left<br />         ((= attpt 2) (setq ul (polar p10 (+ pi ang) (/ wid 2)))) ; top center<br />         ((= attpt 3) (setq ul(polar p10 (+ pi ang) wid))) ; top right<br />         ((= attpt 4) (setq ul (polar p10 (+ (/ pi 2) ang) (/ hgt 2)))) ; middle left<br />         ((= attpt 5) ; middle center<br />          (setq ul (polar (polar p10 (+ pi ang) (/ wid 2)) (+ (/ pi 2) ang) (+ (/ hgt 2)))))<br />         ((= attpt 6) ; middle right<br />          (setq ul (polar (polar p10 (+ pi ang) wid) (+ (/ pi 2) ang) (+ (/ hgt 2)))))<br />         ((= attpt 7) (setq ul (polar p10 (+(/ pi 2) ang) hgt))) ; bottom left<br />         ((= attpt 8) ; bottom center<br />          (setq ul (polar (polar p10 (+ pi ang) (/ wid 2)) (+ (/ pi 2) ang) hgt)))<br />         ((= attpt 9) ; bottom right<br />          (setq ul (polar (polar p10 (+ pi ang) wid) (+ (/ pi 2) ang) hgt)))<br />   );cond<br />   (setq ur (polar ul ang wid)<br />         lr (polar ur (+ ang (* pi 1.5)) hgt)<br />         ll (polar lr (+ ang pi) wid)<br />   );setq<br />   (list ll lr ur ul)<br /> );boxmtext<br />

hnlgy

多谢楼上两位的回复，仔细消化代码。

669423907

gzxl 发表于 2013-6-15 00:03
是不是这样的？先发个测试的fas，如是这样再奉上代码

G版您好，这种效果很好啊，不知道方不方便把对象居中的和你的整合一下，当选择对象为非文字时，调用对象居中，当选择对象为文字时就调用文字居中，这样的效果是不是更好呢？

陈亚娣

Qwer1243

gzxl 发表于 2013-6-15 00:03
是不是这样的？先发个测试的fas，如是这样再奉上代码

大佬 能发一下这个文本居中的源码 学习一下吗