过滤某种图元

huangyusen2000 · 发表于 2013-11-30 19:00:14

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

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

×

(defun C:lty ()
  (prin1 "过滤某种对象图元")
  (setq dxlb (entget (car (entsel "选择一个图元"))))

  (setq dg0 (cdr (assoc 0 dxlb))) ;类型

;;;  (setq dg7 (cdr (assoc 7 dxlb))) ;字体
;;;  (setq dg8 (cdr (assoc 8 dxlb))) ;字体

;;;  (setq dg1 (cdr (assoc 1 dxlb))) ;内容

;;;  (setq dg40 (cdr (assoc 42 dxlb))) ;高度

  (command
"PSELECT"
(ssget "W"
   (getpoint "输入选择范围的第一点")
   (getpoint "输入选择范围的第二点")
   (List (cons 0 dg0)
;;;    (cons 62 dg62)
;;;    (cons 7 dg7)
;;;    (cons 8 dg8)
;;;    (cons 42 dg40)
   )
)
""
  )
)

吴外安放 · 发表于 2020-7-26 18:58:01

谢谢版主分享

xvjiex · 发表于 2022-4-15 08:14:50

感谢楼主分享！

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

[每日一码] 过滤某种图元

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