乐筑天下

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

[编程交流] 你好freinds

[复制链接]
motee-z

63

主题

242

帖子

181

银币

后起之秀

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

铜币
319
发表于 2022-7-5 19:45:28 | 显示全部楼层 |阅读模式
你好，朋友们
即使是bylayer，我们如何获得实体颜色
我使用这个语法
  1. (setq e (car(entsel"\select entity>... ")))
  2. (setq objcolor (vla-get-Color (vlax-ename->vla-object e)))

如果实体bylayer的颜色值为256，无论颜色是什么
回复

使用道具 举报

Lee Mac

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-5 19:54:36 | 显示全部楼层
快速示例：
  1. (defun entcolor ( enx )
  2.    (cond
  3.        ((cdr (assoc 62 enx)))
  4.        ((abs (cdr (assoc 62 (tblsearch "layer" (cdr (assoc 8 enx)))))))
  5.    )
  6. )

使用DXF数据调用，例如：
  1. (if (setq ent (car (entsel)))
  2.    (entcolor (entget ent))
  3. )
回复

使用道具 举报

motee-z

63

主题

242

帖子

181

银币

后起之秀

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

铜币
319
发表于 2022-7-5 20:06:30 | 显示全部楼层
李出了点问题
我在获取value entcolor时收到一条消息
#
我想要的是拾取多段线或直线，然后获取其颜色将颜色存储在变量中以供以后使用
回复

使用道具 举报

Lee Mac

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-5 20:15:03 | 显示全部楼层
您如何调用该函数？
您如何使用函数返回的值？
回复

使用道具 举报

motee-z

63

主题

242

帖子

181

银币

后起之秀

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

铜币
319
发表于 2022-7-5 20:25:40 | 显示全部楼层 
  1. (defun c:gcolr (/)
  2. (defun objco ( enx )
  3.    (cond
  4.        ((cdr (assoc 62 enx)))
  5.        ((abs (cdr (assoc 62 (tblsearch "layer" (cdr (assoc 8 enx)))))))
  6.    )
  7. )
  8. (if (setq e (car (entsel"\n pick polyline,line")))
  9.    (objco (entget e))
  10. )
  11.  )

颜色值存储在哪里
回复

使用道具 举报

Lee Mac

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-5 20:29:09 | 显示全部楼层
 
对于当前代码，不会存储颜色值，因为您没有使用“objco”函数返回的值。
 
考虑以下因素：
  1. (defun c:gcolr ( / c e )
  2.    (if (setq e (car (entsel)))
  3.        (setq c (objco (entget e)))
  4.    )
  5.    (if c
  6.        (princ (strcat "\nThe colour of the selected object is: " (itoa c)))
  7.        (princ "\nThe user did not select an object.")
  8.    )
  9.    (princ)
  10. )
  11. (defun objco ( enx )
  12.    (cond
  13.        ((cdr (assoc 62 enx)))
  14.        ((abs (cdr (assoc 62 (tblsearch "layer" (cdr (assoc 8 enx)))))))
  15.    )
  16. )
回复

使用道具 举报

motee-z

63

主题

242

帖子

181

银币

后起之秀

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

铜币
319
发表于 2022-7-5 20:38:37 | 显示全部楼层
谢谢李，没关系
回复

使用道具 举报

Lee Mac

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-5 20:52:28 | 显示全部楼层
不客气。
回复

使用道具 举报

返回列表 发帖

发表回复

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

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-12 00:53 , Processed in 1.001664 second(s), 68 queries .

© 2020-2025 乐筑天下

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