Add attribute if not exist in a particular block and make it invisible
@j.balasubramaniyam wrote:
... (foreach blk blks (setq def (vla-item (vla-get-blocks
(vla-get-activedocument (vlax-get-acad-object))) blk)) (if (/= "" (attributeTag-p (car (entsel)) "SHIPLOOSE"))
(prince); <----
)
...
This prince ?
@j.balasubramaniyam wrote:
Apologies. that is typo error
I know, I'm just messing with you. 😊
(defun c:add$ ( / ss i blk blks def AttObj prince)
(and
(setq ss (ssget '((0 . "INSERT"))))
(setq i (sslength ss))
(while (> i 0)
(setq blk (GetPropertyValue (ssname ss (setq i (1- i))) "BlockTableRecord/Name" ))
(if (not (vl-position blk blks))(setq blks (cons blk blks)))
blks
)
(foreach blk blks
(and
(Vlax-for obj (setq def (vla-item (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object))) blk))
(setq prince
(and
(eq (vla-get-ObjectName obj) "AcDbAttributeDefinition")
(eq (vla-get-tagstring obj) "PRICE ")
)
)
(null prince)
)
(setq AttObj (vla-addattribute def 8 acattributemodelockposition
"Enter Item #" (vlax-3D-point 72 84) "PRICE\U+0020"
"100"
)
)
(null (vlax-put AttObj 'Alignment acAlignmentmiddle))
(command "_.attsync" "_N" blk)
)
)
)
(princ)
)HTH
@j.balasubramaniyam wrote:
Regarding the LISP, it does not ask to select objects in the original version but the LISP you modified asking to select the Objects.
.... Also please make that particular attribute invisible.
Wrong! your posts shows this as the original
(setq ss (ssget '((0 . "INSERT"))))
You can however change it to
(setq ss (ssget "X" '((0 . "INSERT"))))
And this
(setq AttObj (vla-addattribute def 8 acattributemodelockposition
"Enter Item #" (vlax-3D-point 72 84) "PRICE\U+0020"
"100"
)
)
to this for "invisible"
(setq AttObj (vla-addattribute def 8 acAttributeModeInvisible "Enter Item #" (vlax-3D-point 72 84) "PRICE\U+0020" "100" ) )
If there's anything else after this you need to post a sample drawing
This
(eq (vla-get-tagstring obj) "PRICE ")
To
(wcmatch (vla-get-tagstring obj) "PRICE*")
Or better yet, go to where you copied the code at post #1 and request it there.
@j.balasubramaniyam wrote:
Hi, code looks perfect for me if null prince () called it has to skip the remaining steps and has to run null (vlax-put AttObj 'Alignment acAlignmentmiddle). But not happening I believe. Someminor changes to be done somewhere. I will post the dwg if possible as I am autocad only in my office laptop. Thank you so much for your support
Q: But why male models?
A: Are you serious? I just.. I just told you that a moment ago.
@j.balasubramaniyam wrote:
Yes you are answered it is working fine except it still adding the attribute to every block even if it exists. I could not able to find a solution.
@j.balasubramaniyam wrote:
.... tell why the issue happened in my official PC only?
If you are wondering why it works on some but not all, its because of the tag name:
- If the block already have a "PRICE" tag, and not as the result the program
the TAG name will probably just "PRICE" and not equal to "PRICE " < take note of the space as the program creates
When you encounter this problem, please Check the existing TAG name.
For clarity:
"PRICE\U+0020" <-- IF you dont have a any reason for adding the extra space might as well use "PRICE" on the code
(setq AttObj (vla-addattribute def 8 acAttributeModeInvisible "Enter Item #" (vlax-3D-point 72 84) "PRICE" "100" ) )
Below is the code modified so not to confused you with statement can understand it better.
(defun c:add$ ( / ss i blk blks def AttObj prince)
(if
(and
(setq ss (ssget "X" '((0 . "INSERT"))))
(setq i (sslength ss))
(while (> i 0)
(setq blk (GetPropertyValue (ssname ss (setq i (1- i))) "BlockTableRecord/Name" ))
(if (not (vl-position blk blks))(setq blks (cons blk blks)))
blks
)
)
(foreach blk blks
(Vlax-for obj (setq def (vla-item (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object))) blk))
;;; If this is not null that means "PRICE" tag already exist ;;
(setq prince
(and
(eq (vla-get-ObjectName obj) "AcDbAttributeDefinition")
(eq (vla-get-tagstring obj) "PRICE")
)
)
)
(if (= prince nil) ; <-- Confirms the current block has no attribute definitions named "PRICE"
(progn
(setq AttObj (vla-addattribute def 8 acAttributeModeInvisible ;<-- Add attribute definition
"Enter Item #" (vlax-3D-point 72 84) "PRICE" ;<-- Enter Item # as prompt
"100" ;<-- "100" as default value
)
)
(vlax-put AttObj 'Alignment acAlignmentmiddle)
(command "_.attsync" "_N" blk)
)
)
)
)
(princ)
)
HTH
