All Activity

I have done something like this a couple of years ago :

I would like to help someone who, like me, will need it and post the list. (defun c:SetByBlockDeep (/ sel i ent obj name nameList) (vl-load-com) ;; --- Funzione Ricorsiva per processare le definizioni --- (defun process-block-def (blockName / bDef) (setq bDef (vla-item (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object))) blockName)) (vlax-for subEnt bDef ;; 1. Cambia Colore e Trasparenza dell'entità corrente (vla-put-color subEnt 0) ; 0 = ByBlock (vla-put-entitytransparency subEnt "ByBlock") ;; 2. Se l'entità è a sua volta un blocco (nidificato), processa la sua definizione (if (= (vla-get-ObjectName subEnt) "AcDbBlockReference") (progn (if (vlax-property-available-p subEnt 'EffectiveName) (process-block-def (vla-get-EffectiveName subEnt)) (process-block-def (vla-get-Name subEnt)) ) ) ) ) ) ;; ------------------------------------------------------- (princ "\nSeleziona blocchi (verranno processati tutti i livelli nidificati)...") (if (setq sel (ssget '((0 . "INSERT")))) (progn (setq nameList '()) (repeat (setq i (sslength sel)) (setq ent (ssname sel (setq i (1- i)))) (setq obj (vlax-ename->vla-object ent)) ;; Ottieni il nome (gestendo i dinamici) (if (vlax-property-available-p obj 'EffectiveName) (setq name (vla-get-EffectiveName obj)) (setq name (vla-get-Name obj)) ) ;; Se non abbiamo ancora processato questo blocco, avvia la ricorsione (if (not (member name nameList)) (progn (process-block-def name) (setq nameList (cons name nameList)) ) ) ) (vla-regen (vla-get-activedocument (vlax-get-acad-object)) acAllViewports) (princ (strcat "\nCompletato. " (itoa (length nameList)) " definizioni di blocco e relativi sotto-blocchi aggiornati.")) ) (princ "\nNessun blocco selezionato.") ) (princ) )

Thank you @Steven P, Cheers .

thanks for your gide

so this makes the color byblock and the transparency byblock in the blocks?

I'm working and I don't have time. Not everyone is as good at programming as you. Why did you respond so rudely? I think that without creating unnecessary controversy you could have not responded if the matter bothered you. Did you have a bad Christmas? However thanks

with mtext, you have to use a fixed width font import traceback from pyrx import Ap, Db, Ed import art @Ap.Command() def doit(): try: db = Db.curDb() mt = Db.MText() mt.setDatabaseDefaults() val = art.text2art("Sup Dude!", font="big", sep ="\\P") mt.setContents("{\\Fmonotxt8|c0;" + val + "}") db.addToModelspace(mt) except Exception as err: traceback.print_exception(err)

here's your big text import traceback from pyrx import Ap, Db, Ed ascii = {'A': ['▄████▄ ', '██ ██ ', '██████ ', '██ ██ ', '██ ██ '], 'B': ['█████ ', '██ ██ ', '█████ ', '██ ██ ', '█████ '], 'C': ['▄█████ ', '██ ', '██ ', '██ ', '▀█████ '], 'D': ['█████ ', '██ ██ ', '██ ██ ', '██ ██ ', '█████ '], 'E': ['▄█████ ', '██ ', '█████ ', '██ ', '▀█████ '], 'F': ['██████ ', '██ ', '████ ', '██ ', '██ '], 'G': ['▄█████ ', '██ ', '██ ███ ', '██ ██ ', '▀████▀ '], 'H': ['██ ██ ', '██ ██ ', '██████ ', '██ ██ ', '██ ██ '], 'I': ['██ ', '██ ', '██ ', '██ ', '██ '], 'J': [' ██ ', ' ██ ', ' ██ ', '██ ██ ', '██████ '], 'K': ['██ ██ ', '██ ██ ', '█████ ', '██ ██ ', '██ ██ '], 'L': ['██ ', '██ ', '██ ', '██ ', '█████ '], 'M': ['▄██████▄ ', '██ ██ ██ ', '██ ██ ██ ', '██ ██ ', '██ ██ '], 'N': ['██ ██ ', '███ ██ ', '██████ ', '██ ███ ', '██ ██ '], 'O': ['▄████▄ ', '██ ██ ', '██ ██ ', '██ ██ ', '▀████▀ '], 'P': ['█████ ', '██ ██ ', '█████ ', '██ ', '██ '], 'Q': [' ████ ', '██ ██ ', '██▀▄██ ', '██ ██ ', ' ███ █ '], 'R': ['█████ ', '██ ██ ', '█████ ', '██ ██ ', '██ ██ '], 'S': ['▄████ ', '██ ', '▀███▄ ', ' ██ ', '████▀ '], 'T': ['██████ ', ' ██ ', ' ██ ', ' ██ ', ' ██ '], 'U': ['██ ██ ', '██ ██ ', '██ ██ ', '██ ██ ', ' ████ '], 'V': ['██ ██ ', '██ ██ ', '██ ██ ', ' ██ ██ ', ' ███ '], 'W': ['██ █ ██ ', '██ █ ██ ', '██ █ ██ ', '▀█████▀ ', ' █ █ '], 'X': ['██ ██ ', '██ ██ ', ' ██ ', '██ ██ ', '██ ██ '], 'Y': ['██ ██ ', '██ ██ ', ' ████ ', ' ██ ', ' ██ '], 'Z': ['██████ ', ' ██ ', ' ██ ', '██ ', '██████ '], '0': [' ████ ', '██ ██ ', '██▀▄██ ', '██ ██ ', ' ████ '], '1': [' ██ ', '▄███ ', ' ██ ', ' ██ ', ' ██ '], '2': [' ████ ', '█ ██ ', ' ██ ', '██ ', '██████ '], '3': ['█████ ', ' ██ ', '█████ ', ' ██ ', '█████ '], '4': ['██ ██ ', '██ ██ ', '██████ ', ' ██ ', ' ██ '], '5': ['█████ ', '██ ', '████ ', ' ██ ', '████ '], '6': [' █████ ', '██ ', '█████ ', '██ ██ ', ' ████ '], '7': ['██████ ', ' ██ ', ' ██ ', ' ██ ', '██ '], '8': [' ████ ', '██ ██ ', ' ████ ', '██ ██ ', ' ████ '], '9': [' ████ ', '██ ██ ', ' █████ ', ' ██ ', ' ███ '], ':': [' ', '██ ', ' ', '██ ', ' '], '&': [' ███ ', '██ ██ ', ' █████ ██ ', '██ ███ ', ' █████ ██ '], ' ': [' ',' ',' ',' ',' '] } def _Big_text(text: str): lines = [""] * 5 text = text.upper() for char in text: pattern = ascii.get(char, [" ??? " ] * 5) for i in range(5): lines[i] += pattern[i] for line in lines: print(line) @Ap.Command() def doit1(): try: _Big_text("Sup coders") except Exception as err: traceback.print_exception(err)

There's also art https://pypi.org/project/art/ might take some work to get it in am mtext import traceback from pyrx import Ap, Db, Ed import art @Ap.Command() def doit1(): try: art.tprint("Sup coders") except Exception as err: traceback.print_exception(err)

Made a custom interface for logging measurements of parts so no cad. need to output errors or other prompts to the screen that can be seen from about 5 feet. wouldn't mind taking a look at the lisp also guessing its mtext?

I have to agree with Bigal about to (new)bee or not to (new)bee but to give you an idea ; (setq val (getentitytransparency (car (entsel)))) (defun getentitytransparency ( ent ) (cond ((= 'vla-object (type ent))(vla-get-entitytransparency ent)) ((= 'ename (type ent))(getentitytransparency (vlax-ename->vla-object ent))))) ; (< lower-limit test-number upper-limit) ; (putentitytransparency (car (entsel)) "ByBlock") (putentitytransparency (car (entsel)) 100) (defun putentitytransparency (e v / i o) (cond ((null v)(setq v "ByLayer"))((and (numberp v)(< 0 v 90))(setq v (itoa (fix v)))) ((and (= (type v) 'STR) (distof v) (>= 0 (setq i (fix (distof v))) 90))(setq v (itoa i))) ((and (= (type v) 'STR) (member (strcase v t)'("bylayer" "byblock"))) v)(t (setq v "0"))) (if (setq o (e->o e))(vla-put-entitytransparency o v)))

"Not familiar with lisp" but you have 662 posts time to start learning and experimenting.

@mhupp do you want a lisp version of that ? It works same way uses "*". I think it was 1990.s used it as header in lisp programs.

Can you modify the code please ? I am not familiar with lisp. Only want tò setbyblock block .color: setbyblock Transparency: byblock

He is only jealous that it hasn't got above freezing here today, new years day BBQ? Pah! Having said that, a great animation and happy new year to all.

Holidays... CAD is off, but if it is like layer transparency then you might need to look at extended entity definitions, I think Lee Mac had something somewhere for layers that might apply - check his website or search on this forum. Could always double check, set a block to a transparency, I tend to use 12.3456 because that number is easy to spot, and do an (entget(car(entsel))) to the block and see if you can spot an part of the definition with 12.3456.. and that is what to change

That does not come into play until you start drawing the required elevation, section and details.

@Danielm103 I have Gotten into Python haven't used it for CAD yet. This will output to the terminal when you really need to see something. ascii = {'A': ['▄████▄ ', '██ ██ ', '██████ ', '██ ██ ', '██ ██ '], 'B': ['█████ ', '██ ██ ', '█████ ', '██ ██ ', '█████ '], 'C': ['▄█████ ', '██ ', '██ ', '██ ', '▀█████ '], 'D': ['█████ ', '██ ██ ', '██ ██ ', '██ ██ ', '█████ '], 'E': ['▄█████ ', '██ ', '█████ ', '██ ', '▀█████ '], 'F': ['██████ ', '██ ', '████ ', '██ ', '██ '], 'G': ['▄█████ ', '██ ', '██ ███ ', '██ ██ ', '▀████▀ '], 'H': ['██ ██ ', '██ ██ ', '██████ ', '██ ██ ', '██ ██ '], 'I': ['██ ', '██ ', '██ ', '██ ', '██ '], 'J': [' ██ ', ' ██ ', ' ██ ', '██ ██ ', '██████ '], 'K': ['██ ██ ', '██ ██ ', '█████ ', '██ ██ ', '██ ██ '], 'L': ['██ ', '██ ', '██ ', '██ ', '█████ '], 'M': ['▄██████▄ ', '██ ██ ██ ', '██ ██ ██ ', '██ ██ ', '██ ██ '], 'N': ['██ ██ ', '███ ██ ', '██████ ', '██ ███ ', '██ ██ '], 'O': ['▄████▄ ', '██ ██ ', '██ ██ ', '██ ██ ', '▀████▀ '], 'P': ['█████ ', '██ ██ ', '█████ ', '██ ', '██ '], 'Q': [' ████ ', '██ ██ ', '██▀▄██ ', '██ ██ ', ' ███ █ '], 'R': ['█████ ', '██ ██ ', '█████ ', '██ ██ ', '██ ██ '], 'S': ['▄████ ', '██ ', '▀███▄ ', ' ██ ', '████▀ '], 'T': ['██████ ', ' ██ ', ' ██ ', ' ██ ', ' ██ '], 'U': ['██ ██ ', '██ ██ ', '██ ██ ', '██ ██ ', ' ████ '], 'V': ['██ ██ ', '██ ██ ', '██ ██ ', ' ██ ██ ', ' ███ '], 'W': ['██ █ ██ ', '██ █ ██ ', '██ █ ██ ', '▀█████▀ ', ' █ █ '], 'X': ['██ ██ ', '██ ██ ', ' ██ ', '██ ██ ', '██ ██ '], 'Y': ['██ ██ ', '██ ██ ', ' ████ ', ' ██ ', ' ██ '], 'Z': ['██████ ', ' ██ ', ' ██ ', '██ ', '██████ '], '0': [' ████ ', '██ ██ ', '██▀▄██ ', '██ ██ ', ' ████ '], '1': [' ██ ', '▄███ ', ' ██ ', ' ██ ', ' ██ '], '2': [' ████ ', '█ ██ ', ' ██ ', '██ ', '██████ '], '3': ['█████ ', ' ██ ', '█████ ', ' ██ ', '█████ '], '4': ['██ ██ ', '██ ██ ', '██████ ', ' ██ ', ' ██ '], '5': ['█████ ', '██ ', '████ ', ' ██ ', '████ '], '6': [' █████ ', '██ ', '█████ ', '██ ██ ', ' ████ '], '7': ['██████ ', ' ██ ', ' ██ ', ' ██ ', '██ '], '8': [' ████ ', '██ ██ ', ' ████ ', '██ ██ ', ' ████ '], '9': [' ████ ', '██ ██ ', ' █████ ', ' ██ ', ' ███ '], ':': [' ', '██ ', ' ', '██ ', ' '], '&': [' ███ ', '██ ██ ', ' █████ ██ ', '██ ███ ', ' █████ ██ '], ' ': [' ',' ',' ',' ',' '] } def _Big_text(text: str): lines = [""] * 5 text = text.upper() for char in text: pattern = ascii.get(char, [" ??? " ] * 5) for i in range(5): lines[i] += pattern[i] for line in lines: print(line) inpt = input("Enter a string: ") _Big_text(inpt)

Okay. So if I leave them like that, then how would I factor in the cut outs on the end of the beam for the W12x40s? And I think the instructions have changed a little for this part.

Thanks mhupp!!! Perfect!

(defun c:setbyblock ( / _byblock e n x a sel c) (defun _byblock ( n l / a e x ) (if (and (setq e (tblobjname "BLOCK" n)) (not (member n l))) (while (setq e (entnext e)) (setq x (entget e)) (if (setq a (assoc 420 x)) (setq x (vl-remove (assoc 420 x) x)) ) (if (setq a (assoc 62 x)) (entmod (subst '(62 . 0) a x)) (entmod (append x '((62 . 0)))) ) (if (= "INSERT" (cdr (assoc 0 x))) (_byblock (cdr (assoc 2 x)) (cons n l)) ) ) ) nil ) (prompt "\nSelect Blocks: ") (setq sel (ssget (list (cons 0 "INSERT")))) (setq c 0) (repeat (sslength sel) (setq n (ssname sel c)) (_byblock (cdr (assoc 2 (entget n))) nil) (setq c (1+ c)) ) (command "_.regen") (princ) ) Merry Christmas and best wishes to all, I would kindly need you to change this code so that it also makes the byblock transparency in addition to the color of the blocks

Thank you @BIGAL. How not resist to BBQ . Cheers

Back in the old days, it was SDS and vanilla lisp lol. There’s a blog here that mentions support for FAS/VLX https://www.intellicad.org/articles-and-press-releases/2025-recap-intellicad-14-developer-tools-and-ecosystem-momentum One of the contributors to the Python project made a super cool test suite, so I have some coverage with IcARX(ARC). I don’t have a unit test for lisp except for resbuf wrapper that I pass to the lisp engine, those pass. It will be interesting to see how they progress.

I post the 3d house image often and a version of that software was available for Intellicad back in the 90's, there was no VL lisp in those days. It was very good then and seen as a competitor to LT,

I was able to connect with ITC Directly and report the items I felt are important from an API perspective. AcRxClass::dxfName() is null with AcDbObject AcDbObject::close() has an access violation if called twice. I think the next release or so of IntelliCAD will be a real competitor in the space. Assuming pricing is stable, there’s no reason to buy any ‘lite’ version of CAD