selection sets- separate

[brams]

So, now, i suppose Pbe won't ask me again to show my code . You like it, Pbe? The best code on the site!

[pBe]

So, now, i suppose Pbe won't ask me again to show my code

Not at all brams

You like it, Pbe? The best code on the site!

The idea is ok, just needs fine tuning.

Look into this _GetClosestTextTo sub-function: Renderman < post #6

HTH

[BlackBox]

A little help, please... for a new autolisp user

Seems to be what i'm searching for. Please, an example how to use your function together with ssget... to make 2 selection sets of points and texts, selecting objects only one time - i mean, a single "rectangle".

@brams: What editor are you using? Seems that you pasted some control tags along AutoLISP code.
Or did you tried to number the lines?!?

I've copied the code that I previously linked here.

FWIW

(defun c:sepsel ()
       (setq textsel  (ssadd)  PointSel (ssadd)
              ss       (ssget '((0 . "POINT,TEXT"))))
             (while (setq e (ssname ss 0))
   (if (eq (cdr (assoc 0 (entget e))) "POINT")
    (ssadd e PointSel)(ssadd e textsel))
                      (ssdel e ss)))

Perhaps localized variables would be useful? Otherwise running the code multiple times would provide some interesting results.

Look into this _GetClosestTextTo sub-function: Renderman < post #6

Cheers, Pbe

[Stefan BMR]

Brams, this is what you need?

(defun C:PZ ( / *error* ss i en el p p1 echo)
  
  (setq echo (getvar 'cmdecho))
  (setvar 'cmdecho 0)
  (command "UNDO" "BE")
  
  (defun *error* (msg)
    (if msg (princ msg))
    (command "UNDO" "E")
    (setvar 'cmdecho echo)
    (princ)
    )
  (princ "\nSELECTEAZA PUNCTELE SI TEXTELE")
  (if
    (setq ss (ssget '((0 . "TEXT,POINT") (8 . "Puncte,Cote")))) ; <- de modificat numele layerelor
    (repeat (setq i (sslength ss))
      (setq en (ssname ss (setq i (1- i))))
      (if
        (setq z (cdr (assoc 1 (setq el (entget en)))))
        (progn
          (setq p (assoc 10 el)
                p1 (list 10 (cadr p) (caddr p) (atof z))
                )
          (entmake (list '(0 . "POINT") '(8 . "Puncte") p1))
          (entmod (subst p1 p el))
          )
        (entdel en)
        )
      )
    )
  (*error* nil)
  (princ)
  )