topic Betreff: entmod the layer in Visual LISP, AutoLISP and General Customization Forum

(ssget "_x" (list (cons 8 "layername"))) inside blocks

davidkoh007 — Fri, 01 Nov 2019 13:33:21 GMT

Hi, I have an issue with (ssget "_x" (list (cons 8 "layername"))). It doesnt create selection set from entities that are inside blocks.

How can create selection set from these? Thanks for help.

Betreff: (ssget "_x" "layername") inside blocks

cadffm — Fri, 01 Nov 2019 13:33:45 GMT

SelectionSets of these objects are useless (99%),

tell us what you want to do with the objects!

entmod the layer

davidkoh007 — Fri, 01 Nov 2019 13:35:20 GMT

entmod the layer

Re: entmod the layer

SeeMSixty7 — Fri, 01 Nov 2019 13:43:22 GMT

The process for that would be to open the block definitions of the blocks and then modify the layer. If you are talking about attributes attached to inserts, then that would be stepping through all blocks that have attributes, looking at each layer of those and then updating that entitiy.

;something similar to update block definitions
(setq bldata (tblnext "BLOCK" T))
(while bldata
   ;....step through the block definitions and make your changes
)

Betreff: entmod the layer

cadffm — Fri, 01 Nov 2019 13:45:03 GMT

You have to iterate thru all blocks,

check all the objects, if LayerX, then..

Add you 'check if layer is "mylayerX" then..

https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/change-a-layer-within-all-blocks/td-p/6016810

Or search 5min more, you will find 100 samples to do this.

Betreff: entmod the layer

davidkoh007 — Fri, 01 Nov 2019 13:56:37 GMT

Seems like going through the blocks is the way to go. I just thought there's a more straightforward way I was missing. Thanks.

Betreff: entmod the layer

SeeMSixty7 — Fri, 01 Nov 2019 14:14:27 GMT

Another solution could be LAYTRANS command. If you are just trying to remap a layer to another layer.

For instance if you have Layer A inside all your block and you want them to be MYNEWLAYER. You coudl easily do that in a couple of clicks.

Good luck,

Betreff: entmod the layer

davidkoh007 — Fri, 01 Nov 2019 14:16:41 GMT

The issue is i'm using BricsCAD v12 which doesnt support laymrg or laytrans. So I gotta code it myself.

Betreff: entmod the layer

SeeMSixty7 — Fri, 01 Nov 2019 15:47:20 GMT

Well here is my BLK20 command that updates blocks by selection or all blocks in drawing to move all ents within a block to 0, color = BYLAYER, linetype=bylayer.

You can probably use this a s good starting point.

Good luck,

(defun c:blk20( / bldata hdent hddata oldcol oldlay
                  newlay oldlin newcol1 newcol newlin
                  newlin1 ans sel1
              )
  (initget "A S")
  (setq ans (getkword "\nRedefine All Blocks or Select Block <S>: "))
  (if (or (not ans) (= ans "") (= ans "S"))
    (progn
       (setq blname (cdr (assoc 2 
                         (entget (car 
                         (entsel "\nSelect block to Redefine: "))))
                    )
             bldata (tblsearch "BLOCK" blname)
             sel1   T
       )
    )
    (setq bldata (tblnext "BLOCK" T))
  )
  (while bldata
   (setq hdent  (cdr (assoc -2 bldata))
         bldata (reverse (cdr (reverse bldata)))
   )
   (entmake bldata)
   (while hdent
      (setq hddata (entget hdent)
            oldcol (assoc 62 hddata)
            oldlay (assoc 8 hddata)
            newlay (cons 8 "0")
            oldlin (assoc 6 hddata)
            hddata (subst newlay oldlay hddata)
      )
      (if oldcol
        (progn
          (setq newcol (cdr (member oldcol hddata))
                newcol1(reverse (cdr (member oldcol (reverse hddata))))
                hddata (append newcol1 newcol)
          )
        )
      )
      (if oldlin
        (progn
          (setq newlin (cdr (member oldlin hddata))
                newlin1(reverse (cdr (member oldlin (reverse hddata))))
                hddata (append newlin1 newlin)
          )
        )
      )
      (setq hddata (cdr hddata))
      (entmake hddata)
      (setq hdent (entnext hdent))
   )
   (entmake (list (cons 0 "ENDBLK")))
   (if sel1
      (setq bldata nil)
      (setq bldata (tblnext "BLOCK"))
   )
  )
  (prompt "\nRedfinition complete!")
)

Re: entmod the layer

ronjonp — Mon, 04 Nov 2019 21:32:18 GMT

@davidkoh007 wrote:
entmod the layer

You don't need to iterate anything if you are changing the layer properties. Unless you meant entmod the object on a certain layer ?

Re: entmod the layer

davidkoh007 — Mon, 04 Nov 2019 23:20:48 GMT

entmod layer (dxf group code 😎 of a certain object. nvm i will eventually code it, just didnt have the time to get to it yet

Betreff: entmod the layer

dbroad — Tue, 05 Nov 2019 13:19:55 GMT

If you're using Bricscad, why seek solutions on Autodesk forums? Unless we are using Bricscad, there's no way we even know its command and customization capabilities, although, from looking at its website, it looks like an AutoCAD knock-off. I'm really surprised that the product isn't being sued for copyright infringement. The ribbon looks almost identical to AutoCAD.

Betreff: entmod the layer

ronjonp — Tue, 05 Nov 2019 14:08:45 GMT

@dbroad Competition is a good thing IMO. Bricscad is actively developing its product and addressing issues brought up from its users in weeks not years. Should Microsoft have sued Autodesk for using their ribbon idea? 🤔

Betreff: entmod the layer

pendean — Tue, 05 Nov 2019 14:19:26 GMT

Umm, who cares what Bricscad is doing, why post on an Autodesk forum?

They have a healthy forum community with lots of timely answer to their softwares' questions here https://forum.bricsys.com/

Betreff: entmod the layer

ronjonp — Tue, 05 Nov 2019 15:04:37 GMT

@pendean wrote:
Umm, who cares what Bricscad is doing, why post on an Autodesk forum?

They have a healthy forum community with lots of timely answer to their softwares' questions here https://forum.bricsys.com/

WOW ... maybe you're right 😑. With that attitude this probably is the wrong place to post. They should have posted at TheSwamp or CADTutor. I know plenty of people there will happily solve problems for both AutoCAD and Bricscad.

Betreff: entmod the layer

davidkoh007 — Sun, 10 Nov 2019 09:28:31 GMT

I came here to debate on a LISP matter because I know this is a friendly and a helpful community, I didn't come here to argue about different software.