lisp中的Arc命令

pman860507 · 发表于 2022-7-5 16:22:51

我相信有办法做到这一点。我正在lisp文件中使用命令“arc”。我的中点和终点需要存储为变量。目前看起来是这样的。但我希望它能像正常的弧命令一样显示弧。

一如既往，谢谢。

我真正需要的是弧的终点。我知道有一种visal lisp的方法可以做到这一点，但我对此一无所知。

alanjt · 发表于 2022-7-5 16:26:33

??

copy

(defun _arc (centerpoint / ent)
 (setq ent (entlast))
 (command "_.arc" "_c" "_non" centerpoint)
 (while (eq (logand 1 (getvar 'CMDACTIVE)) 1) (command PAUSE))
 (if (not (equal ent (setq ent (entlast))))
   ent
 )
)
(defun c:Test (/ point arc)
 (vl-load-com)
 (if (and (setq point "\nSpecify center point: ")
          (setq arc (_arc point))
     )
   (vlax-curve-getEndPoint arc)
 )
)

另外/或，查看LASPOINT变量。（getvar’LASTPOINT）

Lee Mac · 发表于 2022-7-5 16:31:05

或者，仅使用香草：

copy

(defun c:Test ( / point arc )
   (if (and (setq point (getpoint "\nSpecify center point: "))
            (setq arc (_arc point))
            (setq arc (entget arc))
       )
       (polar
           (cdr (assoc 10 arc))
           (cdr (assoc 51 arc))
           (cdr (assoc 40 arc))
       )
   )
)