請教 函數osnap 求交點的問題

lead009

下面這段程式

畫兩條直線，並且相交

交點畫圓，r=100

 

為什麼我使用osnap無法得到交點，正確的寫法是什麼?

 

(defun C:000()
  (setvar "cmdecho" 0)
  (setq p1(getpoint))
  (setq p2(getpoint p1))
  (command "line" p1 p2 "")
 
  (setq en1 (entlast))
 
  (setq p3(getpoint))
  (setq p4(getpoint p3))
  (command "line" p3 p4 "")
  (setq en2 (entlast))
 
  (setq pm (osnap en1 en2))
  (command "circle" pm 100)
  (prin1)
)

Andyhon

(inters p1 p2 p3 p4)

lead009

只能使用inters這個方式嗎

 

不是有使用osnap求中點座標的做法

(setq pm (osnap en1 "mid"))

求交點沒有辦法用osnap嗎??

 

Andyhon

(osnap pt mode)
Arguments
pt
A point.

mode
A string that consists of one or more valid Object Snap identifiers,
such as mid, cen, and so on, separated by commas.

 

您用的版本說明上是 (osnap en1 "mid")) !?

lead009

我是在書本上看到的範例

有看到中點座標可以這樣取得

在想說交點座標是否也能用相同的方式??

 

 

(defun C:001()
(setvar "cmdecho" 0)
(setq en(entsel "select a LINE"))
(setq pts(cadr en));;y物件
(setq mpt(osnap pts"mid"))
(setq mr (getdist mpt "circle R"))
(command "circle" mpt mr)
(prin1)
)

Andyhon

(setq en1 (entlast))

(osnap en1 "mid")) !?

 

(setq mpt(osnap pts"mid"))

en1 !=  Pts

書本上沒錯

You may print it
(princ en1) <==> (princ pts)

chpmould

inters

lead009

所以有辦法用osnap函數

來得到兩條直線的中點座標嗎??

ZZXXQQ

用osnap函数可以取得交点，但前提是：两物体交点在指定点pt的捕捉框(选择物体的方框)范围内。

使用格式：(setq pt1 (osnap pt "INT"))

取得两直线中点坐标的方式也是有要求的：直线在定点pt的捕捉框(选择物体的方框)范围内。

使用格式：(setq pt1 (osnap pt "MID"))

lead009

不太明白耶

zzxxqq，你可以為我舉一個具體的例子嗎 ><