[求助]：关于尺寸标注文字位置调整的LISP求助

llhok · 发表于 2005-8-16 19:50:48

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

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

×

我想编一个调整标注文字位置的子程序（如下），问题是我发现文字不动，但是我手动挪动文字后，再加载程序却能改变位置，不知为何？

(defun cc (/ dim_data pt1 pt2  old_list new_list)
  (setq dim_data (entget (entlast)))
  (setq old_list (assoc 11 dim_data))
  (setq pt1 (cdr old_list))
  (setq pt2 (polar pt1 pi 1000))
(setq new_list (cons 11 pt2))
  (setq dim_data (subst new_list old_list dim_data))
  (entmod dim_data)
)

cy956 · 发表于 2005-8-16 20:10:45

查一下dxf70组码的128的解释，你程序中的dxf70的值加128试试。
（我电脑的字体有点问题，贴上来变乱码）。

llhok · 发表于 2005-8-16 21:03:31

我不知道如何加，求大哥帮忙一下，QQ:37730081,谢谢

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

[求助] [求助]：关于尺寸标注文字位置调整的LISP求助

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

相关帖子