把MTEXT对齐选定的曲线并遮盖它

Lisphk · 发表于 2016-8-26 12:32:26

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

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

×

本帖最后由 Lisphk 于 2016-8-26 12:37 编辑

(defun c:tt ()
(vl-load-com)
(setq es (entsel)
entpt (osnap (cadr es) "_nea")
ang (angle '(0 0 0) (vlax-curve-getFirstDeriv
(vlax-ename->vla-object
(car es)
)
(vlax-curve-getParamAtPoint
(vlax-ename->vla-object
(car es)
) entpt
)
)
)
)
(if (and
(> ang (/ pi 2))
(<= ang (* pi 1.5))
)
(setq ang (+ ang pi))
)
(setq hght (getreal "\nText Height : "))
(setq mspace (vla-get-modelspace (vla-get-activedocument
(vlax-get-acad-object)
)
)
)
(setq mtextobj (vla-addMText mspace (vlax-3d-point entpt) 0.0 "AUTOCAD"))
(vla-put-attachmentPoint mtextobj acAttachmentPointMiddleCenter)
(vla-put-insertionPoint mtextobj (vlax-3d-point entpt))
(vla-put-Rotation mtextobj ang)
(vla-put-Height mtextobj hght)
(vla-put-Color mtextobj 7)
(vla-put-backgroundfill mtextobj :vlax-true)
)

(defun c:tt () 
  (vl-load-com) 
  (setq es (entsel) 
        entpt (osnap (cadr es) "_nea") 
        ang (angle '(0 0 0) (vlax-curve-getFirstDeriv 
                                                      (vlax-ename->vla-object 
                                                                              (car es) 
                                                      ) 
                                                      (vlax-curve-getParamAtPoint 
                                                                                  (vlax-ename->vla-object 
                                                                                                          (car es) 
                                                                                  ) entpt 
                                                      ) 
                            ) 
            ) 
  ) 
  (if (and 
        (> ang (/ pi 2)) 
        (<= ang (* pi 1.5)) 
      ) 
    (setq ang (+ ang pi)) 
  ) 
  (setq hght (getreal "\nText Height : ")) 
  (setq mspace (vla-get-modelspace (vla-get-activedocument 
                                                           (vlax-get-acad-object) 
                                   ) 
               ) 
  ) 
  (setq mtextobj (vla-addMText mspace (vlax-3d-point entpt) 0.0 "AUTOCAD")) 
  (vla-put-attachmentPoint mtextobj acAttachmentPointMiddleCenter) 
  (vla-put-insertionPoint mtextobj (vlax-3d-point entpt)) 
  (vla-put-Rotation mtextobj ang) 
  (vla-put-Height mtextobj hght) 
  (vla-put-Color mtextobj 7) 
  (vla-put-backgroundfill mtextobj :vlax-true) 
)

/db_自贡黄明儒_ · 发表于 2016-8-26 13:04:57

还有一种办法，就是把线型设计成带文字的，可惜有些版本不能显示。

仲文玉 · 发表于 2016-8-26 13:28:05

我用带字线型

Lisphk · 发表于 2016-8-26 13:31:34

仲文玉发表于 2016-8-26 13:28
我用带字线型

带字的线型，每个字要设计一种线型吧，如果有大量的不同的字就不方便了吧？

Lisphk · 发表于 2016-8-26 13:32:47

/db_自贡黄明儒_ 发表于 2016-8-26 13:04
还有一种办法，就是把线型设计成带文字的，可惜有些版本不能显示。

你遇到过的有哪些版本不显示？

仲文玉 · 发表于 2016-8-26 13:50:25

比如强弱电、水暖消防等用用倒是不错的，最合适自己行业的才是最好的

pplx · 发表于 2016-9-5 22:19:47

不能随意控制字啊，只能显示autocad，不能人为输入字来显示啊

xvjiex · 发表于 2021-9-23 01:35:28

感谢分享把MTEXT对齐选定的曲线并遮盖它

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

[每日一码] 把MTEXT对齐选定的曲线并遮盖它

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

点评

点评

点评