[求助]：改变文字角度

gucci218 · 发表于 2005-11-15 10:06:03

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

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

×

(defun c:ta()
  (setq newang (getangle "\n输入文字新角度:"))
  (setq ss (ssget))
  (setq n (sslength ss))
  (setq num 0)
(repeat n
  (setq en (ssname ss num))
  (setq endate (entget en))
  (setq oldang_date (assoc 50 endate))
  (setq newang_date (cons 50 newang))
  (setq endate (subst newang_date oldwang_date endate)) 这步为啥替换不了，群码50不是角度吗？
  (setq num (1+ num))
(entmod endate)
(prin1)
)
)

狂刀 · 发表于 2005-11-15 12:29:55

５０是可选，ｅｎｄａｔｅ里面可能没有
所以无从替换：）

gucci218 · 发表于 2005-11-15 12:36:09

老大，那怎莫给我改一下呀，我就不明白为啥没有呢

yunzhong80 · 发表于 2005-11-15 13:39:42

真是的大猪头，(setq endate (subst newang_date oldwang_date endate)) 当中你把oldang_date 写成oldwang_date 了啊，当然找不到了哟

yuer0103 · 发表于 2005-11-15 14:18:08

哈哈，4楼的兄弟，莫要太过于激动！

gucci218 · 发表于 2005-11-15 20:09:29

哈哈，犯低级错误了。。。

aeo · 发表于 2005-11-16 20:28:33

最初由狂刀发布
[B]５０是可选，ｅｎｄａｔｅ里面可能没有
所以无从替换：） [/B]

text的dxf50码是一定有的，但不一定发挥作用.
比如文字的对其方式是"对齐""调整" (dxf72 = 3 or 5)
这时候要改dxf11码才行.(两点决定角度)

所以不是没替换(写的没错)，而是替换了，但没起作用.

gucci218 · 发表于 2005-11-16 22:00:55

哦。。。看了，我得对群码多研究研究了，谢谢楼上了。

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

[求助] [求助]：改变文字角度

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

相关帖子