简化lisp 问题求助
请教一下论坛的高手们、如图所示、要改成列表形式要怎么写?[*](DEFUN C:tt1()
[*](SRPT "AA" "aa")
[*](princ)
[*])
[*]
[*](DEFUN C:tt2()
[*](SRPT "BB" "bb")
[*](princ)
[*])
[*]
[*](DEFUN C:tt3()
[*](SR PT "CC" "cc")
[*](princ)
[*])
[*];list(
[*];(list "tt1" "AA" "aa")
[*];(list "tt2" "BB" "bb")
[*];(list "tt3" "CC" "cc")
[*]; )
[*]
[*](defun SR (PT ZW YW)
[*](setq p1 (getpoint "\n基点<退出>: ")
[*] p2 (polar p1 (* pi 1.5) 180)
[*])
[*](command "text" "s" "Standard" "j""c""non" p1 "180" "" ZW)
[*](command "text" "s" "Standard" "j""c""non" p2 "100" "" YW)
[*](princ)
[*])
页:
[1]