Question

CAD lisp 定点打断，定点画圆，定点lisp程序操作！

求助高手，我想实现对一条直线操作拾取点打断，然后再打断点画直径3mm的圆圈，最好圆圈的图层是特定图层，我有一个小程序但是不能实现，求助高手帮忙！
(defun c:br1 ()
(command "break" pause "f" pause "@")
(setq cen (list 0 0))
(command "circle" cen 3)
)
哪位高手能帮忙看看？
先谢谢了！

Answer 1

(defun c:br1 ()

  (setq pt(getpoint"\n选择点打断"))
  (princ "\n选择要打断的线")
  (command "break" pause "f" pt pt)

；这里你可以插入设置特定层为当前层的命令
  (command "circle" pt 1.5))

；这里你再还原当前层为以前的层

Answer 2

可以的，你的想法
(defun C:br1()
(setq x1 (entsel))
(setq pt (cadr x1))
(princ pt)
(command "break" pt pt)
(stvar "CLAYER" "特定图层")
(command "circle" pt 1.5)
)
但有点问题就是，拾取点不一定在线上。

Answer 3

不可能吧？实现不了？