[分享]：将几行文字均匀排列的程序

david96007 · 发表于 2004-7-28 13:17:48

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

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

×

将几行文字上下均匀排列！
在2000下运行可以，如果在14下运行，需要用vlisp编译成arx文件！
命令为：td

以前的程序未考虑用户坐标系下的情况！
刚才我改过了！欢迎大家重新下载！

应lp的要求，加入了输入行间距的功能！同时也改了以前的一个错误：z坐标弄错了！
2004.8.1.

lsjjm · 发表于 2004-7-28 13:54:17

请参考:
[php]
(defun c:test ()
  ;(vl-load-com)
  (setq ss (ssget '((0 . "TEXT"))))
  (setq dis (getreal "\nInput Space Between Rows: "))
  (setq nss (acet-ss-sort ss 'getx))
  (defun getx (ent)(cadr (cdr (assoc 10 ent))))
  (setq ssl (reverse (acet-ss-to-list nss)))
  (setq n 0)
  (setq p0 (cdr (assoc 10 (entget (car ssl)))))
  (foreach i ssl
(setq obj (vlax-ename->vla-object i))
(vla-put-insertionpoint obj (vlax-3d-point (list (car p0)(cadr p0))))
(setq p0 (list (car p0)(- (cadr p0) dis)))
  )
)
[/php]
功能: 垂直方向以最高的文本为基础依次向下按给定间隔排列;
水平方向以最高的文本对齐;
垂直方向次序保留原次序.

2002zjp · 发表于 2004-7-28 14:16:44

需要用vlisp编译成arx文件！如何做到请给指点。　谢谢

david96007 · 发表于 2004-7-28 15:23:34

file->make application->new application wizard

vlisp的for r14的！2000以上的好象不行！

lhdlgmz · 发表于 2004-7-30 17:44:56

奇怪！能均匀排列，但左右对齐偏了。

david96007 · 发表于 2004-7-30 23:52:11

对不起，这个程序我没考虑到用户坐标系的问题，楼上朋友我问题应该是发生在用户坐标系下吧？！
如果在世界坐标系下，应该没问题！
刚才我把程序改了一下，欢迎大家再试一试！

lhdlgmz · 发表于 2004-7-31 08:38:33

谢谢david96007 提醒,我上传的图确实是在用户坐标系试的,现在重新下载再试了,可以了.

fuyingjie · 发表于 2004-7-31 08:55:39

在2002下能否使用？

lhdlgmz · 发表于 2004-7-31 10:11:46

最初由 fuyingjie 发布
[B]在2002下能否使用？ [/B]

在ACAD2002上能用，我用的就ACAD2002。

yuanxiyi · 发表于 2004-7-31 10:42:39

我找了好久，终于有了

david96007 · 发表于 2004-8-1 20:22:51

程序又有了改动，欢迎大家重新下载！

梦断江南 · 发表于 2004-10-16 17:01:31

程序有个bug,对"对齐"方式的文字没有处理好
请用下面链接的程序生成各种定位方式的文本,然后测试

http://www.xdcad.net/forum/showthread.php?s=&threadid=265307

lb5221111 · 发表于 2006-4-7 12:04:49

谢谢拉，很有帮助

912707 · 发表于 2006-5-24 10:59:42

我不能下载，但还是要谢谢楼主的热心

tc405003 · 发表于 2006-6-13 00:11:04

角度不是90度或180度也行吗

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

[分享]：将几行文字均匀排列的程序

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

相关帖子