[求助]：请教怎么获得块中包含的多个图元的信息？

eobser · 发表于 2006-9-12 13:03:26

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

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

×

块中可能有文字、线等多图元，怎么获得其图元名或其他？
艰难入门中，谢谢指点！

Underway · 发表于 2006-9-12 14:06:35

http://www.jtbworld.com/lisp/axblock.htm

;;; Returns a list containing every reference to a given block
;;; Arguments: a string identifying the block to search for
(defun listblockrefs (blkName / lst)
  (setq lst (entget
      (cdr (assoc 330 (entget (tblobjname "block" blkName))))
      )
  )
  (apply
'append
(mapcar '(lambda (x)
         (if (entget (cdr x))
   (list (cdr x))
         )
      )
      (cdr (reverse (cdr (member (assoc 102 lst) lst))))
)
  )
)

eobser · 发表于 2006-9-12 17:01:50

收到，谢谢！我试试再来

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

[求助] [求助]：请教怎么获得块中包含的多个图元的信息？

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

相关帖子