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 3 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 1 hour 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 1 hour 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 53 minutes ago by pkenewell