Why your test.dwg contain only one entity?
Can you insert many entities with (dxf2 "AcSm Sheet.Title"), into insert test.dwg?
You have one routine, named commander. This routine as defun,must send multiple commands with one char.
(D.Display all )
(A.append with LISpR14)
(B.append with Visual-Lisp)
(R.Replace)
(E.Erase)
(pp_acsmsheet "D")
(pp_acsmsheet "R")
(pp_acsmsheet "S")
My Acad is broken.today I cannot continue Test.
;|d26000:0000000001|; (setq;|a450|; dfn_pp_v1chkR nil) ;|/d26000:0000000002|;
(pp_xiaocai2sheet301tile_app)
)
(Defun asserte
(mssg
/ $rr
) ;|d26000:0000000003|; (setq;|a749|; acad__assertNo
(+ acad__assertNo
1)) (if (/= mssg
nil) (setq;|a819|; erprv erlsp
erlsp mssg)) ;|/d26000:0000000004|;
erlsp)
(Prompt "\nCommand.com=Q2[enter]\n") (Defun pp_xiaocai2sheet301tile_app
( / )
;;{$R (call_stas)}
;------------------------Stdcall nn_vmload
;------------------------
;;{$R dfn_cad_amain_callend2}
;|d26000:0000000005|; (princ "\nEnd") ;|/d26000:0000000006|; T)
(Defun nn_vmload
(/ ask dyn
) (pp_acsmsheet ask)
(setq ask
(dfn_getx_readkey
"[DARXP]" "\nAcmSheetCommand (a-append)(r-replace)(x-exit)(d-displayall)(p-princ)?:")) )
)
)
;;{$R pp_acsmsheet}
(Defun pp_acsmsheet
(nircmd
/ $rr allornot item xlog repstr entlst noe repp reps old cnt upx
) ;|d26000:0000000007|; (vl_load_com
) (setq;|a4694|; repstr
(getstring T
"\nEnter StrReplace(0.default)(1.skip):=")) (if (= repstr
"0") (setq;|a4955|; repstr
"SITE PLAN_test")) (if (/= repstr
"1") (foreach xlog allornot
(setq;|a5042|; repp
(getstring T
"\nAppend prefix (1.skip)=") cnt 0
upx (dfn_ent_dxf_01 entlst)
cnt (+ cnt 1)
$rr)
;;{$E}
;;Inf:
(defun dfn_getx_readkey
(k574 t469
/ retc kbd msg two chk lei item
) ;|d26000:0000000009|; (setq;|a7970|; retc)
;;{$R pp_sheetextarray}
(Defun pp_sheetextarray
(/ $rr all item tit ggr x
) (setq all
(dfn_dict_dxf330
))
$rr)
;;{$E "Wait until press keys k"}
;;{$R vl_load_com}
(defun vl_load_com
(/ $rr
) (setq vlax_true
:Vlax-True vlax_false :Vlax-False
kHomeRegistry "HKEY_CURRENT_USER\\Software\\Autodesk\\AutoCAD")
;; set a reference to the current model space
)
;;{$E}
;;{$R dfn_ent_dxf_01}
(Defun dfn_ent_dxf_01
(a023
/ $rr ff it00
) ;_ASSERT_OK it00 (- 1)
$rr)
;;{$E}
(Defun dfn_dict_dxf330
( / $rr x ace lnk
) $rr)
;;{$E}
;;{$R coff_linkerarx}