文本调整正确显示

Lispboy · 发表于 2013-8-29 11:15:47

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

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

×

本帖最后由 Lispboy 于 2013-8-29 11:17 编辑

本函数致力将所有看着不正常的文本调整到符合习惯的位置显示，包括镜像，如果测试中发现有不能正确处理的文字，请跟帖截图，传DWG上来，供修改参考，谢谢！

;|
调整文字以正确的方向显示
参数：
e ---- 文字实体名
返回值：
T
|;
(defun XD::Text:Adjust (e / _tMirr 9pt1 box ecs mat mat0 mat1 mat2 mirrInx mirrIny p0 p0_1 p1 vx vy vz )
(defun _tMirr (e)
(setq mirrInx (xdrx_text_ismirroredInx e)
mirrIny (xdrx_text_ismirroredIny e)
)
(if mirrInx
(xdrx_text_setMirrorInx e nil)
)
(if mirrIny
(xdrx_text_setMirrorIny e nil)
)
(if (or
mirrInx
mirrIny
)
(progn
(setq box (XD::Entity:BoxAtEcs e e)
9pt1 (XD::Geom:BOX->9PT box)
p0_1 (last 9pt1)
)
(xdrx_entity_transform e (xdrx_matrix_setTranslation mat0
(mapcar
'-
p0
p0_1
)
)
)
)
)
)
(setq ecs (xdrx_entity_getecs e)
box (XD::Entity:BoxAtEcs e e)
9pt1 (XD::Geom:BOX->9PT box)
p1 (car box)
p0 (last 9pt1)
vx (cadr ecs)
vy (caddr ecs)
vz (last ecs)
mat0 (xdrx_matrix_identity 3)
mat1 mat0
mat2 mat0
)
(_tMirr e)
(if (< (car vx) 0.0)
(progn
(setq mat1 (xdrx_matrix_setrotation mat0 pi vy p0))
)
)
(if (< (cadr vy) 0.0)
(progn
(setq mat2 (xdrx_matrix_setrotation mat0 pi vx p0))
)
)
(setq mat (xdrx_matrix_product mat2 mat1))
(xdrx_entity_transform e mat)
)

;| 
调整文字以正确的方向显示 
参数： 
   e ---- 文字实体名 
返回值： 
   T 
|; 
(defun XD::Text:Adjust (e / _tMirr 9pt1 box ecs mat mat0 mat1 mat2 mirrInx mirrIny p0 p0_1 p1 vx vy vz ) 
  (defun _tMirr (e) 
    (setq mirrInx (xdrx_text_ismirroredInx e) 
          mirrIny (xdrx_text_ismirroredIny e) 
    ) 
    (if mirrInx 
      (xdrx_text_setMirrorInx e nil) 
    ) 
    (if mirrIny 
      (xdrx_text_setMirrorIny e nil) 
    ) 
    (if (or 
          mirrInx 
          mirrIny 
        ) 
      (progn 
        (setq box (XD::Entity:BoxAtEcs e e) 
              9pt1 (XD::Geom:BOX->9PT box) 
              p0_1 (last 9pt1) 
        ) 
        (xdrx_entity_transform e (xdrx_matrix_setTranslation mat0 
                                                             (mapcar 
                                                               '- 
                                                               p0 
                                                               p0_1 
                                                             ) 
                                 ) 
        ) 
      ) 
    ) 
  ) 
  (setq ecs (xdrx_entity_getecs e) 
        box (XD::Entity:BoxAtEcs e e) 
        9pt1 (XD::Geom:BOX->9PT box) 
        p1 (car box) 
        p0 (last 9pt1) 
        vx (cadr ecs) 
        vy (caddr ecs) 
        vz (last ecs) 
        mat0 (xdrx_matrix_identity 3) 
        mat1 mat0 
        mat2 mat0 
  ) 
  (_tMirr e) 
  (if (< (car vx) 0.0) 
    (progn 
      (setq mat1 (xdrx_matrix_setrotation mat0 pi vy p0)) 
    ) 
  ) 
  (if (< (cadr vy) 0.0) 
    (progn 
      (setq mat2 (xdrx_matrix_setrotation mat0 pi vx p0)) 
    ) 
  ) 
  (setq mat (xdrx_matrix_product mat2 mat1)) 
  (xdrx_entity_transform e mat) 
)

测试代码：

(defun c:tt()
(xdrx_begin)
(while (setq e (car (xdrx_entsel "\n拾取文字<退出>:" '((0 . "text")))))
(xd::text:adjust e)
)
(xdrx_end)
(princ)
)

Free-Lancer · 发表于 2013-8-29 12:56:39

会不会还有属性？

zhangq_cai1 · 发表于 2013-8-29 14:16:39

是不是修改了系统变量~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

XDSoft · 发表于 2013-8-29 16:27:09

zhangq_cai1 发表于 2013-8-29 14:16
是不是修改了系统变量~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

代码里面没有修改系统变量，程序不是通过修改系统变量实现的。

XDSoft · 发表于 2013-8-29 16:27:57

Free-Lancer 发表于 2013-8-29 12:56
会不会还有属性？

看代码应该支持属性文字，你试试。

st788796 · 发表于 2013-8-29 17:03:40

参数是 ent ，attref 是选择传递问题

XDSoft · 发表于 2013-8-29 17:25:23

st788796 发表于 2013-8-29 17:03
参数是 ent ，attref 是选择传递问题

得到属性的实体名，然后传递给函数就行了。

st788796 · 发表于 2013-8-29 21:24:43

本帖最后由 st788796 于 2013-8-29 22:28 编辑

那就这样写一个

(defun c:txtrec (/ ss e el)
(XD::Begin)
(if (setq ss (ssget ":L" '((-4 . "<or") (1 . "*TEXT")
(66 . 1)
(-4 . "or>")
)
)
)
(progn
(xdrx_setsstodb ss 0)
(while (setq e (xdrx_getentdata 0))
(if (wcmatch (xdrx_getentdxf 0) "*TEXT")
(setq el (list e))
(setq el (xdrx_block_getattribs e))
)
(mapcar
'XD::Text:adjust
el
)
)
)
)
(xd::end)
(princ)
)
(princ "\n命令: TxtRec. From www.xdcad.net.")
(princ)

Lisphk · 发表于 2013-8-29 21:44:00

st788796 发表于 2013-8-29 21:24
那就这样写一个

大大，这程序做什么的？

st788796 · 发表于 2013-8-29 21:52:43

Lisphk 发表于 2013-8-29 21:44
大大，这程序做什么的？

就是这个帖子标题啊!

Lisphk · 发表于 2013-8-29 22:01:25

st788796 发表于 2013-8-29 21:52
就是这个帖子标题啊!

那个SSGET :L参数是什么作用？

st788796 · 发表于 2013-8-29 22:11:28

Lisphk 发表于 2013-8-29 22:01
那个SSGET 参数是什么作用？

过滤掉锁定层

newer · 发表于 2013-8-29 22:21:49

st788796 发表于 2013-8-29 21:24
那就这样写一个

获得属性实体的API有函数， xdrx_block_getattribs.

st788796 · 发表于 2013-8-29 22:30:47

newer 发表于 2013-8-29 22:21
获得属性实体的API有函数， xdrx_block_getattribs.

已修改! 看来 API 要多用才能熟悉!

newer · 发表于 2013-8-29 22:41:35

st788796 发表于 2013-8-29 22:30
已修改! 看来 API 要多用才能熟悉!

呵呵，谁说的了，API就是要取消VLA，用VLA了就是对API还没熟悉{:soso_e113:}

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

[其他] 文本调整正确显示

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

点评

点评

点评

点评

点评

点评

点评

点评

点评