获取MTEXT边框的四个角点

ayl1004 · 发表于 2013-6-8 09:42:30

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 ayl1004 于 2013-6-8 10:38 编辑

(defun GetMTextEdgeBox (Ename / EnLst InsPt Align Width
Heigh MinPt MaxPt Rotat Angl0 Angl1
)
(and
(setq EnLst (entget Ename))
(= (cdr (assoc 0 EnLst)) "MTEXT")
(progn
(setq InsPt (cdr (assoc 10 EnLst))
Align (cdr (assoc 71 EnLst))
Width (cdr (assoc 42 EnLst))
Heigh (cdr (assoc 43 EnLst))
Rotat (cdr (assoc 50 EnLst))
Angl0 (+ (* pi 1.5) Rotat)
Angl1 (+ pi Rotat)
)
(cond
((= Align 1)
(setq MinPt (polar InsPt Angl0 Heigh)
MaxPt (polar InsPt Rotat Width)
)
)
((= Align 4)
(setq MinPt (polar InsPt Angl0 (* Heigh 0.5))
MaxPt (polar InsPt (+ Angl0 pi) (* Heigh 0.5))
MaxPt (polar MaxPt Rotat Width)
)
)
((= Align 7)
(setq MinPt InsPt
MaxPt (polar InsPt (+ Angl0 pi) Heigh)
MaxPt (polar MaxPt Rotat Width)
)
)
((= Align 2)
(setq MinPt (polar InsPt Angl0 Heigh)
MinPt (polar MinPt Angl1 (* Width 0.5))
MaxPt (polar InsPt Rotat (* Width 0.5))
)
)
((= Align 5)
(setq MinPt (polar InsPt Angl0 (* Heigh 0.5))
MinPt (polar MinPt Angl1 (* Width 0.5))
MaxPt (polar InsPt (+ Angl0 pi) (* Heigh 0.5))
MaxPt (polar MaxPt Rotat (* Width 0.5))
)
)
((= Align 8)
(setq MinPt (polar InsPt Angl1 (* Width 0.5))
MaxPt (polar InsPt (+ Angl0 pi) Heigh)
MaxPt (polar MaxPt Rotat (* Width 0.5))
)
)
((= Align 3)
(setq MinPt (polar InsPt Angl0 Heigh)
MinPt (polar MinPt Angl1 Width)
MaxPt InsPt
)
)
((= Align 6)
(setq MinPt (polar InsPt Angl0 (* 0.5 Heigh))
MinPt (polar MinPt Angl1 Width)
MaxPt (polar InsPt (+ Angl0 pi) (* 0.5 Heigh))
)
)
((= Align 9)
(setq MinPt (polar InsPt Angl1 Width)
MaxPt (polar InsPt (+ Angl0 pi) Heigh)
)
)
)
(list
MinPt
(polar MinPt Rotat Width)
MaxPt
(polar MaxPt Angl1 Width)
)
)
)
)

(defun GetMTextEdgeBox (Ename /       EnLst  InsPt  Align  Width 
                                     Heigh  MinPt MaxPt Rotat Angl0 Angl1 
                                        ) 
  (and 
    (setq EnLst (entget Ename)) 
    (= (cdr (assoc 0 EnLst)) "MTEXT") 
    (progn 
      (setq InsPt (cdr (assoc 10 EnLst)) 
      Align (cdr (assoc 71 EnLst)) 
      Width (cdr (assoc 42 EnLst)) 
      Heigh (cdr (assoc 43 EnLst)) 
      Rotat (cdr (assoc 50 EnLst)) 
      Angl0 (+ (* pi 1.5) Rotat) 
      Angl1 (+ pi Rotat) 
      ) 
      (cond 
  ((= Align 1) 
   (setq MinPt (polar InsPt Angl0 Heigh) 
         MaxPt (polar InsPt Rotat Width) 
   ) 
  ) 
  ((= Align 4) 
   (setq MinPt (polar InsPt Angl0 (* Heigh 0.5)) 
         MaxPt (polar InsPt (+ Angl0 pi) (* Heigh 0.5)) 
         MaxPt (polar MaxPt Rotat Width) 
   ) 
  ) 
  ((= Align 7) 
   (setq MinPt InsPt 
         MaxPt (polar InsPt (+ Angl0 pi) Heigh) 
         MaxPt (polar MaxPt Rotat Width) 
   ) 
  ) 
  ((= Align 2) 
   (setq MinPt (polar InsPt Angl0 Heigh) 
         MinPt (polar MinPt Angl1 (* Width 0.5)) 
         MaxPt (polar InsPt Rotat (* Width 0.5)) 
   ) 
  ) 
  ((= Align 5) 
   (setq MinPt (polar InsPt Angl0 (* Heigh 0.5)) 
         MinPt (polar MinPt Angl1 (* Width 0.5)) 
         MaxPt (polar InsPt (+ Angl0 pi) (* Heigh 0.5)) 
         MaxPt (polar MaxPt Rotat (* Width 0.5)) 
   ) 
  ) 
  ((= Align 8) 
   (setq MinPt (polar InsPt Angl1 (* Width 0.5)) 
         MaxPt (polar InsPt (+ Angl0 pi) Heigh) 
         MaxPt (polar MaxPt Rotat (* Width 0.5)) 
   ) 
  ) 
  ((= Align 3) 
   (setq MinPt (polar InsPt Angl0 Heigh) 
         MinPt (polar MinPt Angl1 Width) 
         MaxPt InsPt 
   ) 
  ) 
  ((= Align 6) 
   (setq MinPt (polar InsPt Angl0 (* 0.5 Heigh)) 
         MinPt (polar MinPt Angl1 Width) 
         MaxPt (polar InsPt (+ Angl0 pi) (* 0.5 Heigh)) 
   ) 
  ) 
  ((= Align 9) 
   (setq MinPt (polar InsPt Angl1 Width) 
         MaxPt (polar InsPt (+ Angl0 pi) Heigh) 
   ) 
  ) 
      ) 
      (list 
        MinPt 
        (polar MinPt Rotat Width) 
        MaxPt 
        (polar MaxPt Angl1 Width) 
      ) 
    ) 
  ) 
)

Lisphk · 发表于 2013-6-8 09:48:50

楼主，MTEXT获取边框要注意什么？我看程序里面判断了ALIGN很多次，能给解惑下吗？

ayl1004 · 发表于 2013-6-8 09:52:06

Lisphk 发表于 2013-6-8 09:48
楼主，MTEXT获取边框要注意什么？我看程序里面判断了ALIGN很多次，能给解惑下吗？

对齐方式，有九种，跟插入点的位置有关

Lisphk · 发表于 2013-6-8 10:43:46

ayl1004 发表于 2013-6-8 09:52
对齐方式，有九种，跟插入点的位置有关

楼主，要考虑这么多对齐方式，和用 vla-GetBoundingBox 直接求出的包围盒子有什么不同的吗？

snsj · 发表于 2013-6-8 10:50:22

GetBoundingBox求不出来MTEXT的正确值

Lisphk · 发表于 2013-6-8 11:29:22

snsj 发表于 2013-6-8 10:50
GetBoundingBox求不出来MTEXT的正确值

多谢指点{:soso_e163:}

q3_2006 · 发表于 2013-6-18 07:30:46

GetBoundingBox求不出来MTEXT的正确值，似乎区别不大呀！

laibinwu · 发表于 2013-6-18 22:10:14

多谢楼主分享源码

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

[实体] 获取MTEXT边框的四个角点

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

评分

点评

点评

点评

评分

浏览过的版块