[求助]过圆心有线段时LISP程序为何捕捉不到圆心

ygrzz

下面这个连续画圆的程序，在过圆心有线段时即使出现黄色小圆形的圆心标记

可是点下去还是捕捉到端点，有一些自己指定基点的程序也总捕捉出错，

你们遇到过吗，能否指点一下？？？？

(defun c:c (/ pt0)
  (setvar "cmdecho" 0)
    (while (setq pt0 (getpoint "\n 指定圆心："))
        (command "_.circle" pt0)
        (while (/= 0 (getvar "cmdactive")) ; CMDACTIVE -存储指示激活了何种命令的位码值
            (command pause)            ; (setq RAD (getvar "CIRCLERAD"))
        )
    )
    (princ)
)

Alan

你程式里面没有设定捕捉方式啊。。。。。？？？是在CAD里自已设定吗。那就把端点什么的关掉不就行了吗

ygrzz

可是同样设置下，系统原来的画圆命令就正常

端点和圆心捕捉一般都得开着啊，再说画圆是很普通的命令

不可能为它特别设置捕捉

zml84

(defun C:C (/ PT0)
    (setvar "cmdecho" 1)
    (while (setq PT0 (getpoint "\n指定圆心:"))
    (command "_.circle" "non" PT0 PAUSE)
    )
    (princ)
)

无论何时，都不建议在程序中通过捕捉去踩点。当然，对捕捉结果验证的除外。

ygrzz

不错~不错~~解决问题了

谢过楼上的兄弟，很精简啊