LISP中有几种抓点的方式呢??

lead009

请教一下，lisp中有几种的抓点方式我目前所知道的有

1.物件抓点
(setvar "cmdecho" 0)
(setq en(entsel "select a LINE"))
(setq en(cadr en));;y物件
(setq mpt(osnap en"mid"))




)

用这种方式，可以抓到已知物件中的座标点




2.四个座标抓点
(setq int(inters p1 p3 p2 p4));交點




3.「OSMODE」物件鎖點模式
其值均儲存於圖檔中，一般預設值為零，但也有圖面或作圖環境的預設值為其他值。此種情況有時會導致在使用AutoLISP來繪圖的過程中，因鎖點模式而有所干擾，故常在AutoLISP的前面寫入「(Setvar "osmode" 0)」。鎖點模式的值分別如下：


其中我觉得最常用的就是osmode模式，但是它有一个缺点。
比如
(setq old(getvar "OSMODE"))
(setq p1(getpoint"选取一点"))
(setvar "OSMODE" 128)
(setq p2(getpoint"选取二点"))
(command "distance" p1 p2)


比如在这段程式码中，在你要点选p2的时候，会设定自动抓取垂直点。程式完成后，再回复原本的抓点模式。
但是如果你在点选p1之后，按下了"esc"结束程式
那么锁点模式就会变成了只抓垂直点


不知有什么什么更好用的抓点模式呢??