乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 ☆ ☆ ☆ 尊重版权，从我做起，拒绝盗版，拒绝倒卖 ☆ ☆ ☆ 签到、发布资源、邀请好友注册，可以获得银币 ☆ ☆ ☆ 请注意保管好自己的密码，避免账户资金被盗
查看： 79|回复： 10

[编程交流] 锁定层的DXF代码

[复制链接]
Sweety

26

主题

149

帖子

127

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
135
发表于 2022-7-6 10:18:35 | 显示全部楼层 |阅读模式
你好
 
向锁定层指示的DXF代码是什么？
 
谢谢
回复

使用道具 举报

lpseifert

4

主题

940

帖子

961

银币

初来乍到

Rank: 1

铜币
12
发表于 2022-7-6 10:25:02 | 显示全部楼层
DXF代码70
4=锁定
 
来自帮助
回复

使用道具 举报

alanjt

54

主题

3755

帖子

3583

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
438
发表于 2022-7-6 10:33:09 | 显示全部楼层
使用logand 4
回复

使用道具 举报

Sweety

26

主题

149

帖子

127

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
135
发表于 2022-7-6 10:37:13 | 显示全部楼层
非常感谢你的帮助。。
 
这是我从Alanjt代码中获得的一段代码，但经过一些修改以满足我的问题。。。。。。。
 
  1. (logand 4 (cdr (assoc 70 (entget (tblobjname "LAYER" (cdr (assoc 8 (entget (car (entsel "\nSelect something:" ))))))))))

 
这是让它工作的唯一方法吗？
 
非常感谢。
回复

使用道具 举报

Se7en

2

主题

182

帖子

180

银币

初来乍到

Rank: 1

铜币
10
发表于 2022-7-6 10:43:27 | 显示全部楼层
>这是让它工作的唯一方法吗？
 
但这不起作用。。。我很困惑。
回复

使用道具 举报

Sweety

26

主题

149

帖子

127

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
135
发表于 2022-7-6 10:49:19 | 显示全部楼层
 
感谢Se7en对您的兴趣。
 
上述代码将返回数字4，这意味着根据lspeifert和Alanjt，已锁定。
 
因此，如果你想检查它是否正确，你可以添加以下内容。
 
  1. (eq 4 (logand 4 (cdr (assoc 70 (entget (tblobjname "LAYER" (cdr (assoc 8 (entget (car (entsel "\nSelect something:" )))))))))))

 
但我相信你知道这一切，不是吗？
 
非常感谢。
回复

使用道具 举报

Se7en

2

主题

182

帖子

180

银币

初来乍到

Rank: 1

铜币
10
发表于 2022-7-6 10:57:21 | 显示全部楼层
 
哦，好的。是的，你是对的。这将用于查看选定对象的层是否已锁定。
回复

使用道具 举报

Sweety

26

主题

149

帖子

127

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
135
发表于 2022-7-6 11:01:59 | 显示全部楼层
 
我真的很高兴你成功了。。。。
 
我以前也见过VBA，我希望有人能为我带来或编写这些代码？
也许下面的内容会让人开始。。。。
 
  1. (setq *activeDoc* (vla-get-activedocument (vlax-get-acad-object)))
  2. (and (setq ent (entsel "\n Select something :"))
  3.     (setq obj (vlax-ename->vla-object (car ent)))
  4.      )
  5. (if (eq .............................

 
非常感谢。
回复

使用道具 举报

lpseifert

4

主题

940

帖子

961

银币

初来乍到

Rank: 1

铜币
12
发表于 2022-7-6 11:07:26 | 显示全部楼层
艾伦准则的修订
  2. (setq obj (vlax-ename->vla-object (tblobjname "LAYER" (cdr (assoc 8 (entget (car (entsel "\nSelect something:" ))))))))
  3. (if
  4.  (=  :vlax-true (vlax-get-property obj 'Lock))
  5.  (princ "The layer is locked")
  6.  (princ "The layer is not locked")
  7.  )
回复

使用道具 举报

Sweety

26

主题

149

帖子

127

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
135
发表于 2022-7-6 11:14:23 | 显示全部楼层
 
很不错的。
 
非常感谢你，艾斯佩尔特。
回复

使用道具 举报

12下一页
返回列表 发帖

发表回复

高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-6 21:10 , Processed in 0.335240 second(s), 72 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表