设为首页收藏本站转
发帖领奖家园QQ群申请版主版主评价切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › XDRX_API技术支持 › 通用函数XD::Text:AdjustAlignMent有点问题。
返回列表 发新帖
查看: 844|回复: 5

[BUG报告] 通用函数XD::Text:AdjustAlignMent有点问题。

[复制链接]
evayleung

已领礼包: 2256个

财富等级: 金玉满堂
发表于 2018-10-1 12:13:45 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

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

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

×
本帖最后由 newer 于 2018-10-1 14:06 编辑

请原谅我不会发贴子，因为我很少发贴。谢谢。
条件是文字是右下对齐的。在用户坐标系下.
  1. (defun c:ttt ()
  2.         (setq e (car (xdrx_entsel  "\n 选择文字<退出>:" '((0 . "*text")))))
  3.         (XD::Text:AdjustAlignMent e 0 0)
  4.         (princ)
  5. )
  6. (defun c:ttt2 ()
  7.         (setq e (car (xdrx_entsel  "\n 选择文字<退出>:" '((0 . "*text")))))
  8.         (XD::Text:AdjustAlignMent2 e 0 0)
  9.         (princ)
  10. )


我只是把代码从说明上拷出来，然后把一些在CHM文件中可能显示错的文字改了一下，并未修改整体结构。然后下面的代码执行起来没问题。原代码在字变成左对齐时，文字会跑位置的。
  1. (defun XD::Text:AdjustAlignMent2 (e hmode vmode / box1 box2 mat mat0 p1 p2)
  2.         (setq box1 (XD::Entity:BoxAtEcs e e)
  3.                 p1 (car box1)
  4.                 mat0 (xdrx_matrix_identity 3)
  5.         )
  6.         (xdrx_text_setHozMode e hmode)
  7.         (if (and
  8.                                 (/= 0 hmode)
  9.                                 (/= 5 hmode)
  10.                         )
  11.                 (xdrx_text_setVerMode e vmode)
  12.         )
  13.         (setq box2 (XD::Entity:BoxAtEcs e e)
  14.                 p2 (car box2)
  15.                 mat (xdrx_matrix_setTransLation mat0 (mapcar      '-
  16.               (trans p1 1 0)
  17.                (trans p2 1 0)
  18.                       )
  19.                   )
  20.         )
  21.         (xdrx_Entity_transform e mat)
  22.         t
  23. )

0.GIF
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

evayleung

已领礼包: 2256个

财富等级: 金玉满堂
 楼主| 发表于 2018-10-1 12:15:04 | 显示全部楼层
本帖最后由 evayleung 于 2018-10-1 12:18 编辑

第二个文字变成左下对齐了，可能我也没搞清楚状况。左下应该跟左对齐是一样的吧
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

newer

已领礼包: 40个

财富等级: 招财进宝
发表于 2018-10-1 13:17:39 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
本帖最后由 newer 于 2018-10-1 13:43 编辑

改成下面的试试



  1. (defun XD::Text:AdjustAlignMent2
  2.        (e hmode vmode / box1 box2 mat mat0 p1 p2)
  3.   (setq        box1 (XD::Entity:BoxAtEcs e e)
  4.         p1   (car box1)
  5.         mat0 (xdrx_matrix_identity 3)
  6.   )
  7.   (xdrx_text_setHozMode e hmode)
  8.   (if (and (/= 3 hmode)(/= 5 hmode))
  9.     (xdrx_text_setVerMode e vmode)
  10.   )
  11.   (setq        box2 (XD::Entity:BoxAtEcs e e)
  12.         p2   (car box2)
  13.         mat  (xdrx_matrix_setTransLation
  14.                mat0
  15.                (mapcar '- (trans p1 1 0) (trans p2 1 0))
  16.              )
  17.   )
  18.   (xdrx_Entity_transform e mat)
  19.   t
  20. )


或者下面

  1. (defun XD::Text:AdjustAlignMent
  2.        (e hmode vmode / box1 box2 p1 p2 xdir)
  3.   (setq xdir (cadr (xdrx_entity_getecs e)))
  4.   (setq        box1 (xdrx_entity_box e xdir)
  5.         p1   (car box1)
  6.   )
  7.   (xdrx_text_setHozMode e hmode)
  8.   (if (and (/= 3 hmode)(/= 5 hmode))
  9.     (xdrx_text_setVerMode e vmode)
  10.   )
  11.   (setq        box2 (xdrx_entity_box e xdir)
  12.         p2   (car box2)       
  13.   )
  14.   (xdrx_entity_move e (trans p2 1 0)(trans p1 1 0))
  15.   t
  16. )

点评

evayleung
回复版主，上面两个函数都可以，希望下个版本能更新下XD::Text:AdjustAlignMent这个通用函数，xd-lisp-lib里面的原函数应该是有点问题的。  详情 回复 发表于 2018-10-1 14:01
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

evayleung

已领礼包: 2256个

财富等级: 金玉满堂
 楼主| 发表于 2018-10-1 14:01:52 | 显示全部楼层
本帖最后由 evayleung 于 2018-10-1 14:05 编辑
newer 发表于 2018-10-1 13:17
改成下面的试试

回复版主，上面两个函数都可以，希望下个版本能更新下XD::Text:AdjustAlignMent这个通用函数，xd-lisp-lib里面的原函数应该是有点问题的。顺便请教一下：怎么发的代码，我就发不了你这种格式。

点评

newer
我编辑了你的帖子，你编辑下看看里面  详情 回复 发表于 2018-10-1 14:07
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

newer

已领礼包: 40个

财富等级: 招财进宝
发表于 2018-10-1 14:07:17 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
evayleung 发表于 2018-10-1 14:01
回复版主，上面两个函数都可以，希望下个版本能更新下XD::Text:AdjustAlignMent这个通用函数，xd-lisp-li ...

我编辑了你的帖子，你编辑下看看里面

点评

evayleung
OK，I got it. 谢谢  详情 回复 发表于 2018-10-1 14:23
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

evayleung

已领礼包: 2256个

财富等级: 金玉满堂
 楼主| 发表于 2018-10-1 14:23:03 | 显示全部楼层
newer 发表于 2018-10-1 14:07
我编辑了你的帖子，你编辑下看看里面

OK，I got it. 谢谢
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-12-20 07:08 , Processed in 0.409910 second(s), 42 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表