(defun rh:emLWP
(lst cls
) );end_append
);end_entmakex
);end_defun
(defun rh:mslen
(ent
/ sp ep obj vlst lst msl
) (rh:emLWP (rh:rplk vlst) 0)
);end_defun
(defun _gp
( lst
/ sp cnt d n z
) (rh:mslen (rh:emLWP lst 1))
)
);end_cond
);end_defun
(defun rh:kurz4
( lst
/ d1 d2 n_lst
) );end_setq
)
( (alert "List must have four (4) items")) );end_cond
);end_defun
(defun rh:sub_lst
(lst s_i len
/ cnt s_lst
) );end_defun
(defun rh:rplk
( lst
/ idx s_lst rtn a b c
) (setq s_lst
(rh:sub_lst lst idx
4)) (setq rtn
(rh:kurz4 s_lst
)) (if (> idx
0) (setq a
(rh:sub_lst lst
0 idx
)) (setq a
nil)) (setq b
(rh:sub_lst lst idx
4) c
(rh:sub_lst lst
(+ idx
4) nil) lst
(append a rtn c
)) )
);end_cond
);end_while
lst
);end_defun
(defun c:test
( / ss cnt ent elst lst
) );end_setq
);end_repeat
)
);end_cond
);end_defun