AutoLISP routine not working in German AutCAD

[Vittorio]

Hi everybody,

I'm trying to perform a very simple task, but the LISP just won't work on my German AutoCAD (Civil 3D 2025 German).

 

I have a LISP routine to get all COGO points on layers with "-PT" suffix and want them to be turned off and frozen.

 

(defun c:test01 (/ ss)
(vl-load-com)
   (setq ss 
      (ssget "_X" '((-4 . "<AND")(0 . "AECC_COGO_POINT")(8 . "*-PT")(-4 . "AND>")))
   )
   (command "_-layer" "freeze" ss "")
   (command "_-layer" "off" ss "")
   (sslength ss)
   (setq ss nil)
   (princ)
)

 

I get an error upon running the LISP. Something like "invalid option keyword" since the -LAYER option "freeze" is called "frieren" in German.

 

I've tried various command* combinations, but all fail.

*) _-COMMAND or _.-COMMAND

 

I'm lost here, those non-localized prefixes should work and I can't figure out why.

Any help appreciated

Edited 22 hours ago by Vittorio
added text

[mhupp]

You cant freeze\off only the points its either the whole layer or nothing. this makes a selection set and process it to find what layers they are on and turns feezes and turns off those layers. if their are other things on that layer they will also be frozen and off.

 

(defun c:test01 ( / ss lay laylst)
  (vl-load-com)
  (setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))
  (setq layers (vla-get-Layers doc))
  (if (setq ss (ssget "_X" '((0 . "AECC_COGO_POINT") (8 . "*-PT"))))
    (foreach ent (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))
      (setq lay (cdr (assoc 8 (entget ent))))
      (if (not (member lay laylst))
        (setq laylst (cons lay laylst))
      )
    )
    (foreach lay laylst
      (setq layerObj (vla-Item layers lay))
      (vla-put-Freeze layerObj :vlax-true)
      (vla-put-Off layerObj :vlax-true)
    )
    (prompt "\nNo matching COGO points found.")
  )
  (princ)
)

 

Edited 20 hours ago by mhupp
update to visual lisp

[Nikon]

43 minutes ago, mhupp said:

(Command "_.-Layer" "off" lay "")

I probably you need to add (_) before "off"

(Command "_.-Layer" "_off" lay "") ???

I don't have the "_FREEZE" command in Autocad 2021.
(Unknown "_FREEZE" command). 
But there is a command "_.LAYFRZ".

To test the command, type "_FREEZE" on the command line.

Edited 20 hours ago by Nikon

[pkenewell]

@Vittorio

 

As @Nikon somewhat related, you should put an "_" (underscore) before all "option" selections within the command as well as the command name itself, to avoid localization problems.

Example:

(command "_.-layer" "_freeze" ss "")

(command "_.-layer" "_off" ss "")

 

Also as @mhupp related, you cannot free and turn off a selection, but only the whole layer.

Edited 19 hours ago by pkenewell

[Vittorio]

Oh dear, my mistake. I didn't think it through. It's obvious that objects cant be frozen or turned off so I rewrote and shortened my functions to this:

 

; Freeze and turn off layers with -PT suffix
(defun c:zOff ()
   (command-s "_-layer" "_freeze" "*-PT" "")
   (command-s "_-layer" "_off" "*-PT" "")
   (princ)
)
; Thaw and turn on layers with -PT suffix
(defun c:zOn ()  
   (command-s "_-layer" "_thaw" "*-PT" "")
   (command-s "_-layer" "_on" "*-PT" "")
   (princ)
)

 

Now they do exactly what I need them to, but is that foolproof?

I tested the function in a drawing that contains at least one of the above mentioned layers and on a drawing that doesn't. No issues, only a message like "no matching layers found".

That should be fine.

 

I've read that VL(A(X))-functions are faster, but the code code would be bulky.

 

Do you recommend something different from my code?

 

Best regards