langjs 发表于 2025-11-28 22:14
拿走不谢，现成的捕捉函数整合进去就行
在大文件里，卡出翔来:lol
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)))
)
)
)
)
)
动态显示要尽可能用grvecs
qazxswk 发表于 2025-11-28 22:51
在大文件里，卡出翔来
我的grread捕捉函数优化过的，感觉还好，一般够用。
langjs 发表于 2025-11-28 22:14
拿走不谢，现成的捕捉函数整合进去就行
明师出手,不同范响!
langjs 发表于 2025-11-29 01:45
我的grread捕捉函数优化过的，感觉还好，一般够用。
前辈！如果，再能优化，可输入尺寸定位，应该一个很好的绘图工具！！
lingfne 发表于 2025-11-29 03:44
前辈！如果，再能优化，可输入尺寸定位，应该一个很好的绘图工具！！
grread获取四点生成不更方便吗，2捕捉捕捉或者输入，效率很慢，我也是做全屋定制的
zj20190405 发表于 2025-11-29 08:11
grread获取四点生成不更方便吗，2捕捉捕捉或者输入，效率很慢，我也是做全屋定制的
我也是也 画破柜子的
qifeifei 发表于 2025-11-28 19:11
改造失败了！
你的代码是改造失败的，然后你发不能用的代码出来还要收币。我谁都不服，就服你了。:lol
qazxswk 发表于 2025-11-29 09:45
你的代码是改造失败的，然后你发不能用的代码出来还要收币。我谁都不服，就服你了。
其实我在昨天晚上就改造好了、网站太卡；我就没发
//
我就是喜欢收集金币