Topic: Custom ssget function tester wanted

[It's Alive!]

I thought it might be useful to have a ssget function that allows for a custom prompt similar to ARX.  Please see the ARX documentation under acedSSget and refer to  “:$ “ mode . basically it allows one of the point parameters to be used as a prompt[], so if you need a to use a point don’t use this function
I have attached an ARX for 04-06 & 07-09, please let me know how it works.  I will post the source code here http://www.theswamp.org/index.php?topic=21875.0 after its tested

Thanks
Here are a couple of samples

Code: [Select]

(CRPSSGETEX ":$" "Add: " "Remove: ")
;;;
(CRPSSGETEX ":$" "Add: " "Remove: " '((8 . "0")))
;;;
(CRPSSGETEX
  ":$"
  "Add: "
  "Remove: "
  '((0 . "LINE") (8 . "0"))
)
;;;
(CRPSSGETEX
  ":$"
  "Select a Line or PolyLine: "
  "Remove a Line or PolyLine: "
  '((8 . "0")
    (-4 . "<OR")
    (0 . "*POLYLINE")
    (0 . "LINE")
    (-4 . "OR>")
   )
)
;;;
(defun c:tcl (/ b c s)
  (vl-load-com)
  (setq s (CRPSSGETEX
            ":$"
            "Select Text or Mtext: "
            "Remove Text or Mtext: "
            '((-4 . "<OR")(0 . "DTEXT") (0 . "TEXT") (0 . "MTEXT") (-4 . "OR>"))
          )
  )
  (if s
    (progn
      (setq b (getvar "clayer")
            c 0
      )
      (While (< c (sslength s))
        (vla-put-layer
          (vlax-ename->vla-object (cdr (car (entget (ssname s c)))))
          b
        )
        (setq c (1+ c))
      )
    )
    (alert (strcat "Could Not find any Text"))
  )
  (princ)
)


[VovKa]

thanks Daniel
but this one is not working

Code: [Select]

(CRPSSGETEX
  ":$"
  "Add: "
  "Remove: "
  '((0 . "LINE") (8 . "0"))
)


[alanjt]

is the coding for matchprop similar to something like this, more specifically, the part where after you select the source object, when the ssget option is active, you can also type s to access settings? i've been trying to find some documentation on an ssget option that will also let you type.

[It's Alive!]

thanks Daniel
but this one is not working

Code: [Select]

(CRPSSGETEX
  ":$"
  "Add: "
  "Remove: "
  '((0 . "LINE") (8 . "0"))
)


Thanks for testing this, I think I have it all fixed up
I have attached the new files to the first post

[VovKa]

everything seems to be ok.
now i've got to think what i can apply it to
thanks again.

[T.Willey]

Is there any room for a wishlist?   

Thinking out loud when I used one of my routines today.  It asks a question before it allows you do use the ssget, so I was wondering if you could program it so that one could use something like initget with ssget.  I don't think it is possible, but just incase it is that would be sweet.

[alanjt]

Is there any room for a wishlist?   

Thinking out loud when I used one of my routines today.  It asks a question before it allows you do use the ssget, so I was wondering if you could program it so that one could use something like initget with ssget.  I don't think it is possible, but just incase it is that would be sweet.

precisely what i was asking, i know it has to be possible. look at matchprop, after you select your source object, you have an ssget with an option to type "s" to access settings.

can you grread with ssget to be able to just select normally with ssget, or if you start typing, it does something else?

[T.Willey]

Is there any room for a wishlist?   

Thinking out loud when I used one of my routines today.  It asks a question before it allows you do use the ssget, so I was wondering if you could program it so that one could use something like initget with ssget.  I don't think it is possible, but just incase it is that would be sweet.

precisely what i was asking, i know it has to be possible. look at matchprop, after you select your source object, you have an ssget with an option to type "s" to access settings.

can you grread with ssget to be able to just select normally with ssget, or if you start typing, it does something else?

You could use this as a starting ground.

[It's Alive!]

Is there any room for a wishlist?   

Thinking out loud when I used one of my routines today.  It asks a question before it allows you do use the ssget, so I was wondering if you could program it so that one could use something like initget with ssget.  I don't think it is possible, but just incase it is that would be sweet.

It just might be possible using :K , I will take a look