how to insert and edit attributes of a block
Here's another way, [ Not as complete as Johns offering ]
(defun c:demo (/ _Insert&AddValue str p)
(defun _Insert&AddValue (bname p attvalue / blk)
(setq blk (vlax-invoke
(vlax-get
(vla-get-ActiveLayout
(vla-get-activedocument
(vlax-get-acad-object)))
'Block)
'InsertBlock p
bname 1 1 1 0))
(mapcar '(lambda (a b)
(vla-put-textstring a b))
(vlax-invoke blk 'Getattributes)
attvalue)
(princ)
)
(_Insert&AddValue
"YourBlockname"
"Yourcoordinates"
'("list of values" "for your attribute"));<-- order of attribute prompt
(princ)
)
HTH
Accepted solution
@Anonymous wrote:
Hello. I've tried to use your code, but I am a beginner in lisp taks, so guess what ... I was not succesful. I am sending a simple block as example, so supposing that I want to insert it at coordinates x=100 and y=12, with the attribute NUMBER=01 and CODE=9887, how can I indicate these number in the lisp. I've tried to perform it using your example but I really do not have enough knolegment with autolisps to make it work. I think I am forgeting something. Could you please help me ?
Of course, we will help you jean_rossini
Keep in mind that this is a demonstration code,
(defun c:demo (/ _Insert&AddValue str p)
(defun _Insert&AddValue (bname p attvalue / blk)
(setq blk (vlax-invoke
(vlax-get
(vla-get-ActiveLayout
(vla-get-activedocument
(vlax-get-acad-object)))
'Block)
'InsertBlock p
bname 1 1 1 0))
(mapcar '(lambda (a b)
(vla-put-textstring a b))
(vlax-invoke blk 'Getattributes)
attvalue)
(princ)
)
(_Insert&AddValue
"dt" (list 100.00 12.00 0.0) (list "9887" "01"))
(princ)
)
If you are planning to use for real, it may look something like this
(defun c:demo2 (/ _Insert&AddValue str p)
(defun _Insert&AddValue (bname p attvalue / blk)
(setq blk (vlax-invoke
(vlax-get
(vla-get-ActiveLayout
(vla-get-activedocument
(vlax-get-acad-object)))
'Block)
'InsertBlock p
bname 1 1 1 0))
(mapcar '(lambda (a b)
(vla-put-textstring a b))
(vlax-invoke blk 'Getattributes)
attvalue)
(princ)
)
;;; DATA ;;;
(setq blockname "dt")
(setq pointsforinsertion '( (129.341 88.4354 0.0)
(109.854 115.512 0.0)
(75.4478 96.6498 0.0)
(71.1851 134.375 0.0)
(33.4296 95.1286 0.0)))
(setq code '("123" "75675" "687" "2345" "okidoki"))
(setq counter '("01""02" "03" "04" "05"))
;;; END of DATA ;;;
;;; Pass the value to _Insert&AddValue function ;;;
(mapcar '(lambda (x y z)
(_Insert&AddValue blockname x (list y z)))
pointsforinsertion
code
counter)
;;; END of function ;;;
(princ)
)
HTH
@Anonymous wrote:
... Could you please help me again?
Of course, we'll help you.
I would suggest you include a check for existence of block name and data
(if
(and
(setq NOME (getfiled "Open file" "" "TXT" (+ 2 4)))
(tblsearch "BLOCK" (setq blockname "DT"))
)
(progn
(setq FD (open NOME "r"))
......
(close FD)
(mapcar '(lambda (x y z a)
(_Insert&AddValue
blockname
(list x y 0.0)
(list (itoa z) (itoa a)))
) coordx coordy code counter)
);progn
)
)
You may want to convert the items in code and counter list to a string before passing them to _Insert&AddValue unless of course yourre planning to use the values for something else that requires a number
You can also do it this way.
....
(setq CD1 (read CD)) ; it is the attribute CODE (_Insert&AddValue blockname (list nox1 noy1 0.0) (list (itoa CD1) (itoa a1))) ); while (close FD)
);progn
or even
...
(_Insert&AddValue blockname (list (read nox) (read noy) 0.0) (list (itoa (read CD)) (itoa (read a))))
...
You know what i mean...
Good luck jean_rossini
@Anonymous wrote:
It works perfectly. Thanks for all the support and advices, I've learned a bunch of new approaches with your codes. I am really grateful.
You are welcome jean_rossini,
We're happy to help.