[求助]：怎样用lisp将画出的图形存成变量?

falconry

请教各位了
假设已知点变量point1与point2
用command line point1 point2画出了这条线,然后怎么在程序里把它setq给变量line1呢? (前提是不能用ssget跑到CAD里去点,要在程序里完成)
还有,怎么把line1偏移1米后的线setq给变量line2?前提也是要在程序里完成

谢谢!

xyp1964

line1～line3：
[php](load "xyp_lib");加载通用函数
;|
如果已经下载xyp_lib并放到搜索路径下可以不再下载!
利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
1.在acad.lsp中增加(load"xyp_lib")
2.在每个程序内增加(load"xyp_lib")
3.在command下，输入(load"xyp_lib")
4.在菜单.mnl中增加(load"xyp_lib")
通用函数下载地址：http://www.xdcad.net/forum/showthread.php?s=&threadid=325268
|;


(defun c:test()
  (setq pt1 (getpoint "\n第1点 : ")
        pt2 (getpoint pt1 "\n第2点 : ")
        )
  (command "line" pt1 pt2 "")
  (setq line1 (entlast))
  (command "offset" "1000" (cons line1 '((0 0 0)))(_midpUP pt1 pt2 1000) "")
  (setq line2 (entlast))
  (command "offset" "1000" (cons line1 '((0 0 0)))(_midpDN pt1 pt2 1000)"")
  (setq line3 (entlast))
  (princ "\n")(princ"LINE1 = ")(princ line1)
  (princ "\n")(princ"LINE2 = ")(princ line2)
  (princ "\n")(princ"LINE3 = ")(princ line3)
  (princ)
  )[/php]