I don't have anything that uses them, so I can't check this myself, but what is the "entity type" [the DXF-code 0 entry] for a COGO point? If it's distinct from other entity types, it should not be difficult to use an (ssget "_X") function to find all of them, and step through the resulting selection set to put the Layers they're on into a comma-delimited string to use in Layer commands for the toggling.
Here's one way, I think [untested, because I don't...], to give you a string of comma-separated Layer names:
(foreach pt
(mapcar 'cadr (ssnamex (ssget "_X" '((0 . "AECC_COGO_POINT")))))
; find them all, make into list of entity names
(setq lay (cdr (assoc 8 (entget pt)))); Layer name
(if (not (member lay laylist)); not already in the list?
(setq
laylist (cons lay laylist); put in list
laystr (strcat lay "," (cond (laystr) (""))); and build string
)
)
)Then you can feed laystr into Freeze or Thaw and/or Off or On options in (command "_.layer" ...) functions. After a Thawing one, you may need to REGEN.
Regards @mspeace
Try this code. Layers report with cogo points
(defun c:lcogo (/ ltl s i ln ltl x ltf)
(setq ltl ())
(setq s (ssget "_a" '((0 . "aecc_cogo_point"))))
(princ "\nLayers report with cogo points...")
(repeat (setq i (sslength s))
(setq sn (entget (ssname s (setq i (1- i))))
ln (cdr (assoc 8 sn))
ltl (cons ln ltl)
)
(setq ltl (vl-sort ltl '<)
ltf (r_doub ltl)
)
)
(foreach x ltf
(print x)
)
(princ)
)
(defun r_doub (lst)
(if lst
(cons (car lst) (r_doub (vl-remove (car lst) lst)))
)
)
Carlos Calderon G
>Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
@mspeace wrote:
....
My ultimate goal is to have a single button on my tool bar that when I click it, it turns on and thaws every single layer in the drawing that contains a cogo point. then when I click it again it will freeze every layer that contains a cogo point.
....
And would any COGO point(s) ever be added on some Layer(s) that didn't have any, or all of them on some Layer(s) be deleted, between uses of it? In other words, could the relevant Layer collection be established once, at first use, and the toggling just work with that collection thereafter, or should the relevant Layer collection be re-established with every use, in case the Layer makeup has changed?
Regards @mspeace
To also include the list of frozen layers with cogo points:
;;;Replace this line...
(setq s (ssget "_a" '((0 . "aecc_cogo_point"))))
;;;For this other...
(setq s (ssget "_X" '((0 . "aecc_cogo_point"))))
Carlos Calderon G
>Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
The 1 vs. -1 toggling is interesting, but if I may suggest a simplification:
I would use a variable [with a more routine-specific name, so it's less likely to be overwritten by some other routine] that is either T or nil -- it exists or it doesn't. Then in the Layer command, if it doesn't exist [including at first use], Thaw the Layers, or if it exists, Freeze them. I wouldn't set a default value into it at the top [your first (if) function about the 'state' variable], but would take advantage of the fact that it won't exist until it gets set. You can even incorporate the check for it into one Layer command, instead of spelling that out twice.
Instead of these parts:
(if (= state nil)
(setq state 1))
....
(if (= state 1)
(command "._layer" "th" laystr "")
nil
); end if
(if (= state -1)
(command "._layer" "fr" laystr "")
nil
); end if
(setq state (* state -1))
you could do just this:
(command "_.layer"
(if *COGOshow* "_freeze" "_thaw"); [will Thaw on first use]
laystr ""
)
(setq *COGOshow* (not *COGOshow*)); [reverse state]