抓點功能的问题

lead009 · 发表于 2011-3-12 22:13:11

(setq p1(getpoint))
(setq p2(getpoint))
(command"line" p1 p2 "")

假設我現在要畫一條直線
我希望在畫第一點的時候可以自動抓"mid中點"
在點選第2點的時候，可以自動抓點"per垂直點"請問我要怎麼寫呢?

假设我现在要画一条直线
我希望在画第一点的时候可以自动抓点"mid中点"
在画第二点的时候，可以自动抓点"per垂直点"
请问我该怎么修改才对呢??

Andyhon · 发表于 2011-3-12 22:22:26

本帖最后由 Andyhon 于 2011-3-12 22:23 编辑

(setvar "OsMode" 2)
(setq p1 (getpoint))
(setvar "OsMode" 128)
(setq p2 (getpoint))
(setvar "OsMode" 0)
(command"line" p1 p2 "")
;; (setvar "OsMode" 167)

lead009 · 发表于 2011-3-13 08:16:56

謝謝你的幫助
osmode 2 是中點，128是垂直點
167是什麼啊???

請問，是不是還有別的抓點方式啊
之前好像有看別人用過
垂直 _per
相切_tan

Andyhon · 发表于 2011-3-13 09:05:10

167是什麼啊???
(1+2+4+32+128)

lead009 · 发表于 2011-3-13 09:41:42

是囊括了以上五種抓點方式嗎?

Andyhon · 发表于 2011-3-13 09:49:03

本帖最后由 Andyhon 于 2011-3-13 09:49 编辑

設成 167 調試一下唄

lead009 · 发表于 2011-3-13 10:05:47

恩，我測試之後，得確是包函了這五種方式
今天又學到了一個活用的方式了，謝謝你喔

另外，我說的那個 "_per" "_tan" 這種的你知道嗎?

lead009 · 发表于 2011-3-13 10:12:52

下面這是我的程式，但是有一個缺點。
就在定義完"第一點"之後，會設定抓點模式為"只抓垂直點"
如果這個時候按"esc"離開之後，原本習慣用的抓點模式就會被取代
不知有沒有什麼方法可以讓我按了esc但是又不會發生這種情況呢

(defun c:m1()
  (setq oldosmode (getvar "osmode"))
  (setq ss(ssget))
  (setq pt1 (getpoint"\n第一基點<退出>"))
  (setvar "osmode" 128)
  (setq pt2 (getpoint"\n第二基點<退出>" pt1))

  (if (and pt1 pt2)
   (progn
      (setq mpt1 (polar pt1 (angle pt1 pt2)(* 0.5(distance pt1 pt2))))
      (setq mpt2 (polar mpt1 (+ (* 0.5 pi)  (angle pt1 pt2)) 10));;點選兩個鏡射點
      (command "mirror" ss "" mpt1 mpt2 "N")
      (setvar "osmode" oldosmode)
   );pr
  );if
(prin1)
)

Andyhon · 发表于 2011-3-13 13:26:10

請參考論壇老帖中有討論過的Error函數

q530496591 · 发表于 2013-3-12 10:25:14

学习啦!基础呀!

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

[基础] 抓點功能的问题

本帖子中包含更多资源