[LISP程序]：求能一次性修改批量文字的JUSTIFY。

Jerry541 · 发表于 2004-9-18 13:02:12

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

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

×

求能一次性修改批量文字的JUSTIFY属性的LISP程序。即左对齐或右对齐等。

梦断江南 · 发表于 2004-9-18 15:11:52

cad200x 下属性面板里面直接改

Jerry541 · 发表于 2004-9-21 08:40:12

老兄，能说明白点吗？我不会啊，请问在14下怎么改？

ll_j · 发表于 2004-9-21 19:59:49

tjust是修改文本对齐方式而不改变文字位置的命令，是R2000以后的ET中附带的命令，R14不支持。

zxq0220 · 发表于 2004-9-23 11:32:18

R14下用CHTEXT.LSP即CHT命令可以更改文字的对齐方式。

lmt112233 · 发表于 2004-10-4 13:11:54

曉東工具箱內有一功能能一次性修改批量文字的JUSTIFY。

lsjjm · 发表于 2004-10-14 04:07:02

最初由 Jerry541 发布
[B]求能一次性修改批量文字的JUSTIFY属性的LISP程序。即左对齐或右对齐等。 [/B]

REFER TO:
[php]
(defun c:test () ;;for 2000+
  (vl-load-com)
  (setq align (getint "\nInput Alignment Code: "))
  (prompt "\nSelect Text: ")
  (setq ss (ssget '((0 . "TEXT"))) n 0)
  (while (< n (sslength ss))
(setq obj (vlax-ename->vla-object (ssname ss n)))
(vla-put-alignment obj align)
(setq n (1+ n))
  )
)
;
(defun c:test ();; for R14
  (setq align (getint "\nInput Alignment Code: "))
  (prompt "\nSelect Text: ")
  (setq ss (ssget '((0 . "TEXT"))) n 0)
  (while (< n (sslength ss))
(setq el (entget (ssname ss n)))
(entmod (subst (cons 72 align)(assoc 72 el) el))
(setq n (1+ n))
  )
)
[/php]

sunycgz · 发表于 2004-10-16 19:11:28

这些代码看不懂

silen618 · 发表于 2004-10-22 15:30:37

试了一下，改变对齐方式的同时也改变了文字的位置。

能否在不改变位置的前提下改变对齐方式。

又错了 · 发表于 2004-10-23 11:59:59

7楼楼主，我试了一下，怎么输入2、5时是文字的角度发生变化呀，而输入别的数值，就是往下移动？

silen618 · 发表于 2004-11-3 10:12:38

其实完全可以试着用一下justifytext命令。修改－>对象－>文字－>对正。

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

[LISP程序]：求能一次性修改批量文字的JUSTIFY。

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

相关帖子

Re: [LISP程序]：求能一次性修改批量文字的JUSTIFY。

浏览过的版块