Hello,
we have usually more headers in one drawings. To save the time to fill all one by one I've created a lisp to do it.
I could manage it - the program is working for content. I used the getpropertyvalue and setpropertyvalue.
Sometimes the name is too long - in this case we setup the with factor of text less than 1 by Text Option.
Is it possible somehow to read and setup this With Factor?
Thanks
@eakos1 wrote:
we have usually more headers in one drawings. To save the time to fill all one by one I've created a lisp to do it.
I could manage it - the program is working for content...
Thanks
Where is the lisp?. we will just modify that to tackle with width issue.
If possible, post a drawing sample.
If i read the program correctly, IT copies the values of these TAGS from the selected block to the rest of the same block names
("DESCRIPTION" "ITEM" "DRAWING" "CUSTOMER" "ORIGINATOR" "DATE_DESIGN")
But now you want to include the width (ScaleFactor) yes?
Its just faster if I create new code, After this i will look at your code thoroughly and modify that.
(defun C:HEADER ( / TagList AttProp s allHeaderSelection atvSource i f tagValue selectionLable nameLable desCustomer)
(setq TagList '("DESCRIPTION" "ITEM" "DRAWING" "CUSTOMER" "ORIGINATOR" "DATE_DESIGN")
AttProp '("Tagstring" "Textstring" "ScaleFactor"))
(if (and
(setq s (ssget "_:S+." '((0 . "INSERT")(66 . 1) (2 . "Company_Header"))))
(setq allHeaderSelection (ssget "_X" '((0 . "INSERT")(66 . 1)(2 . "Company_Header"))))
)
(progn
(setq atvSource (mapcar '(lambda (at)
(mapcar '(lambda (v)
(Vlax-get at v)) AttProp
)
)
(Vlax-invoke (vlax-ename->vla-object (ssname s 0)) 'GetAttributes)))
(ssdel (ssname s 0) allHeaderSelection)
(repeat (setq i (sslength allHeaderSelection))
(foreach itm (Vlax-invoke (vlax-ename->vla-object
(ssname allHeaderSelection (setq i (1- i))))
'GetAttributes)
(if
(and
(member (setq tagValue (vla-get-tagstring itm)) TagList)
(setq f (assoc tagValue atvSource ))
)
(mapcar '(lambda (prop value)
(Vlax-put itm prop value))
(cdr AttProp) (cdr f)))
)
)
(if
(And
(setq selectionLable
(ssget "x"
'((0 . "INSERT") (2 . "5445_PRT-GLO-5113_TAKGEN_Master"))
)
)
(setq nameLable (ssname selectionLable 0))
(setq desCustomer (cadr (assoc "CUSTOMER" atvSource)))
)
(progn
(setpropertyvalue nameLable "ITEMC" desCustomer)
(setpropertyvalue nameLable "CUST_PART_NO" desCustomer)
)
)
)
)
(princ)
)
HTH
@eakos1 wrote:By headers problem can happen only by the "DESCRIPTION" so only here is the width factor important.
By the rest the number of the digits are fix.
I see, right now it does copy even the width for all the attributes the "Company_Header"block, let me modify the code. is there any particular reason why you're not using Visual lisp funtions? Do you want to stick with vanilla? or are you okay with using VL?
Refer to attached lisp file [ HEADER.lsp ]
@eakos1 wrote:
Thank you, it works fine. 🙂
Answering your question I stared programing in AutoLISP not so log time ago and as beginner I could do it this way. Only this is the reason for vanilla. I'm OK with this code.
Good for you @eakos1
I can still post a vanilla version if you want to study it. Just let me know.
@eakos1 wrote:
If you would do it it would be very nice. Yes, I would be happy if I could study it. 🙂
Vanilla flavour it is.
Weird, regardless of browser/computer/Laptop i use, the "Drag files" does not show to enable me to attached a file, sometimes its there, sometimes NOT. Weird.
Is it just me? Anways. I hope the issue goes away so i can attach the file later. Dont want to clutter the board with codes. It's only going to cause confusion.
Later
unfortunatelly the same result
I tried a variable too but it also not works.
(setq Header_name (cdr (assoc 2 (entget (ssname s 0)))))
(setq allHeaderSelection (ssget "_X" '((0 . "INSERT") (66 . 1) (cons 2 Header_name) )))
