[求助]：怎样绘制一个图元，再删除它（LSP）？

TLHMQH

求怎样用LSP编程：
“绘制一个图元（如绘制一个圆），经过若干步骤后，再删除这个图元”  的程序？
先谢谢！

Dream.Fei

记录图元名,在需要的时候entdel 图元名.

2. 
   
3. (defun c:x2 (/ circle)
   
4.   (setq circle (entmakex '((0 . "circle") (10 0 0 0) (40 . 25))))
   
5.   (princ "\n按任意键删除图元:")
   
6.   (command "regen" pause);_写上你自己的程序.这只是个示例
   
7.   (entdel circle)
   
8. )
   

<br /> (defun c:x2 (/ circle)<br />   (setq circle (entmakex '((0 . "circle") (10 0 0 0) (40 . 25))))<br />   (princ "\n按任意键删除图元:")<br />   (command "regen" pause);_写上你自己的程序.这只是个示例<br />   (entdel circle)<br /> )<br />

Underway

(command "Circle" '(0 0) 8)
(setq ee (entlast))
..............
..............
(entdel ee)

TLHMQH

谢谢二位！明白了。