求助!各位路过前辈们,请帮忙添加第二点捕捉功能!这小工具,如果没有第二点捕捉功能,那不算是工具了!!


网友答: 改造失败了！



网友答: 本帖最后由 qazxswk 于 2025-11-29 10:56 编辑

你改造好发出来收币，别人不会说你。没有改造好的，就不要发出来，或者不要收币了。

你昨天那个，到我回复此帖前，下载量还是零。可见大家的态度了。钱乃身外之物，看开点，年轻人。


网友答:
(<= (* 0.25 pi) (angle $pt001 pt) (* 0.75 pi));;返回nil

(if $pt001
      (progn
                                (setvar "lastpoint" $pt001)
                                (if (= (getvar "ORTHOMODE") 1) ; 区分象限
                                        (cond
                                                ((or
                                                         (<= (* 0.25 pi) (angle $pt001 pt) (* 0.75 pi))
                                                         (<= (* 1.25 pi) (angle $pt001 pt) (* 1.75 pi))
                                                 )
                                                        (setq pt (list (car $pt001) (+ (cadr $pt001) (* (distance $pt001 pt) (sin (angle $pt001 pt))))))
                                                )
                                                (t
                                                        (setq pt (list (+ (car $pt001) (* (distance $pt001 pt) (cos (angle $pt001 pt)))) (cadr $pt001)))
                                                )
                                        )
                                )
      )
    )

网友答: 用了grread函数，第二点很难做到捕捉了。要不换个思路吧，看最后生成的图形，也不是很复杂，放弃用grread函数试试。

网友答: 本帖最后由 qazxswk 于 2025-11-28 16:34 编辑

我前几天还写了一个与你类似功能的插件，全面参数化的。



网友答:
我这写是可预览目的,也是参数化的程序,换个方法就不一样了!

网友答: 这个 第二点捕捉功能 有点难度

网友答: 本帖最后由 qazxswk 于 2025-11-28 18:30 编辑

我砍掉了grread函数，只能区域预览，你看看合适否。
如果用grread函数实现捕捉，太复杂了。以前G版写了一个函数用grread实现捕捉，效果也不是很理想。
http://bbs.mjtd.com/thread-91191-1-1.html


网友答: 可以搞个简易版的捕捉函数，这样效果会好一些，G版的对象多了容易卡和出错

网友答: 拿走不谢


网友答: 本帖最后由 langjs 于 2025-11-28 22:18 编辑

拿走不谢，现成的捕捉函数整合进去就行