板材框架结构

qazxswk

langjs 发表于 2025-11-28 22:14
拿走不谢，现成的捕捉函数整合进去就行

在大文件里，卡出翔来

lingfne

langjs 发表于 2025-11-28 22:14
拿走不谢，现成的捕捉函数整合进去就行

(<= (* 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)))
                                                )
                                        )
                                )
      )
    )

xyp1964

动态显示要尽可能用grvecs

langjs

qazxswk 发表于 2025-11-28 22:51
在大文件里，卡出翔来

我的grread捕捉函数优化过的，感觉还好，一般够用。