[求助]：如何编写文本双下划线?

carrot1983 · 发表于 2006-11-7 21:16:25

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

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

×

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:xhx()
(setq oce (getvar "cmdecho"))
(setvar "cmdecho" 0)
(setq txtss (ssget'((0 . "TEXT"))))
      (setq txtn (ssname txtss 0))
      (setq txtdata (entget txtn))
      (setq pt1 (cdr (assoc '10 txtdata)))
      (setq pt1_x (car pt1))
      (setq pt1_y (cadr pt1))
      (setq pt1D (list pt1_x (* 1.2 pt1_y)))
; ? ;;;;;;;;;;问题就是第二个点怎么从所选定的文字来定啊?

  (command "line" pt1D pt2D "")
   )
(setvar "cmdecho" oce)
(princ)
)

由于想编两条下划线.不然就直接用"MTEXT".
另:
((-1 . <图元名: 7ef50e78>) (0 . "TEXT") (330 . <图元名: 7ef50cf8>)
(5 . "87") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 .
"AcDbText") (10 306.151 707.412 0.0) (40 . 939.045) (1 . "SEC-B") (50 . 0.0)
(41 . 1.0) (51 . 0.0) (7 . "Standard") (71 . 0) (72 . 0) (11 0.0 0.0 0.0) (210
0.0 0.0 1.0) (100 . "AcDbText") (73 . 0))

所选的文本图元信息里只有(10 306.151 707.412 0.0).第一个点
请知道的前辈指点,让我开窍开窍.先谢谢了.

oyxx_1023 · 发表于 2006-11-7 21:39:31

获得文本的高度和高宽比.再稍微计算一下就行了.

Dallas_whu · 发表于 2006-11-7 22:42:48

参考一下这个吧：
http://www.xdcad.net/forum/showt ... y=&pagenumber=2

carrot1983 · 发表于 2006-11-7 23:11:40

谢谢楼上的回复,我再去好好研究楼上的那个网址的贴.

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

[求助] [求助]：如何编写文本双下划线?

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

相关帖子