只有龙仔大哥才能解决的问题，让产生的对象变成P

龙龙仔

;|
;;反應器J程序,它對下列COMMAND指令
("3DARRAY" "ARRAY" "-ARRAY"     "BLOCK"   "-BLOCK"
    "BOUNDARY" "-BOUNDARY"  "BREAK"   "COPY"
    "DTEXT" "EXPLODE"    "INSERT"   "-INSERT"
    "LEADER" "LINE"      "MIRROR"   "MIRROR3D"
    "OFFSET" "QDIM"      "QLEADER"   "SKETCH"
    "SOLPROF" "TEXT"      "-TEXT"
   )
   |;
;;開始時記錄下(ENTLAST)

;;==>說得再明白點, 反應器J程序會記下最後(成功完成)使用上列指令時的(ENTLAST)
;;==>所以當使用過一次上列指令時,(/= (C:J) NIL)永遠等於T
;;==>所以像下列的判斷程序沒有意義
(defun C:CA ()
  (setvar "CMDECHO" 1)
  (if (/= (C:J) NIL)
    (command "_.copy" (C:J) "" PAUSE PAUSE)
  )
  (princ)
)

;;還有，那個鏡命令，我用CAD的複製命令?生了一個新物件後，
;;在命令行輸入 mirror後，輸入'j就可以選中新物件，如果
;;我在acad.pgp改了mirror等於MI，再來在命令行輸入MI後，
;;再輸入'j就出問題啦

;;==>ACAD.PGP中本來就已徑把MI=MIRROR,我使用沒有問題,不清楚你出了甚麼問題?
;;不喜歡'J也可以用下列程序改為'K
(defun C:K ()
  (C:J)
)

adc

龙龙仔版主的网盘进不去了，请问哪位还可以提供一下这个命令吗，谢谢啦

adc

再请求，龙龙仔版主能给提供一下吗，谢谢