[求助]：在LISP中，怎么检查某个特定的标注样式是否存在

LJCAD · 发表于 2004-5-28 08:56:30

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

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

×

在LISP中，怎么检查某个特定的标注样式是否存在，如不存在，则创建之？

snsj · 发表于 2004-5-28 11:26:49

最初由 LJCAD 发布
[B]在LISP中，怎么检查某个特定的标注样式是否存在，如不存在，则创建之？ [/B]

[php]
(defun dst (x /)
(if(null(tblsearch "dimstyle" x))
(command "-dimstyle" "s" x))
)
测试:
(dst "dsfd")
[/php]

maplesu · 发表于 2004-5-28 11:14:06

利用tblnext函数了
(setq new_dimstyle "nnn")
(setq dimstyle_name (tblnext "dimstyle" t))
(setq tt 0)
(while (/= dimstyle_name nil)
  (if (= new_dimstyle (cdr (assoc 2 dimstyle_name))) (setq tt 1))
  (setq dimstyle_name (tblnext "dimstyle"))
  )

这样tt为1则样式nnn已经存在，tt为0则样式nnn不存在

我认为你直接建立样式，要是重明将会直接修改吧！！

maplesu · 发表于 2004-5-28 12:11:42

哈哈，斑竹一提醒想起来了，有tblsearch函数呀！！
刚才怎么就忘了，谢谢斑竹了！！

LJCAD · 发表于 2004-5-28 17:40:06

呵呵，谢谢各位。现在也想起有tblsearch函数了，谢谢！！

csg6904 · 发表于 2018-12-25 10:35:30

很好，好像少个=号

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

[求助] [求助]：在LISP中，怎么检查某个特定的标注样式是否存在

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

相关帖子

Re: [求助]：在LISP中，怎么检查某个特定的标注样式是否存在