[编程申请]：在CAD2002中,怎样才能铺捉到两点之间的中点?

zh_6531394 · 发表于 2007-5-6 08:24:42

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

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

×

在CAD2002中,怎样才能铺捉到两点之间的中点?

colatree · 发表于 2007-5-7 12:20:57

(defun ai_mid (/ pt1 pt2 pt3)
  (setq pt1 nil pt2 nil)
      (while (null pt1)
      (setq pt1
            (getpoint"\n輸入第一點:")
      )
      )
      (while (and (null pt2) pt1)
      (setq pt2
            (getpoint pt1 "\n輸入第二點:")
      )
      )
  (setq pt3 (polar pt1
            (angle pt1 pt2)
            (/(distance pt1 pt2)2)
         )
  )
  (if pt3 pt3)
)

複製存檔為MID.LSP ，要cad可搜尋的路徑中
在cad中
(LOAD "MID") 即可
使用:
COMMAND: "line" ---->" "不可輸入，以下皆不可輸入
COMMAND: "from point::" "(ai_mid)" "輸入第一點" "輸入第二點:"
即可取得2點的中點

zh_6531394 · 发表于 2007-5-8 08:34:04

怎么用啊?是LSP文件吗?

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

[编程申请]：在CAD2002中,怎样才能铺捉到两点之间的中点?

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

相关帖子