清除无用的shape

wrsxed · 发表于 2018-6-29 11:32:26

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

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

×

本帖最后由 wrsxed 于 2018-6-29 11:34 编辑

(defun c:delshape  ()
  (setvar "CMDECHO" 0)
  (setq       n 0
      nshapes       0
      delete 0
      )
  (setq shapes (ssget "_X" '((0 . "SHAPE"))))
  (setq shapes_name (ssget "_X" (list (cons 0 "SHAPE") (cons 2 "*"))))
  (if (/= shapes nil)
(setq nshapes (sslength shapes))
)
  (if (and (= shapes_name nil) (/= shapes nil))
(progn
   (while (< n nshapes)
      (setq entity (ssname shapes n))
      (entdel entity)
      (setq delete (+ 1 delete))
      (setq n (+ 1 n))
      )
   )
)
  (while (and (< n nshapes) (/= shapes nil) (/= shapes_name nil))
(setq entity (ssname shapes n))
(if       (or (= (ssmemb entity shapes_name) nil))
   (progn
      (entdel entity)
      (setq delete (+ 1 delete))
      )
   )
(setq n (+ 1 n))
)
  (command "._purge" "_sh" "" "_n")
  (princ delete)
  (princ " shape(s) deleted\n")
  (prinC)
  )

Lisphk · 发表于 2018-6-29 15:21:33

楼主，这是插件还是函数啊？

yangjian001 · 发表于 2018-6-30 01:13:32

做一个热心并受欢迎的人

qyming2000 · 发表于 2018-12-12 22:03:08

shape的组码是什么
来自: 微社区

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

[工具] 清除无用的shape

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