[ARX函数]：求助：怎样用LISP改文字宽度比例

tcydx · 发表于 2006-4-7 09:41:57

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

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

×

请教大家：怎样用用LISP实现将宽度比例大于0.7的文字，宽度比例改为0.7。

yshf · 发表于 2006-4-7 11:30:06

[php]
(setq ent (car (entsel "\n选择要修改宽度比例的单行文字:"))
      dxf (entget ent)
)
(if (> (cdr (assoc 41 dxf)) 0.7)
(progn
   (setq dxf (subst (cons 41 0.7) (assoc 41 dxf) dxf))
   (entmod dxf)
  )
)[/php]

tcydx · 发表于 2006-4-7 11:37:59

很好用,很简洁,谢谢!

YAN888555 · 发表于 2006-4-7 13:10:55

我觉得可以

chen7560152 · 发表于 2021-9-21 03:15:18

学习了哈~~~~

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

[ARX函数]：求助：怎样用LISP改文字宽度比例

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

相关帖子