（XD::DrawOrder:GetFullList）获取draworder所有对象的顺序表

marting · 发表于 2017-12-17 13:48:50

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

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

×

本帖最后由 marting 于 2017-12-17 13:51 编辑

[JavaScript] 纯文本查看 复制代码

;; space = nil , 查模型空间
;; retflag = t, 返回实体表，否则返回vla对象表
(defun XD::DrawOrder:GetFullList (space retflag / extdict sorttbl objs)
  (if (not space)
    (setq space        (vla-get-modelspace
                  (vla-get-activedocument (vlax-get-acad-object))
                )
    )
  )
  (setq extdict (vla-getextensiondictionary space))
  (if (and (not (zerop (vla-get-count extdict)))
           (setq sorttbl (vla-getobject extdict "acad_sortents"))
      )
    (progn (vla-getfulldraworder sorttbl 'objs :vlax-false)
           (setq objs (reverse (vlax-safearray->list objs)))
           (if (eq retflag t)
             (mapcar '(lambda (x) (vlax-vla-object->ename x)) objs)
             objs
           )
    )
  )
)

yjch · 发表于 2017-12-17 17:36:08

好好学习天天向上

HLCAD · 发表于 2017-12-18 08:40:21

谢谢大师的程序

yoyoho · 发表于 2017-12-21 07:23:11

感谢分享程序！！！！！

kqqt6236 · 发表于 2017-12-22 00:05:30

draworder是什么？

q3_2006 · 发表于 2018-8-21 19:28:25

如何记录顺序并恢复顺序呢

434939575 · 发表于 2023-7-8 18:15:07

这个厉害，

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

[其他] （XD::DrawOrder:GetFullList）获取draworder所有对象的顺序表

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