[LISP函数]：如何用entmake()(或entmakex())

fjfdsd_lcl · 发表于 2004-11-26 19:14:01

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

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

×

如何用entmake()(或entmakex())创建字体样式。

ll_j · 发表于 2004-11-27 07:51:52

Alisp是这样：
[php](defun c:msty ()
  (setq stynam (getstring "\nStyle name: "))
  (entmake
(list
   '(0 . "STYLE")
   '(5 . "28")
   '(100 . "AcDbSymbolTableRecord")
   '(100 . "AcDbTextStyleTableRecord")
   (cons 2 stynam)
   '(70 . 0)
   '(40 . 0.0)
   '(41 . 0.6)
   '(50 . 0.161799)
   '(71 . 0)
   '(42 . 3.0)
   '(3 . "romans.shx")
   '(4 . "hxtxt.shx")
)
  )
)
[/php]

ghjkghjk · 发表于 2004-11-27 16:03:07

我也想请教！
不知 list 表对要哪些，如上例
(setq stynam "entmake_name")
(entmake (list '(0 . "STYLE") '(5 . "28") '(100 . "AcDbSymbolTableRecord") '(100 . "AcDbTextStyleTableRecord") (cons 2 stynam))
)
这样行吗？
不知后面到底要多少表对。

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

[LISP函数]：如何用entmake()(或entmakex())

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

相关帖子