[编程申请]：如何修改点的坐标

tchg · 发表于 2003-2-11 14:07:26

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

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

×

(setq ent (entget enm))
(setq ent1
         (subst (list (10) (car pt) (cadr pt) ( ))
      (assoc 10 ent)
      ent
         )
)
(entmod ent1)

ll_j · 发表于 2003-2-11 14:27:12

最初由 tchg 发布
(setq ent (entget enm))
(setq ent1
         (subst (list (10) (car pt) (cadr pt) ( ))
      (assoc 10 ent)
      ent
         )
)
(entmod ent1)

这样试试：
(entmod (subst (list 10 1.0 1.0 0.0)[/COLOR] (assoc 10 (setq ename (entget (car (entsel))))) ename))

cssanhui · 发表于 2003-2-11 17:50:13

用下面的句子，错了找我。
(setq ent (entget enm))
(setq ent (subst (cons 10 (list (car pt) (cadr pt) 0.0)) (assoc 10 ent) ent))
(entmod ent)

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

[编程申请]：如何修改点的坐标

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

相关帖子

Re: [编程申请]：如何修改点的坐标