[求助]：如何求最近点

heaven77 · 发表于 2006-5-16 20:22:10

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(DEFUN C:A ()
(SETQ OLDOS (GETVAR "OSMODE"))
  (SETVAR "OSMODE" 0)
  (SETQ PT1 (GETPOINT "第一点:")
N 0
  )
  (WHILE (= SS NIL)
(SETQ N (+ N 1)
   L (* N 1)
   PT2 (POLAR PT1 (* 0.5 PI) L)
   SS  (SSGET "F" (LIST PT1 PT2))
)
  )
  (PRINC (SSNAME SS 0))
  (PRINC L)
  (SETVAR "OSMODE" OLDOS)
  (PRINC)
)
小弟近日想用此段代码求出一点到最近图元的距离,但失败了.跪求大侠指点

zhanzujie · 发表于 2006-5-18 09:55:49

建议楼主看看LISP方面的书先

winabcd · 发表于 2006-5-18 11:08:07

把
(SSGET "F" (LIST PT1 PT2))
改成
(SSGET "C" PT1 PT2)
或许可以

建议你不要用这样的方法，找找看，这里会有更好的方法。

heaven77 · 发表于 2006-5-20 21:43:02

上楼的大侠winabcd给提供一段代码吧
小弟资金太少
无法下载

账号		自动登录	找回密码
密码			立即注册

[求助] [求助]：如何求最近点

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子