topic Re: Macro to change all point groups in drawing pointstyle and pointlabelstyle to none in Civil 3D Customization Forum

Macro to change all point groups in drawing pointstyle and pointlabelstyle to none

RickfromtheNorth — Wed, 06 Jul 2022 18:09:18 GMT

Hi trying to write a macro to change all point groups pointstyle and pointlabelstyle to none in my current drawing.

Here is what I have so far.

^c^c(if(setq ss(ssget "x" (list(cons 0 'PointGroups)))) (PROGN (REPEAT (SETQ I (SSLENGTH SS)) (SETQ OBJ (VLAX-ENAME->vla-object (ssname ss (setq i (1- i)))))(vlax-put-styl obj 'PointStyles "<none>"))))

Any ideas?

Re: Macro to change all point groups in drawing pointstyle and pointlabelstyle to none

Jeff_M — Thu, 07 Jul 2022 20:14:58 GMT

Pointgroups are not selectable entities so you need to get the PointGroups collection from the C3D activedocument. Regardless of that fact, I have never found a way using lisp to set the pointstyle or pointlabelstyle to none or nil.

Re: Macro to change all point groups in drawing pointstyle and pointlabelstyle to none

RickfromtheNorth — Fri, 08 Jul 2022 19:12:54 GMT

Well that's not good news, My goal was to be able to turn on and off just my points in drawing without dealing with point groups sending no display to the top and all that or putting points on a layer then turning that on and off. You mentioned accessing pointgroups through active document. If I wanted to change all my pointgroups, pointlabelstyle and pointstyle to something other than <none> is that possible?

Thanks Jeff for the Reply

Re: Macro to change all point groups in drawing pointstyle and pointlabelstyle to none

Jeff_M — Fri, 08 Jul 2022 22:22:09 GMT

@RickfromtheNorth How would you deal with turning the point display back on? Once you change all PointGroups to have a no display style you would need a way to set them back to how they were. This would be very inefficient I would think. You would be better off, IMHO, to create a NoDisplay PG and have a toggle to move it to the top or bottom of the display order. This is something that can be done in .NET but the DisplayOrder is not available in COM.

Re: Macro to change all point groups in drawing pointstyle and pointlabelstyle to none

RickfromtheNorth — Sat, 09 Jul 2022 15:35:39 GMT

Your right it's not ideal I would have to toggle it back after again. I have a .net to move all points to the top but nothing for moving no display to the top. Is there a post with .net program that would do this on the forums here?

Re: Macro to change all point groups in drawing pointstyle and pointlabelstyle to none

Jeff_M — Sat, 09 Jul 2022 16:36:29 GMT

@RickfromtheNorth I'm guessing you got the .NET tool to move the _AllPoints group to the top HERE. Further down in that thread I added a new tool which includes moving the "No_Display" group to the top.

Re: Macro to change all point groups in drawing pointstyle and pointlabelstyle to none

RickfromtheNorth — Mon, 11 Jul 2022 17:24:13 GMT

Yes I see that, thx, Now I just need to add in movenodisplaytobottom to this somehow. I have visual studio now perhaps I can edit the code using that?

Thanks

Re: Macro to change all point groups in drawing pointstyle and pointlabelstyle to none

Jeff_M — Mon, 11 Jul 2022 17:57:02 GMT

Yes, you should give it a try! Attached is the c# project to get you started.

Re: Macro to change all point groups in drawing pointstyle and pointlabelstyle to none

RickfromtheNorth — Mon, 18 Jul 2022 21:57:09 GMT

Thanks for the head start Jeff, is their a way to compile the code in Visual studio into a DLL? I can't seem to find anything handy from google.

Thanks

Re: Macro to change all point groups in drawing pointstyle and pointlabelstyle to none

Jeff_M — Mon, 18 Jul 2022 22:17:00 GMT

When you Build the Solution it will create the dll in the folder specified in the Project properties.

Re: Macro to change all point groups in drawing pointstyle and pointlabelstyle to none

essam-salah — Tue, 19 Jul 2022 10:01:59 GMT

hi @RickfromtheNorth

you don't need any lisp to set all cogo points/label styles to none, just set _All Point points/label styles to none then move it to the top of all points groups.

Re: Macro to change all point groups in drawing pointstyle and pointlabelstyle to none

RickfromtheNorth — Wed, 20 Jul 2022 19:25:14 GMT

Hi, Yes I realize their are many work arounds but I want a one step process. I'm lazy like that. hahaha