Topic: Why alls object remove

[Adesu]

Hi Alls,
Now you should create a rectangular, then extrude it, now use this code, but alls object remove, I want only one object stayed in

Code: [Select]

(defun c:test (/ cnt ss ssl ssn sso ssr ssx)
  (if
    (setq ss (car (entsel "\nSelect 3D objeck")))
    (progn
      (command "_explode" ss)
      (prompt "\nSelect alls object")
      (setq ssx (ssget))
      (prompt "\nSelect only one object")
      (setq sso (ssget))
      (setq ssr (ssname sso 0))
      (setq ssl (sslength ssx))
      (setq cnt 0)
      (repeat
ssl
(setq ssn (ssname ssx cnt))
(if
  (/= ssr ssn)
  (command "_erase" ssn "")
  ) ; if
(setq cnt (1+ cnt))
)   ; repeat
      )     ; progn
    (alert "\nInvalid selected object, please try again")
    )       ; if
  (princ)
  )         ; defun


[HofCAD]

Hi Adesu,

Why not

Code: [Select]

(defun c:test ( / ss ssr ssx)
  (if
    (setq ss (car (entsel "\nSelect 3D object for explode")))
    (progn
      (command "_explode" ss)
      (prompt "\nSelect all objects to remove")
      (setq ssx (ssget))
      (setq ssr (car (entsel "\nSelect only one object")))
      (command "_ERASE" ssx "R" ssr "")
    )       ; if
  (princ)
  )         ; defun
HofCAD CSI

[Adesu]

Hi HofCAD,
yes that is as alternative, thanks for yor share your code.

Hi Adesu,

Why not

Code: [Select]

(defun c:test ( / ss ssr ssx)
  (if
    (setq ss (car (entsel "\nSelect 3D object for explode")))
    (progn
      (command "_explode" ss)
      (prompt "\nSelect all objects to remove")
      (setq ssx (ssget))
      (setq ssr (car (entsel "\nSelect only one object")))
      (command "_ERASE" ssx "R" ssr "")
    )       ; if
  (princ)
  )         ; defun
HofCAD CSI