[求助]这个LISP程序如何编写？

ljpnb · 发表于 2003-10-15 18:10:00

各位，我一直想编这样一个程序，就是通过任意一点，与一直线或是圆弧相切，画一个圆，圆的半径已知！请问这个程序如何编写，按照尺规作图法可以作来了，现在想用一个程序来简便一下！请大家提供一些编写思路，谢谢！

gzy · 发表于 2003-10-15 18:26:00

我认为程序的编写也是根据的的尺规作图方法来决定的。数据模型应该是相同的。都是根据直线或者圆弧的方程来决定程序走向。

ljpnb · 发表于 2003-10-15 23:06:00

这种思路我也想,但是这两个方程求解很麻烦!有没有更好方法!

BDYCAD · 发表于 2003-10-16 08:13:00

我個功能叫做過點加切畫圓. 在Master CAM軟件最常用到. 我也花了不少心思去試但還沒有成功. 這是個蠻好的功能.
-----------------------------------------------------------------------
我愛CAD. 共同學習. 共同進步.

meflying · 发表于 2003-10-16 08:30:00

圆半径已知，点又确定了，那这个圆还有什么好讨论的呢？
如果你的意思是想说圆心不确定，那这样的圆有无数个，不知道你的尺规作图怎么作的

meflying · 发表于 2003-10-16 08:51:00

我写了一个通过任意点作已知直线或圆弧相切的最小半径的圆

copy


(vl-load-com)
(defun c:DrawCircle( / ent pt pte prCenter r ptr)
  (setq ent (car (entsel "选择直线或圆弧...")))
  (setq ent (vlax-ename->vla-object ent))
  (setq pt (getpoint "选择圆心:"))
  (setq ptr (vlax-curve-getClosestPointTo ent pt))
  (setq pte (vlax-curve-getEndPoint ent))
  (setq pts (vlax-curve-getStartPoint ent))
  (if (or (equal ptr pte) (equal ptr pts))
    (progn
      (setq ptCenter (vlax-safearray->list (vlax-variant-value  (vla-get-center ent))))
      (setq r (vla-get-radius ent))
      (setq ptr (polar pt (angle pt ptCenter) (+ r (distance pt ptCenter))))
    )
  )
  (command "_.circle" pt (distance pt ptr))
  (princ)
)