分类编辑工具

newer · 发表于 2016-12-23 16:47:54

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

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

×

本帖最后由 newer 于 2016-12-23 17:34 编辑

(defun c:XDTB_SORTEdit (/ e filter sel ss)
  (xdrx_begin)
  (if (and
        (setq e (car (entsel "\n选择一个样本实体<退出>:")))
        (xdrx_pickset_redraw e)
        (setq filter (list (cons 8 (xdrx_getpropertyvalue e "layer" nil))
                           (cons 0 (car (xdrx_object_classname e)))
                     )
        )
        (xdrx_initssget "\n请选择编辑范围<退出>:")
        (setq ss (xdrx_ssget filter))
      )
    (progn
      (ssadd e ss)
      (xdrx_pickset_redraw ss)
      (xdrx_initget "C M P E")
      (setq sel (getkword (xdrx_prompt "\n选择了" (sslength ss) "个实体[移动(M)/拷贝(C)/删除(E)/修改属性(P)]<返回选择集>:"
                                       t
                          )
                )
      )
      (cond
        ((= sel "C")
          (xd::doc:command (list ".copy" ss ""))
        )
        ((= sel "M")
          (xd::doc:command (list ".move" ss ""))
        )
        ((= sel "E")
          (xdrx_entity_delete ss)
        )
        ((= sel "P")
          (xd::doc:command (list ".chprop" ss ""))
        )
        (t
          (xd::doc:command (list ".select" ss ""))
        )
      )
    )
  )
  (xdrx_end)
  (princ)
)

lcw9908 · 发表于 2017-1-24 16:26:33

啥也不说了，感谢楼主分享哇！

kqqt6236 · 发表于 2017-2-1 19:05:29

谢谢分享。

xdcad9819 · 发表于 2019-11-2 08:12:33

谢谢楼主无私奉献

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

[工具] 分类编辑工具

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