Topic: CHPROP on (entlast) after GUI command INSERT

[Marc'Antonio Alessi]

; simple example:

Code: [Select]

(defun ALE_Block_Draw_Insert (NewLyr / LstEnt)
  (if (> (atof (getvar "ACADVER")) 23.0)
    (command "_CLASSICINSERT")
    (progn (initdia 1) (command "_.INSERT"))
  )
  (setq LstEnt (entlast))
  (command "_.CHPROP" LstEnt "" "_LAYER" NewLyr "")
  (princ)
)in this sample (entlast) refers to the last entity before the command.

[V-Man]

(defun ALE_Block_Draw_Insert (NewLyr / LstEnt)
  (if (> (atof (getvar "ACADVER")) 23.0)
    (command "_CLASSICINSERT")
    (progn (initdia 1) (command "_.INSERT"))
  )
  (setq LstEnt (entlast))
  (command "_.CHPROP" LstEnt "" "_LAYER" NewLyr "")
  (princ)
)

Maybe

Code: [Select]

(command ".chprop" "last" "" "_LAYER" NewLyr "")

[ribarm]

Maybe :

(defun ALE_Block_Draw_Insert (NewLyr / LstEnt)
  (if (> (atof (getvar "ACADVER")) 23.0)
    (command "_CLASSICINSERT")
    (progn (initdia 1) (command "_.INSERT"))
  )
  (while (< 0 (getvar 'cmdactive)) (command "\\"))
  (setq LstEnt (entlast))
  (command "_.CHPROP" LstEnt "" "_LAYER" NewLyr "")
  (princ)
)

[Marc'Antonio Alessi]

Marko, V-Man thanks, both of your solutions seem to works properly.