Topic: Block filter specific to an attribute

[Lee Mac]

Hi Kruuger,

There is nothing wrong with your code, but I just wanted to point out that it is more efficient to step through the SelectionSet only once, instead of twice, hence:

Code: [Select]

(defun c:test ( / ss st n ) 
  (if (setq ss (ssget "_X" '((0 . "INSERT") (66 . 1))))
    (if (setq st (getstring T "\nSpecify New Value: "))
      (repeat (setq n (sslength ss))
        (LM:SetAttributeValue (ssname ss (setq n (1- n))) "RAUM/GRUPPE" st)
      )
    )
  )
  (princ)
)




@Hugo,

Regarding Code posting have a read of this:

http://www.theswamp.org/index.php?topic=4429.0

[Hugo]

So I get an error message but

So bekomme ich aber eine Fehlermeldung

Specify New Value: 1
; Fehler: Fehlerhafter Argumenttyp: VLA-OBJECT <Objektname: 7ffff6a1990>

(defun c:Raumbuch (/ SS st n)
  (if (setq SS (ssget "_x" '((0 . "INSERT") (66 . 1)))) ;"_:L"
    (if (setq ST (getstring T "\nSpecify New Value: "))
      (repeat (setq n (sslength ss))
        (LM:SetAttributeValue (ssname ss (setq n (1- n))) "RAUM/GRUPPE" ST)
      )
    )
  )
  (princ)
  )

[Lee Mac]

So I get an error message but

Use the original version of LM:SetAttributeValue that you posted.

Also, I again urge you to read this:

http://www.theswamp.org/index.php?topic=4429.0

[Hugo]

@ Lee
Thanks works

How can I reach it I can make the selection with a "FPolygon.


@Lee
Danke funktioniert

Wie kann ich es erreichen das ich die Auswahl mit einer "FPolygon" erstellen kann.
   

[Lee Mac]

Remove the '_X' from the ssget function.

[Hugo]

So it is not able to create FPolygon 
So geht es aber nicht kann keine FPolygon erstellen

Code: [Select]

(defun c:Raumbuch (/ SS st n)
  (if (setq SS (ssget '((0 . "INSERT") (66 . 1))))
    (if (setq ST (getstring T "\nSpecify New Value: "))
      (repeat (setq n (sslength ss))
        (LM:SetAttributeValue (ssname ss (setq n (1- n))) "RAUM/GRUPPE" ST)
      )
    )
  )
  (princ)
  )

[Lee Mac]

Type 'F' when prompted for selection 

[Hugo]

Thanks Lee

It is with us "FP". : lol:

Danke Lee

Es ist bei uns "FP". 

[kruuger]

Hi Kruuger,

There is nothing wrong with your code, but I just wanted to point out that it is more efficient to step through the SelectionSet only once, instead of twice, hence:

Code: [Select]

(defun c:test ( / ss st n ) 
  (if (setq ss (ssget "_X" '((0 . "INSERT") (66 . 1))))
    (if (setq st (getstring T "\nSpecify New Value: "))
      (repeat (setq n (sslength ss))
        (LM:SetAttributeValue (ssname ss (setq n (1- n))) "RAUM/GRUPPE" st)
      )
    )
  )
  (princ)
)




@Hugo,

Regarding Code posting have a read of this:

http://www.theswamp.org/index.php?topic=4429.0

yes, you are right
thanks 
kruuger

[Hugo]

@ Kruuger, Lee

Now it works great, thank you both.   

Jetzt funktioniert es super, danke an beide.