[求助]：求多个文字角度统一置0 的lsp程序

onetech · 发表于 2006-9-29 16:44:02

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

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

×

有N个角度不同的文字，如何用用一个命令将角度统一置为0，autocad里虽然有多个文字属性更改，但是太慢了，效率太低。

zhgq · 发表于 2006-9-29 16:54:37

选中要修改的文字，在特性（Ctrl+1）对话框里将角度改为0

haibinpro · 发表于 2006-9-30 01:04:26

我很想知道怎么用lsp程序修改实体property的内容。
change
chprop
都不行。
本以为可以进来参考下，编辑个尺寸半标的程序。

eachy · 发表于 2006-9-30 05:34:44

既然要修改 Property 就应该看看ActiveX部分的 Help
[iframe h=600 w=100%]http://www.mjtd.com/object/acad2004/idh_text_object.htm[/iframe]

dwg001 · 发表于 2006-9-30 12:11:10

试试这个。[/COLOR]

[功能]：不同角度的字符改为统一的任意角度；
[使用]：如图纸旋转后字也旋转了，将字角度改为0度或任意角度。

Underway · 发表于 2006-9-30 13:29:41

;;; for "TEXT" only
(if (setq ss (ssget '((0 . "TEXT"))))
(progn
   (setq idx 0
      dxf50 '(50 . 0.0)
   )
   (while (setq ee (ssname ss idx))
   (setq idx (1+ idx)
         dat (entget ee)
   )
   (entmod (subst dxf50 (assoc 50 dat) dat))
) ) )

haibinpro · 发表于 2006-9-30 15:15:46

idx -0
是什么意思？赋值idx -0？

Underway · 发表于 2006-9-30 17:54:13

Just a typo error

受教了,已更正,thx

fsxm · 发表于 2006-9-30 20:42:09

偶强烈支持2楼zhgq 的"程序"啦~

xyp1964 · 发表于 2006-9-30 22:21:43

试试签名栏下的“文本编辑套件”程序，文本处理一网打尽：

雨箭风刀 · 发表于 2006-9-30 22:48:52

2楼方法最便捷

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

[求助] [求助]：求多个文字角度统一置0 的lsp程序

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

相关帖子