topic Re: Attributes Colours and Font Size in AutoCAD Forum

Attributes Colours and Font Size

Anonymous — Thu, 12 Sep 2019 14:59:20 GMT

Hi! Two questions on attributes

I am using attributes to export data from stands at a conference.

The attributes I am using are:

Block Name: Stand Size

Stand Ref Number

Stand Partner Name

Build Type

Availability

For availability we have Sold, Pipeline and Available. Is it possible to change the colour of the block based on which definition is given to the attribute ie Sold = Red, or would I still have to rely on layers for this.

Second Question

Some of the names I am putting in are quite long. When I was inputting them in manually I could split them over two or three lines if necessary so the font could remain large enough to read but still within the confines of the stand block. Is this still possible when its a visible attribute? Currently I have had to reduce the text size on the stands where there are long names and unfortunately acronyms aren't possible, I asked.

Thank you in advance for any help even if the answer isn't what I hoping for!

Re: Attributes Colours and Font Size

Moshe-A — Thu, 12 Sep 2019 17:52:37 GMT

@Anonymous hi,

check this lisp

enjoy

moshe

(defun c:sclr (/ data^ color ss AcDbBlkRef attributes^ tag value item)
 (setq data^ '(("SOLD" . 1) ("PIPELINE" . 2) ("AVAILABLE" . 3))) 
 (setq color (vlax-create-object (strcat "AutoCAD.AcCmColor." (substr (getvar "ACADVER") 1 2))))
  
 (if (setq ss (ssget '((0 . "insert") (2 . "stand size") (66 . 1))))
  (foreach ename (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))
   (setq AcDbBlkRef (vlax-ename->vla-object ename))
   (setq attributes^ (vlax-invoke AcDbBlkRef 'GetAttributes))

   (foreach AcDbAttrib attributes^
    (setq tag (strcase (vla-get-tagString AcDbAttrib)))

    (if (eq tag "AVAILABILITY")
     (progn
      (setq value (strcase (vla-get-textString AcDbAttrib)))
      (if (setq item (assoc value data^))
       (progn	
	(vla-put-ColorIndex color (cdr item))
	(vla-put-TrueColor AcDbAttrib color) 
       ); progn
      ); if
     ); progn
    ); if

    (vlax-release-object AcDbAttrib) 
   ); foreach  

   (vlax-release-object AcDbBlkRef) 
  ); foreach
 ); if

 (vlax-release-object color) 
 (princ)
)

Re: Attributes Colours and Font Size

Anonymous — Fri, 13 Sep 2019 14:33:21 GMT

Hey! I'm actually not familiar with lisp and neither are any of the engineers in my office (for once I didn't look like a total muppet asking them a coding question). Is there a different way of doing this?

Re: Attributes Colours and Font Size

qnologi — Fri, 13 Sep 2019 14:40:40 GMT

Copy the text provided into NotePad.

Save As (name.lsp)

Drag and drop that file into your drawing field.

Type: sclr

Do as it says.

Re: Attributes Colours and Font Size

Anonymous — Fri, 13 Sep 2019 14:58:28 GMT

Slrc is just asking me to select objects but wont do so.

Is there any non coding way of doing it? Or is there a beginners guide to lisp for autocad I can read to understand how to implement the code and then I'll come back with further questions that are less fundamental?

Re: Attributes Colours and Font Size

Moshe-A — Sat, 14 Sep 2019 08:09:37 GMT

@Anonymous hi,

Is there any non coding way of doing it?
if there was other way to do this you think we wouldn't tell you?!

Attached sclr.lsp (Set Color), save it to your desktop, open AutoCAD and reduce it size to half screen and move it to the left side of your screen, now move sclr.lsp to the right side of your screen so now you see AutoCAD open and the lisp. now drag and drop the lisp into the drawing area, this will load the lisp (another way to load lisp is using APPLOAD command)

command : SCLR <key-in the command>

Select objects: <select "stand size" blocks>

if the are some "stand size" blocks in your drawing that has attributes and if there is "availability" attribute and if it's value is "sold" it's color will turn red and if it's value is "pipeline" it's color will turn yellow and if it's value is "available" it's color will turn green.

if it doesn't work then one or some of the terms you specified are not match. post the dwg so i can take a look.

moshe

Re: Attributes Colours and Font Size

Anonymous — Mon, 16 Sep 2019 11:02:46 GMT

In my defense you are random people on the internet! When we inserted the code last time we were like "what if its a virus?" and then were like "this would be a really inefficient way of spreading a virus, hanging out in the autocad forum looking for idiots to upload code to their program"

OK I think I see the issue. So there are no blocks named STANDSIZE, they are all named the various stand sizes of which there are 12 at the moment. So, my guess would be, that for this I would need to enter the code 12 times, each time with the different block name instead of the word STANDSIZE?

I can't upload the file unfortunately as my company would be super not ok with the site plan getting out there for security reasons and I mostly like my job and don't want to get fired for leaving us open to terrorist attacks.

However I have a feeling, in not knowing this method I could have over complicated this for myself...