如何设置图案填充对象捕捉开关？

zilong136 · 发表于 2024-9-8 01:19:30

如何修改这段代码？

(defun c:g13 ()
  (prompt "\n g13:图案填充对象捕捉开关")
  (let ((osoptions (getvar "osoptions")))
(if (= 1 (bitand osoptions 1))
      (progn (setvar "osoptions" (bitxor osoptions 1))
            (princ "\n  g13:图案填充对象捕捉--开"))
      (progn (setvar "osoptions" (+ osoptions 1))
            (princ "\n  g13:图案填充对象捕捉--关"))
   )
)
  (princ)
)

xiaocainiao · 发表于 2024-9-8 07:37:26

我发现你技术比我还水啊、一点都不学、纯纯要代码来啦

aws · 发表于 2024-9-8 09:05:22

AI的代码吧，AI特别喜欢用let这个函数

qazxswk · 发表于 2024-9-8 10:05:19

试试(defun c:11()(setvar "osoptions" (if (= (getvar "osoptions") 2) 3 2))(princ))

maiko · 发表于 2024-9-8 10:20:36

(AI_ONOFF 'OSNAPHATCH)

zilong136 · 发表于 2024-9-8 12:22:04

本帖最后由 zilong136 于 2024-9-8 12:46 编辑

qazxswk 发表于 2024-9-8 10:05
试试(defun c:11()(setvar "osoptions" (if (= (getvar "osoptions") 2) 3 2))(princ))

可以，谢谢。

(defun c:g13 ()
(setvar "osoptions"
(if (= (getvar "osoptions") 6) 7 6)
)
(if (= (getvar "osoptions") 6)
(prompt "\n g13:图案填充对象捕捉--开")
(prompt "\n g13:图案填充对象捕捉--关")
)
(princ)
)

zilong136 · 发表于 2024-9-8 12:29:09

maiko 发表于 2024-9-8 10:20
(AI_ONOFF 'OSNAPHATCH)

OK,谢谢，可以用。

zilong136 · 发表于 2024-9-8 12:55:40

xiaocainiao 发表于 2024-9-8 07:37
我发现你技术比我还水啊、一点都不学、纯纯要代码来啦

这你也知道了

zilong136 · 发表于 2024-9-8 12:56:44

aws 发表于 2024-9-8 09:05
AI的代码吧，AI特别喜欢用let这个函数

自己也写了一个，然后用AI也写了一个，发现大部分AI写的都不能运行。

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