删去圆内的圆和块，如何优化代码或者有更快捷的方法？

kanxiaokan

自己写了一个程序，功能是选择一个圆，然后删去所选圆内的圆和块。
但是处理速度太慢了，如何优化？或者有更快捷的方法？
自写代码，初学者，请各位大佬指教。
(defun c:dw (/ e r layer s n cen in_s lst stye in_p x)
  (vl-load-com)
  (command "_.undo" "be")
  (princ "\n删去所选圆内的圆孔和块.")
  (setq e (car (entsel "\n请选择圆:")))
  (setq r (* (vlax-get (vlax-ename->vla-object e) 'Diameter) 0.5))
  (setq layer (vlax-get (vlax-ename->vla-object e) 'Layer))
  (setq s (ssget "X" (list '(0 . "CIRCLE")(cons 8 layer)(cons 40 r))));选择所有圆
  (setq lst nil)
(repeat (setq n (sslength s));循环每个圆内的圆和块处理
  (setq e (ssname s (setq n (1- n))))
  (setq r (* (vlax-get (vlax-ename->vla-object e) 'Diameter) 0.5))
  (setq layer (vlax-get (vlax-ename->vla-object e) 'Layer))
  (setq cen (vlax-get (vlax-ename->vla-object e) 'Center))
  (setq in_s (ssget "X" (list (cons 8 (strcat "~"layer)))));选择所有物体
  (repeat (setq i (sslength in_s));单个圆内的圆和块处理
    (setq e (ssname in_s (setq i (1- i))))
    (setq stye (cdr (assoc 0 (entget e))))
    (cond ((= "CIRCLE" stye)
      (setq in_p (vlax-get (vlax-ename->vla-object e) 'Center))
      )
          ((= "INSERT" stye)
      (setq in_p (vlax-get (vlax-ename->vla-object e) 'InsertionPoint))
           )
          )
    (if (and (equal (car in_p) (car cen) r)   ;处理符合在圆的范围内的圆和块
             (equal (cadr in_p) (cadr cen) r)
             )
      (setq lst (cons e lst))
      )
    )
  )
(foreach x lst
  (command "erase" x "")
  )
  (command "_.undo" "e")
  (princ)
  )

satan421

数据量太大的时候，lisp再怎么优化也没用，考虑用C#或者C++吧

kanxiaokan

satan421 发表于 2019-7-28 16:21
数据量太大的时候，lisp再怎么优化也没用，考虑用C#或者C++吧

不懂C#和C++ 有相关的教程吗？

satan421

一点不懂的话，即使有教程，你短时间也做不出来，得安装Visual Studio,C++开发Arx，不同版本CAD还得用对应版本的VS和SDK。C#简单点，得引用对应版本CAD的库文件。

Andyhon

未调试证实...

单一图元
个人的常态是调用
(entdel x)  取代 (command "erase" x "")

效益差别不明...

另或可调试 vla-Delete

t18-13nil

command能不用尽量不用