[求助]：怎样才能捕捉到两条平行线的中点?

colatree · 发表于 2006-9-5 13:48:28

我R12時寫過一個，現在2002還能用，我是放在MNL中使用，你試試吧

(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)
)

以上的程序不能使用常駐模式抓點，不然抓到的點會不對

融冰 · 发表于 2006-9-8 08:01:53

有问题呀！·找什么平行线的中点！实用吗？？

zh_6531394 · 发表于 2006-9-8 09:51:30

31楼楼主;
"我R12時寫過一個，現在2002還能用，我是放在MNL中使用，你試試吧"
怎么用啊?

KENSHIN709 · 发表于 2006-9-8 09:52:24

这个命令我已经在用了，好好用哦!!

zh_6531394 · 发表于 2006-9-8 11:05:57

楼上的,怎么用啊?

dwg001 · 发表于 2006-9-8 16:05:02

31楼楼主的东东不错。

rodger888 · 发表于 2006-9-14 12:17:39

我感觉这没意义哦，有用吗？

colatree · 发表于 2006-9-14 15:47:00

先將31樓的程序複製到notepad ，存成ai_mid.lsp , 放在CAD搜尋的路徑上
在CAD中輸入
(load "ai_mid")
(ai_mid)
就能用了

qqqsun · 发表于 2006-9-14 16:03:24

CAD2005有捕捉“二点间中点”的选择了。

zhuqiqing · 发表于 2006-9-17 12:42:45

用mid就可以吧

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

[求助]：怎样才能捕捉到两条平行线的中点?

浏览过的版块