topic Re: Script or Lisp to filter specific Text in Visual LISP, AutoLISP and General Customization Forum

Script or Lisp to filter specific Text

Anonymous — Mon, 14 Oct 2019 09:03:33 GMT

Hello,

my task is to make a Script or Lisp, so we can just run this to filter all specific text´s (like "KS" "WT" "GS" "WM" "KL") out, move them 100 right, delete the rest of the text´s and move the filtered text´s 100 back. Problem is that I am an absolute noob with scripts and Lisps because i have never worked with them before. If it´s possible it sohuld be done in a way that we didnt have to do anything eles than loading the script.

I would apriciate your help in German or English.

-Simon

Re: Script or Lisp to filter specific Text

ВeekeeCZ — Mon, 14 Oct 2019 09:21:54 GMT

This code selects all those texts. What would you do with an active selection next, is up to you.

(sssetfirst nil (ssget "_X" '((0 . "*TEXT") (1 . "KS,WT,GS,WM,KL"))))

Add this as a macro to your toolpalette.

Re: Script or Lisp to filter specific Text

Anonymous — Mon, 14 Oct 2019 10:06:59 GMT

Thx BeeKeeCZ for your reply,
before i had it like this in a .scr:

_move
all

0,0
100,0

thats to just move them 100 right ,
so i cant just copy your code infornt of it and use it like i tought it might work, can you explane my why

Re: Script or Lisp to filter specific Text

ВeekeeCZ — Mon, 14 Oct 2019 10:26:31 GMT

(sssetfirst nil (ssget "_X" '((0 . "*TEXT") (1 . "KS,WT,GS,WM,KL"))))
_move
0,0
100,0

But I wouldn't do that. Why to combine script and lisp if you can use just a lisp?

(defun c:MoveMyTextRight () (command "_move" (ssget "_X" '((0 . "*TEXT") (1 . "KS,WT,GS,WM,KL"))) "" "_non" '(0 0 0) "_non" '(100 0 0)) (princ))

How would you run the command? By name or using a toolpalette?

Re: Script or Lisp to filter specific Text

Anonymous — Mon, 14 Oct 2019 10:53:45 GMT

We would like to use them with drag and drop them into the drawings.

But when i copy your code into a lisp save it and drop it on the drawing exectly nothing happens. maybe i´m making a mistake?, but idk.

thx for your patience ^^"

Re: Script or Lisp to filter specific Text

ВeekeeCZ — Mon, 14 Oct 2019 11:03:48 GMT

It's not the way that people usually use, but possible... use just this part, save it as *.lsp and drag and drop it into dwg.

(command "_move" (ssget "_X" '((0 . "*TEXT") (1 . "KS,WT,GS,WM,KL"))) "" "_non" '(0 0 0) "_non" '(100 0 0))
(princ)

Or read HERE how people usually use lisps.

Re: Script or Lisp to filter specific Text

Anonymous — Mon, 14 Oct 2019 11:08:57 GMT

okey like that it works perfectly fine, now how about deleting the rest texts(is this posible without giving a "window" to mark them? and moving back the ones we moved out ?

Re: Script or Lisp to filter specific Text

dlanorh — Mon, 14 Oct 2019 11:16:12 GMT

Why move the text, then move it back? If you reverse the filter and select all text not matching you can just delete them.

Re: Script or Lisp to filter specific Text

Anonymous — Mon, 14 Oct 2019 11:21:38 GMT

it was thought as control, if we see yeah ther are 20 moved we know that everything is where it should be without having to watch directly over it. the rest of the texts is variable so i cant tell only from the deleted ones

Re: Script or Lisp to filter specific Text

Kent1Cooper — Mon, 14 Oct 2019 13:03:44 GMT

@Anonymous wrote:

it was thought as control, if we see yeah ther are 20 moved we know that everything is where it should be without having to watch directly over it. the rest of the texts is variable so i cant tell only from the deleted ones

This does that, but it happens so fast that you probably won't really see the ones moved over and then moved back.

(command
  "_.move" (setq ss (ssget "_X" '((0 . "*TEXT") (1 . "KS,WT,GS,WM,KL")))) "" "36,0" ""
  "_.erase" (ssget "_X" '((0 . "*TEXT"))) "_remove" ss ""
  "_move" ss "" "-36,0" ""
)

I tried putting a delay in, in a couple of places, but it seemed to delay the whole thing without delaying between operations. But you could see which ones were kept afterward, easily enough:

(command
  "_.move" (setq ss (ssget "_X" '((0 . "*TEXT") (1 . "KS,WT,GS,WM,KL")))) "" "36,0" ""
  "_.erase" (ssget "_X" '((0 . "*TEXT"))) "_remove" ss ""
  "_move" ss "" "-36,0" ""
)
(sssetfirst nil ss)

Which effectively could be done more simply, without the Moving since you don't really see that happen:

(setq ss (ssget "_X" '((0 . "*TEXT") (1 . "KS,WT,GS,WM,KL"))))
(command  "_.erase" (ssget "_X" '((0 . "*TEXT"))) "_remove" ss "")
(sssetfirst nil ss)

Re: Script or Lisp to filter specific Text

dlanorh — Mon, 14 Oct 2019 18:04:29 GMT

You could also just

(command  "_.erase" (ssget "_X" '((0 . "*TEXT") (-4 . "<NOT") (1 . "KS,WT,GS,WM,KL") (-4 .  "NOT>"))) "")

Re: Script or Lisp to filter specific Text

Sea-Haven — Tue, 15 Oct 2019 00:00:53 GMT

Just for future drag and dropping, you may have a defun that you want to run more than once so how to run 1st time then again ?

Its easy if you add the defun name in full at the end of the code it will run. I do most of mine this way. NOTE C: must be included if defun name.

(alert "Type MoveMyTextRight to run again")
(c:MoveMyTextRight)