如何简单改进其它lisp命令？

berni

对cad命令我们常可以进行改进，使之更便利，例如小弟对pline的改动：
(defun c:jj(/ o1 o2 on)
       (setq o1 (ssget) o2 (ssname o1 0)
             on (cdr (assoc 0 (entget o2))))
       (if (= on "LWPOLYLINE")
           (command"pedit" o2 "j" o1 "" "")
           (command"pedit" o2 "y" "j" o1 "" ""))(princ))
问题是对别的非cad命令的lisp程序，比如BONUS里的命令如何能够如法炮制？
请高手详解！！！

song111

这叫改进?

meflying

这种所谓的改进是不同情况要不同分析，还有个人习惯的东西在里面，
你只说别的LISP程序，没有程序，怎么炮制？谁知道要输入什么参数？

既然是LISP程序，直接修改程序内容，让其成为你习惯的方式不就行了吗，还要什么“改进”？