OSNAP函数

marko_ribar · 发表于 2022-7-6 07:39:02

我不明白，（osnap）函数的行为就像真实的osnap：如果测试点最接近“u qua”捕捉，则，（osnap）将返回圆的象限点；若距离测试点最近的第一个捕捉距离圆心较近，则（osnap）将返回圆的圆心。。。测试取决于测试点-其相对于最近实体捕捉的位置。。。

Costinbos77 · 发表于 2022-7-6 07:44:26

我们讨论的一切都在一个循环中进行，而决策，函数在哪里

copy


(grread T 15 0)

主题：

http://www.cadtutor.net/forum/showthread.php?77110-vla移动和OSMODE问题。

marko_ribar · 发表于 2022-7-6 07:48:18

我认为，在圆作为测试实体的情况下，应该考虑将孔径sys变量更改为更高的值，因为这个小代码为捕捉提供了不同的结果。。。

copy


(while (setq gr (grread t))
 (print (osnap (cadr gr) "_cen,_qua"))
)

当光圈小时，这将只返回圆的象限点，但当您将光圈设置为更高的值（我最大值为50）时，上述代码也将返回象限点之间的值和圆中心的坐标。。。注意，主要捕捉将是零点，因为实体圆周围的空间比OSNAP孔径操作的空间更宽、更大。。。

Costinbos77 · 发表于 2022-7-6 07:51:29

孔径=10，不是预期结果，我将尝试5。

谢谢你的想法。

Costinbos77 · 发表于 2022-7-6 07:54:19

我找到了一个解决方案：

计算每个鼠标点和OSMODE所需列表之间的距离。根据此距离，进行区分：

copy


    (setq liosnap nil) ;_ end of setq
    (foreach el litos (if (setq op (osnap p el))
   (progn 
     (setq d (distance p op)  d (cond ((= el "_cen") (/ d 4.)) ((= el "_nea") (* d 10.)) (T d)) )
     (setq liosnap (cons (list d op el) liosnap)) ))  ) ;_ end of f
    (if liosnap
     (setq liobs (car (vl-sort liosnap '(lambda (s1 s2) (< (car s1) (car s2)) ) ) )  op (nth 1 liobs)  mod (nth 2 liobs) ) ;_ end of setq
     (setq op nil) ;_ end of setq
    ) ;_ end of if liosnap

OSNAP的某些方式更“敏感”（qua，snow），因此必须加以抑制。

[编程交流] OSNAP函数

发表回复

精选推荐