[求助]：如何获取层名

winabcd · 发表于 2004-8-26 11:15:53

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

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

×

我想用LISP程序得到图形中所有的层名，请指教

aidraft · 发表于 2004-8-26 12:22:51

TBLSEARCH & TBLNEXT

wkai · 发表于 2004-8-26 12:23:10

(defun c:test (/ d)
  (while
(setq d (tblnext "layer" (null d)))
   (princ (cdr (assoc 2 d)))
   (princ "\n")
  )
  (princ)
)

lsjjm · 发表于 2004-8-29 17:04:04

这样更通用:
[php]
(defun tablelist (s / d r)
  (while
(setq d (tblnext s (null d)))
(setq r (cons (cdr (assoc 2 d)) r))
  )
)
(defun c:test ()
  (tablelist "dimstyle")
)
[/php]
s 可以是LAYER,BLOCK,DIMSTYLE...

winabcd · 发表于 2004-8-30 12:58:43

我已试用上述程序，结果很好，谢谢各位的指教！！！

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

[求助] [求助]：如何获取层名

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

相关帖子

浏览过的版块