[求助]：郁闷 高手帮我解惑（不知道怎么说）

eobser

看这段程序 以直线中点为圆心画圆
(defun c:mcir2()
   (setvar "cmdecho" 0)
   (setq en (entsel "Select a LINE:"))
   (setq pts(cadr en))                                 

(setq mpt (osnap pts "midp"))                                                ;直接取得中点
   (setq mr (getdist mpt "Circle Radius:"))        ;要求输入半径值
   (command "circle" mpt mr)                                                        ;完成中点画圆
   (prin1)
)
我查函数 是这么理解的
entsel 获取一点的坐标表(x  y)
(cadr en)就是返回点y坐标的值即 pts 为(y)
那么(osnap pts "midp")为什么是返回直线的中点？
请高手帮我指正 是哪里理解错了
谢谢！

taner

(cadr en)是返回ENTSEL點選的座標

eobser

不明白
osnap pts "midp"
为什么会是返回 直线的中点呢？
pts 不是一个坐标 的表吗？

taner

最初由 eobser 发布
[B]不明白
osnap pts "midp"
为什么会是返回 直线的中点呢？
pts 不是一个坐标 的表吗？ [/B]

语法

    (osnap pt mode-string)

功能及参数

    这个函数将返回一个 3D 的点, 这个点是将 mode-string所描述的图形捕捉模式应用到点 pt 的结果。mode-srting这个字符串包含了一个或多个有效的图形捕捉识别字, 如：midpoint, center 等, 其中它们是以逗号分开的。

范例

    (setq pt2 (osnap pt1 "midp"))

    (setq pt2 (osnap pt1 "midp, endp, center"))

osnap 函数所返回的点是依据目前的3D视面以及在APERTURE系统变量中的设定来决定的。

eobser

也就是
osnap 的对象pt是关联到entsel 说选择的图元（程序中的直线）
如果entsel 中选择的是一个圆 那osnap pt  "midp"的结果是圆心
是这样吗？

Underway

执行思路验证

Command: Circle CIRCLE Specify center point for circle or [3P/2P/Ttr (tan tan
radius)]:
Specify radius of circle or [Diameter]:
Command: (setq ee (entsel))

Select object: (<Entity name: 7ef59ee8> (267.726 138.555 0.0))

Command: (setq pt (cadr ee))
(267.726 138.555 0.0)

Command: (osnap pt "Mid")
nil      ;;; <===============这是系统的回应