求输入tt，不用选择，直接解锁图层名为你好123 的图层

664571221 · 发表于 4 天前

xyp1964 · 发表于 4 天前

本帖最后由 xyp1964 于 2025-2-17 22:34 编辑

(defun c:tt()
(if(tblsearch"layer""你好123")(command"-layer""unlock""你好123"""))
(princ)
)

;; (LaUnlock"你好123")
(defun LaUnlock(la)(if(tblsearch"layer"la)(command"-layer""unlock"la"")))

1506822004 · 发表于 4 天前

(defun c:tt (/ layer_ent layer_data old_flags new_flags)
  ;; 检查图层 "你好123" 是否存在
  (if (setq layer_ent (tblobjname "LAYER" "你好123"))
(progn
   ;; 获取图层属性数据
   (setq layer_data (entget layer_ent))
   (setq old_flags (cdr (assoc 70 layer_data)))  ;; 提取图层的 70 组码（状态标志）

   ;; 检查是否已锁定（判断位2是否为1）
   (if (logtest old_flags 4)  ;; 4 对应二进制 100（位2）
      (progn
      ;; 清除锁定标志（位2置0）
      (setq new_flags (logand old_flags (lognot 4)))
      (setq layer_data (subst (cons 70 new_flags) (assoc 70 layer_data) layer_data))

      ;; 更新图层属性
      (entmod layer_data)
      (entupd layer_ent)
      (princ "\n图层'你好123'已解锁。")
      )
      ;; 如果未锁定，直接提示
      (princ "\n图层'你好123'未被锁定。")
   )
)
;; 如果图层不存在，提示错误
(princ "\n错误：图层'你好123'不存在。")
  )
  (princ)
)

deepseek写的，你试试

Scarlet2001 · 发表于 4 天前

本帖最后由 Scarlet2001 于 2025-2-17 15:31 编辑

以下是deepseek生成的代码（虽然不知道为啥第一次生成的时候会丢几个括号，当时提示他一下他又能修回来）：
(defun c:unlocklayer ()
  (setq layername "你好123") ; 设置图层名称
  (setq layer (tblsearch "layer" layername)) ; 查找图层
  (if layer
(progn
   (command "_.layer" "_unlock" layername "") ; 解锁图层
   (princ (strcat "\n图层 " layername " 已解锁。")) ; 提示解锁成功
)
(princ (strcat "\n图层 " layername " 未找到。"))) ; 提示图层未找到
  (princ) ; 静默退出
)

自贡黄明儒 · 发表于 4 天前

这个简单的问题，今后可以直接用AI生成代码

664571221 · 发表于 4 天前

自贡黄明儒发表于 2025-2-17 15:14
这个简单的问题，今后可以直接用AI生成代码

能发个网址吗AI的

wudechao · 发表于 4 天前

1506822004 发表于 2025-2-17 15:26
(defun c:tt (/ layer_ent layer_data old_flags new_flags)
;; 检查图层 "你好123" 是否存在
(if (s ...

被院长的四行代码打的无还手之力！

664571221 · 发表于 4 天前

xyp1964 发表于 2025-2-17 16:24

谢谢派大......

664571221 · 发表于 4 天前

wudechao 发表于 2025-2-17 16:41
被院长的四行代码打的无还手之力！

还是院长靠谱.....

hhh454 · 发表于 4 天前

还是院长的简洁明了，假如有就解锁

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

[提问] 求输入tt，不用选择，直接解锁图层名为你好123 的图层

点评

点评

点评

点评

[提问] 求输入tt，不用选择，直接解锁图层名为 你好123 的图层

点评

点评

点评

点评

[提问] 求输入tt，不用选择，直接解锁图层名为你好123 的图层