设为首页收藏本站转
发帖领奖家园QQ群申请版主版主评价切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › A/VLISP › 怎么用lisp函数来处理块内的实体
返回列表 发新帖
查看: 1340|回复: 6

[求助] 怎么用lisp函数来处理块内的实体

[复制链接]
fen00
发表于 2021-5-8 14:57:14 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要 登录 才可以下载或查看，没有账号？立即注册

×
请教各位大神，不用工具箱里的函数，怎么做lisp原生的函数来处理块内的实体
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

aisong220

已领礼包: 4365个

财富等级: 富可敌国
发表于 2021-5-9 00:17:59 | 显示全部楼层
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

hh_lj007

已领礼包: 756个

财富等级: 财运亨通
发表于 2021-5-10 08:52:26 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
搬个板凳看一看
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

晨曦CAD

已领礼包: 3个

财富等级: 恭喜发财
发表于 2021-5-10 14:28:11 | 显示全部楼层
  2. ;单个块内元素变色
  3. ;blockent:块图元名
  4. ;colornum:颜色号
  5. ;by晨曦CAD2021.5.10
  6. (defun HG::BLOCK::SETCOLOR(blockent colornum / e loop liste)
  7.   (setq e (tblsearch "block" (cdr(assoc 2 (entget blockent)))))
  8.   (setq e (cdr (last e)))
  9.   (setq loop T)
  10.   (while loop
  11.         (progn
  12.         (if (= (cdr(assoc 0 (entget e))) "INSERT")
  13.             (HG::BLOCK::SETCOLOR e colornum)
  14.             (progn
  15.               (setq liste(entget e))
  16.               (if (not (assoc 62 liste))
  17.                 (progn
  18.                   (setq liste(vl-remove (assoc 62 liste) liste))
  19.                   (setq liste(append liste (list (cons 62 256))))
  20.                 ))
  21.               (setq liste (subst (cons 62 colornum) (assoc 62 liste) liste))
  22.               (entmod liste)
  23.               )
  24.           )
  25.        
  26.         (if (not (setq e(entnext e))) (setq loop nil))
  27.           )
  28.         )
  29.   (entupd blockent) ;;刷新块
  30.   )


希望对你有启发

点评

hh_lj007
会不会一直entnext下去，如果图形里面还有其他块，并且块内的图元和开始的块内图元有一起编组的  详情 回复 发表于 2021-5-11 08:33
fen00
理解了，非常感谢  详情 回复 发表于 2021-5-10 15:51
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

fen00
 楼主| 发表于 2021-5-10 15:51:54 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
晨曦CAD 发表于 2021-5-10 14:28
希望对你有启发

理解了，非常感谢
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

hh_lj007

已领礼包: 756个

财富等级: 财运亨通
发表于 2021-5-11 08:33:58 | 显示全部楼层
晨曦CAD 发表于 2021-5-10 14:28
希望对你有启发

会不会一直entnext下去，如果图形里面还有其他块，并且块内的图元和开始的块内图元有一起编组的

点评

fen00
如果正常画图，不会有这样的块吧  详情 回复 发表于 2021-5-11 10:47
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

fen00
 楼主| 发表于 2021-5-11 10:47:56 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
hh_lj007 发表于 2021-5-11 08:33
会不会一直entnext下去，如果图形里面还有其他块，并且块内的图元和开始的块内图元有一起编组的

如果正常画图，不会有这样的块吧
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

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

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-11-15 11:15 , Processed in 0.199668 second(s), 41 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表