明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
楼主: 77077

[源码] [可选择]块属性刷刷刷.

  [复制链接]
发表于 2014-3-11 13:11 | 显示全部楼层
支持分享源码。
发表于 2014-3-11 17:47 | 显示全部楼层
还缺少函数的 “选择对象:  ; 错误: no function definition: GETATTVALUE”
发表于 2014-3-11 17:49 | 显示全部楼层
选择对象:  ; 错误: no function definition: SETATTVALUE

这个也是!
发表于 2014-3-30 13:55 | 显示全部楼层
希望楼主给个完整代码!!!!谢谢!!
发表于 2014-5-28 08:50 | 显示全部楼层
不能用,还是用原来的完全刷!
发表于 2014-7-10 19:33 | 显示全部楼层
test.dcl在那里啊?
 楼主| 发表于 2014-7-11 00:23 | 显示全部楼层
htxhtx 发表于 2014-7-10 19:33
test.dcl在那里啊?

不用个管它在哪里,不影响使用。
这是一个动态生成DCL的程序,程序运行会根据lst自动生成DCL.
发表于 2014-7-11 10:20 | 显示全部楼层
本帖最后由 fl202 于 2014-7-11 10:30 编辑

以下是补缺少的两个子函数:
  1. ;;;取得块属性值
  2. (defun getattvalue (entblock attname / entdata entname test value)
  3.   (setq entname entblock test t  )
  4.   (while (and  test   (setq entname (entnext entname))  )
  5.     (setq entdata (entget entname))
  6.     (cond
  7.     ((not (= (cdr (assoc 0 entdata)) "ATTRIB"))   (setq test nil)  )
  8.     ((= "SEQEND" (cdr (assoc 0 entdata)))         (setq test nil)  )
  9.     ((= (cdr (assoc 2 entdata)) attname)          (setq value (cdr (assoc 1 entdata)))  )
  10.      )
  11.   )
  12.   value
  13. )
  14. ;;;getattnamelst 替换getattributes
  15. ;;;给块属性赋值
  16. (defun setattvalue (EN ATTNAME vALUE /  szb1 E TEST ENT)
  17.         (setq E EN          RETURN NIL          TEST t    )
  18.     (while (and        TEST                (setq E (entnext E))           )
  19.         (setq ENT (entget E))
  20.         (cond
  21.             ;;
  22.             ((not (= (cdr (assoc 0 ENT)) "ATTRIB"))
  23.              (setq TEST NIL)
  24.             )
  25.             ;;
  26.             ((= "SEQEND" (cdr (assoc 0 ENT)))
  27.              (setq TEST NIL)
  28.             )
  29.             ;;
  30.             ((= (cdr (assoc 2 ENT)) ATTNAME )
  31.              (setq ENT (subst        (cons 1 VALUE)  (assoc 1 ENT) ENT) )
  32.              (entmod ENT)
  33.              (entupd EN)
  34.              (setq RETURN t)
  35.             )
  36.            ) ;_结束cond
  37.     )
  38.     ;;返回
  39.     RETURN
  40. )
附件是经测试的完整程序,对程序稍作修改,收币一个。大家自主选择,补函数后还要调试修改完才能用,嫌麻烦的就下载好了。

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x

点评

应该加一个记忆选择功能  发表于 2023-5-25 10:25
应加个 ''全选'' 功能  发表于 2015-6-17 14:21
发表于 2014-10-15 09:16 | 显示全部楼层
还是出错,比较麻烦
发表于 2015-6-17 12:48 | 显示全部楼层
好想试一试,没明经币了
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-6-18 17:12 , Processed in 0.147142 second(s), 20 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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