Question

lisp CAD请高手帮忙！用代码实现取直径特定的园的坐标信息！

我有一段小代码其中有一个是(getpoint "选择起点")来获取一点作为一个直线的起始点，现在我想实现在图中框选时自动去识别一个特定圆圈的圆心点取代用鼠标点选获得的点？请朋友们帮忙。谢谢

Answer 1

(defun c:test()
(setq oldos (getvar "osmode"))
(setvar "osmode" 4)
(initget 0)
(setq pt (getpoint "\nEnter a point:"))
(setvar "osmode" oldos)
(terpri)
(princ pt)
(princ)
)

追问

首先谢谢你，恩，你的代码和我的功能有点出去，可能我描述的问题不清楚。我想通过一小段代码实现在画线是起始点是制定直径的圆的圆心，而不是直接选的点，例如图上有直径5的圆，我通过框选圆，也代码自动识别了圆心为我要画线的起点，谢谢

Answer 2

特定园圆是直径特定吗？

追问

恩，直径特定

追答

以直径123为例半径为61.5
(setq ccs (ssget '((0 . "CIRCLE")(40 . 61.5))))
(setq cn (ssname ccs 0))
(setq cdate (entget cn))
(setq cp (cdr (assoc '10 cdate)))

其中CP即是所要的点

以直径123为例半径为61.5
(setq ccs (ssget '((0 . "CIRCLE")(40 . 61.5))))
(setq cn (ssname ccs 0))
(setq cdate (entget cn))
(setq cp (cdr (assoc '10 cdate)))

其中CP即是所要的点

以直径123为例半径为61.5
(setq ccs (ssget '((0 . "CIRCLE")(40 . 61.5))))
(setq cn (ssname ccs 0))
(setq cdate (entget cn))
(setq cp (cdr (assoc '10 cdate)))

其中CP即是所要的点

以直径123为例半径为61.5
(setq ccs (ssget '((0 . "CIRCLE")(40 . 61.5))))
(setq cn (ssname ccs 0))
(setq cdate (entget cn))
(setq cp (cdr (assoc '10 cdate)))

其中CP即是所要的点