getpropertyvalue
@etilley327KA wrote:
....
(repeat (setq ii (sslength pointdata))(setq e (ssname pointdata (setq i (1- i))))....
Could it be a downstream result of the disagreement in variable names?
@etilley327KA wrote:
....
(setq ddl (cons (getpropertyvalue e "DESC2") ddl))(setq pointxy (cons (list (getpropertyvalue e "Position/X")(getpropertyvalue e "Position/Y")) pointxy))(cond((= (strcase ddl) "28") (command "_insert" "r" pointxy "28" "" "" ""))))....
That will fail because 'ddl' is not a text string, but a list of text strings. And that will fail because, similarly, 'pointxy' is not a point [XYZ coordinates list], but a list of points.
@etilley327KA wrote:
....
(repeat (setq ii (sslength fc))
(setq ee (ssname fc (setq ii (1- ii))))
....
What's 'fc'?
I'm really not sure I understand, but does this do what you mean?
(setq s (ssget "_A" '((0 . "INSERT") (2 . "SRVPNO5"))))
(repeat (setq g (sslength s))
(setq h (ssname s (setq g (1- g))))
(setq a (getpropertyvalue h "DESC2"))
(command "_.insert"
(cadr ; Block name
(assoc a
'(("28" "28") ("41" "R") ("45" "whatever") ("6" "something") ("1" "maybe")
;;; ... more as needed ...
); list
); assoc
); cadr
"_non" (getpropertyvalue h "Position")
"" "" "" ;;; <-- Scales vary??
); command
); repeat
But I notice that your "R" Block in the sample drawing is Inserted at a scale of 20, but your "28" Block at a scale of 1. So some accounting for that difference [and more differences with other Blocks?], or some Block redefinition, would be needed.
@Kent1Cooper wrote:
.... But I notice that your "R" Block in the sample drawing is Inserted at a scale of 20, but your "28" Block at a scale of 1. So some accounting for that difference [and more differences with other Blocks?], or some Block redefinition, would be needed.
Like this, building the necessary scale factors into the list of sub-lists?
(setq blklst '(("28" "28" 1) ("41" "R" 20) ("45" "whatever" 5) ("6" "something" 100) ("1" "maybe" 2)
;;; ... more as needed ...
); list
); setq
(setq s (ssget "_A" '((0 . "INSERT") (2 . "SRVPNO5"))))
(repeat (setq g (sslength s))
(setq h (ssname s (setq g (1- g))))
(setq a (getpropertyvalue h "DESC2"))
(command "_.insert"
(cadr (assoc a blklst)); Block name
"_non" (getpropertyvalue h "Position"); insertion point
(caddr (assoc a blklst)) "" 0 ; scales/rotation
); command
); repeat
@etilley327KA wrote:
... I would use a long list of (cond
(= (DESC2) 28) (command "_insert" "X,Y" "28" [not sure every insertion block will match the description] ...)
....
Attribute values can only be text strings, so at the least,
(= (DESC2) "28")
That assumes a defined function something like:
(defun DESC2 () (getpropertyvalue YourEntityName "DESC2"))
My suggestion goes about it in a different way, using a list (assoc)iating the Attribute's content with a Block name [and a scale in the second version], because it uses a lot less code than spelling out all those (cond)itions, but I think accomplishes the same thing.
Sorry about that -- my mistake [which I have corrected in Messages 9 & 10]. The list needs an apostrophe before it:
(setq blklst '(("28" "28" 1) ....
and in Messages 10 and 14, an additional right parenthesis at the end to conclude the (setq) function, and I put the ... more as needed ... inside the list and that additional one.
Read about the (list) and (quote) functions to learn more.
Given the back and forth about small parts, let's see how you put it all together -- post the entire code again for evaluation.
What does it actually return? How far does it get? If you temporarily don't localize the variables, but set them all to nil overtly at the beginning, you can check what's in them after you run it.
Just for fun [I don't think this should matter if you're in the space where the Block is when you run it], does it make any difference if you use selection mode "_X" instead of "_A"?
