一个对象的选点坐标有那些作用，举例如下

chenying0527

一个对象的选点坐标有那些作用?
举例如下:
1、(defun c:mcir2()
2、         (setvar "cmdecho" 0)
3、         (setq en (entsel "Select a LINE"))
4、         (setq pts (cadr en))
5、         (setq mpt (osnap pts "mid"))
6、         (setq mr (getdist mpt "Circle Radius:"))
7、         (command "circle" mpt mr)
8、         (prin1)
     )
其中第4行中，用cadr获取了一条直线的选点坐标(书中这么叫的)
为什么通过这个选点坐标就可以捕捉到中点？这个选点坐标代表对象的属性？有什么作用。
请各位大虾指点指点为谢！

byghbcx

还是好好看看书吧，帮助文件中也有

yjr111

;;;注释一下，仅供参考
;;;此为画圆的小程序

1、(defun c:mcir2()   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;定义画圆命令"MCIR2"                                             
2、         (setvar "cmdecho" 0);;;;;;;;;;;;;;;;;;;;;;;;;;;;;;关闭命令回显，祥见帮助文件
3、         (setq en (entsel "Select a LINE"));;;;;;;;;;;;;;;;;ENTSEL为选择一个实体，返回选点坐标表和图元名
4、         (setq pts (cadr en));;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;(cadr en)即选点坐标赋给PTS
5、         (setq mpt (osnap pts "mid"));;;;;;;;;;;;;;;;;;;;;将捕捉中点模式应用到选点PTS，这就是你所看到选点即中点的原因
6、         (setq mr (getdist mpt "Circle Radius:"));;;;;;;;;GETDIST交互输入圆的半径MR
7、         (command "circle" mpt mr);;;;;;;;;;;;;;;;;;;;;;;调用CAD命令画圆，圆心即选点，半径为刚才交互输入的距离
8、         (prin1);;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;输出一个空白行，静默退出命令
     );;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;结束程序

chenying0527

是我没把问题说清楚嘛？