2018 如何修正 acadinfo 文字功能

原來2006~2010.LISP 都可使用
我能用這功能 在指令中打 1
可把原 線段變更 ---> 紅色實線

如下方
(defun c:1 (/ aa)
(setq aa (ssget))
(command "P" aa "" "p" "c" "1" "lt" "bylayer" "")
)

但 我第一次用 2018 介面
在/acadinfo 內 卻貼入這幾行文字 都無法使用這 指令
請問 是那方法錯了 或2018 不能用這功能?

1.第一個 "P" 平移  改成替換 "Change"
2.LISP 的載入方法  是輸入 APPLOAD 載入使用