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

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › A/VLISP › [建议]：建议朋友们编个竖排汉字的程序！ ...
返回列表 发新帖
查看: 1083|回复: 7

[建议]：建议朋友们编个竖排汉字的程序！

[复制链接]
lhj743
发表于 2004-9-21 10:58:27 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

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

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

×
搜索了一下，没有这样的程序！
经常用到，
老是要转到天正去，
麻烦不少！
天正, 竖排, 汉字

相关帖子

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

使用道具 举报

urljit
发表于 2004-9-21 11:35:55 | 显示全部楼层
你的意思是选择现有文字还是让用户临时输入文字(？)然后改成竖排文字？
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

li_seagull
发表于 2004-9-21 12:27:51 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
晓东论坛里不呀，自己找吧！
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

梦断江南
发表于 2004-9-21 14:09:05 | 显示全部楼层
lzh写过一个，你搜索一下
方法是生成mtext，排版后炸开
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

wkai
发表于 2004-9-21 14:41:30 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
用这个试试, ratio  指的行距与字高的比


  3. ;;;Written by wkai @ xdcad.net
  4. (DEFUN text_to_lst (text / n char strlst)
  5. (SETQ n 1)
  6. (WHILE        (<= n (STRLEN text))
  7.   (SETQ char (SUBSTR text n 1))
  8.   (IF (> (ASCII char) 159)
  9.    (AND        (SUBSTR text (1+ n) 1)
  10.         (SETQ strlst (CONS (SUBSTR text n 2) strlst))
  11.         (SETQ n (1+ n))
  12.    )
  13.    (SETQ strlst (CONS char strlst))
  14.   )
  15.   (SETQ n (1+ n))
  16. )
  17. (REVERSE strlst)
  18. )
  19. (DEFUN c:tt (/ delta_y e ht lst m pt ratio ss)
  20. (SETQ ratio -1.5)
  21. (COMMAND "undo" "be")
  22. (SETQ ss (SSGET '((0 . "TEXT"))))
  23. (REPEAT (SETQ m (SSLENGTH ss))
  24.   (SETQ e (SSNAME ss (SETQ m (1- m))))
  25.   (SETQ pt (CDR (ASSOC 10 (ENTGET e))))
  26.   (SETQ        ht        (* ratio (CDR (ASSOC 40 (ENTGET e))))
  27.         delta_y        ht
  28.   )
  29.   (SETQ lst (text_to_lst (CDR (ASSOC 1 (ENTGET e)))))
  30.   (FOREACH n lst
  31.    (COMMAND "_copy" e "" "non" pt "non" (MAPCAR '+ pt (LIST 0 (SETQ delta_y (- delta_y ht)) 0)))
  32.    (ENTMOD (SUBST (CONS 1 n) (ASSOC 1 (ENTGET e)) (ENTGET (ENTLAST))))
  33.   )
  34.   (ENTDEL e)
  35. )
  36. (COMMAND "undo" "e")
  37. )
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

lhj743
 楼主| 发表于 2004-9-22 08:53:01 | 显示全部楼层
谢谢5楼Wkai斑竹，
这程序很不错。
但是你得修改一下，
文字怎么从下往上排。
呵呵，我不懂怎么编程，没法改，
也许仅仅改一个参数便行了。

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

使用道具 举报

wkai
发表于 2004-9-22 10:34:29 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

  3. ;;;Written by wkai @ xdcad.net
  4. (DEFUN text_to_lst (text / n char strlst)
  5. (SETQ n 1)
  6. (WHILE        (<= n (STRLEN text))
  7.   (SETQ char (SUBSTR text n 1))
  8.   (IF (> (ASCII char) 159)
  9.    (AND        (SUBSTR text (1+ n) 1)
  10.         (SETQ strlst (CONS (SUBSTR text n 2) strlst))
  11.         (SETQ n (1+ n))
  12.    )
  13.    (SETQ strlst (CONS char strlst))
  14.   )
  15.   (SETQ n (1+ n))
  16. )
  17. (REVERSE strlst)
  18. )
  19. (DEFUN c:tt (/ delta_y e ht lst m pt ratio ss)
  20. [color=red] (SETQ ratio (getreal "\n行距字高比:"))[/color]
  21. (COMMAND "undo" "be")
  22. (SETQ ss (SSGET '((0 . "TEXT"))))
  23. (REPEAT (SETQ m (SSLENGTH ss))
  24.   (SETQ e (SSNAME ss (SETQ m (1- m))))
  25.   (SETQ pt (CDR (ASSOC 10 (ENTGET e))))
  26.   (SETQ        ht        (* ratio (CDR (ASSOC 40 (ENTGET e))))
  27.         delta_y        ht
  28.   )
  29.   (SETQ lst (text_to_lst (CDR (ASSOC 1 (ENTGET e)))))
  30.   (FOREACH n lst
  31.    (COMMAND "_copy" e "" "non" pt "non" (MAPCAR '+ pt (LIST 0 (SETQ delta_y (- delta_y ht)) 0)))
  32.    (ENTMOD (SUBST (CONS 1 n) (ASSOC 1 (ENTGET e)) (ENTGET (ENTLAST))))
  33.   )
  34.   (ENTDEL e)
  35. )
  36. (COMMAND "undo" "e")
  37. )
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

lhj743
 楼主| 发表于 2004-9-22 12:19:08 | 显示全部楼层
谢谢斑竹！
还可调整字高比，
比天正的竖排汉字还好用！
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

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

本版积分规则

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

GMT+8, 2025-9-27 11:54 , Processed in 0.206976 second(s), 46 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2025 Discuz! Team.

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