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 "\ng13:图案填充对象捕捉--开"))
      (progn (setvar "osoptions" (+ osoptions 1))
               (princ "\ng13:图案填充对象捕捉--关"))
      )
    )
(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)

:victory:OK,谢谢，可以用。

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

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

这你也知道了;P

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

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

自己也写了一个，然后用AI也写了一个，发现大部分AI写的都不能运行。
页: [1]
查看完整版本: 如何设置图案填充对象捕捉开关？