这个程序怎么办啊？运行Autolisp程序后提示："选择实体",之后就能获得

hlzhong

这个程序怎么办啊？运行Autolisp程序后提示："选择实体",之后就能获得该实体的端点坐标[br]希望运行Autolisp程序后提示："选择实体",之后就能获得该实体的定点坐标值，好像entsel函数返回的只是图元名和选择点的坐标值，并非端点坐标值。不知怎么编写这个程序？  另外，与此相关的是：erase命令在选择实体时是什么样的工作机制？看过acad2000doc.lsp，但不太懂还。请高手不惜赐教！在此先谢谢了。

Hart

(vl-load-com)  ;确保已加载了 ActiveX
(setq select1(ssname (ssget ":S") 0))  ;选择一个实体并得到它的名
(setq sel_obj(vlax-ename->vla-object select1))  ;将该实体转换为VLA对象
(vla-getboundingbox sel_obj 'minpoint 'maxpoint)  ;用GetBoundingBox方法获取该实体边界框的左下角点和右上角点
(setq p1(vlax-safearray->list minpoint))  ;把左下角点值赋给P1
(setq p2(vlax-safearray->list maxpoint))  ;把右上角点值赋给P2