osnap 该如何使用

原地踏步 · 发表于 2020-8-22 21:21:48

本帖最后由原地踏步于 2020-8-24 19:19 编辑

通过一点向对象做垂线，对象性质不确定，可能是直线、多段线、块等。简单的功能，却怎么也搞不定。是 osnap 用得不对吗？请大神指点。
(defun c:tt ()
  (setq cde (getvar "cmdecho")
      omd (getvar "osmode")
  )
  (setvar "cmdecho" 0)
  (setvar "osmode" 0)
  (setq pt1 (getpoint "\nFirst point:"))
  (setq pt2 (getpoint pt1 "\nSecond point:"))  ;选择对象上一点
  (setq pt2 (osnap pt2 "_per"))
  (command "line" pt1 pt2 "")
  (setvar "osmode" omd)
  (setvar "cmdecho" cde)
  (princ)
)

pxr201419 · 发表于 2020-8-22 21:21:49

(defun c:tt ()
(setq omd (getvar "osmode"))
(setvar "osmode" 0)
(setq pt1 (getpoint "\nFirst point:"))
(setvar "osmode" 128);捕捉到垂足
(setq pt2 (getpoint pt1 "\nSecond point:"))
(vl-cmdf "line" pt1 pt2 "")
(setvar "osmode" omd)
(princ))

WhoCanSay · 发表于 2020-8-23 02:35:22

本帖最后由 WhoCanSay 于 2020-8-23 02:39 编辑

不用per,用near (setq pt2 (osnap pt1 "_near
"))只点取一下

原地踏步 · 发表于 2020-8-23 09:08:19

near只能保证点在对象上，不能保证直线垂直于对象，不是我想要的。

WhoCanSay · 发表于 2020-8-23 15:54:23

(defun c:tt ()
(setq omd (getvar "osmode"))
(setvar "osmode" 0)
(setq pt1 (getpoint "\nFirst point:"))
（if (setq pt2 (osnap pt1 "per"))
(vl-cmdf "line" pt1 pt2 ""))
(setvar "osmode" omd)
(princ))

Lisphk · 发表于 2020-8-23 18:31:59

就是在捕捉靶框范围内，把你的点设置到捕捉点
(setq pt2 (osnap pt1 "per"))

pt1 在靶框内，且靶框内有图元，那么pt2设置到垂点

靶框大小由系统变量 aperture 确定

原地踏步 · 发表于 2020-8-24 08:00:06

看来是我想多了，原来最简单的方法才是最有效的方法。

原地踏步 · 发表于 2020-8-24 08:01:16

谢谢大家的热心解答。

晨曦CAD · 发表于 2020-12-15 13:48:43

感觉！！！！！！！！！！！！！！！！

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

[已解决] osnap 该如何使用

最佳答案