[求助]：实体为什么没有移动?

挚友 · 发表于 2004-9-14 10:40:08

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

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

×

(defun dtxs_text(p t_value s1 / p t_value s1 ed)
(entmod (subst (cons (car (assoc 1 (entget s1))) t_value)(assoc 1 (entget s1)) (entget s1)))
((entmod (subst (cons (car (assoc 10 (entget s1))) P )(assoc 10 (entget s1)) (entget s1)))
(entupd s1)
)

想移动一个文字

aidraft · 发表于 2004-9-14 12:15:18

(defun dtxs_text  (p t_value s1 / p t_value s1 ed)
  (entmod (subst (cons (car (assoc 1 (entget s1))) t_value)
               (assoc 1 (entget s1))
               (entget s1)))
  (entmod (subst (cons (car (assoc 10 (entget s1))) P)
               (assoc 10 (entget s1))
               (entget s1)))
  (princ)
)
It works. But I suggest you to replace all (entget s1) with one elist, (entget) is extremely slow.

挚友 · 发表于 2004-9-14 13:54:22

我试过所有非文字的实体都可以这样修改起始点,可文字就不可以,(entmod )完后,再用entget查看列表,表中的10项还是原来的数据,为什么,怎么办才行... 我是在R14下开发的程序,考虑到兼容性,一直在使用lsip

aidraft · 发表于 2004-9-14 14:05:59

Sorry, I am not sure you understand my first reply or not.

挚友 · 发表于 2004-9-14 14:22:25

对英文我可能有理解的差异... 能用中文表述吗,谢谢..

ll_j · 发表于 2004-9-14 14:36:40

文字实体有两个控制点，就是组码10和11，只有在默认“左”对齐时组码10才有效，其他情况组码11有效，你可以看看联机帮助的DXF部分。

挚友 · 发表于 2004-9-14 14:54:40

非常感谢,我试了试确实如此..再次表示感谢.

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

[求助] [求助]：实体为什么没有移动?

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

相关帖子

浏览过的版块