找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 546|回复: 2

[每日一码] 按图层统计图块的数量别列表

[复制链接]

已领礼包: 19个

财富等级: 恭喜发财

发表于 2017-5-13 19:18:45 | 显示全部楼层 |阅读模式

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

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

×
本帖最后由 Lisphk 于 2017-5-13 19:27 编辑

Count DIMS by layer.jpg


  1. (defun c:dimcount ( / enx idx lay lst sel val )
  2.     ;; Define function and declare local variables

  3.     ;; If the user makes a valid selection of dimensions
  4.     (if (setq sel (ssget '((0 . "*DIMENSION"))))
  5.         (progn
  6.             ;; Then do the following:

  7.             ;; Iterate over the selection set
  8.             ;; [ Method 2a: http://lee-mac.com/selsetprocessing.html ]
  9.             (repeat (setq idx (sslength sel))
  10.                 ;; Obtain the DXF data for an item in the set
  11.                 (setq enx (entget (ssname sel (setq idx (1- idx))))
  12.                 ;; Obtain the dimension layer
  13.                       lay (cdr (assoc  8 enx))
  14.                 ;; Obtain the dimension measurement
  15.                       val (cdr (assoc 42 enx))
  16.                 ;; Update the association list with these entries
  17.                       lst (LM:nassoc++ (list lay val) lst)
  18.                 ) ;; end setq
  19.             ) ;; end repeat

  20.             (print lst)
  21.         ) ;; end progn
  22.     ) ;; end if
  23.     ;; Suppress the value returned by the last evaluated expression
  24.     (princ)
  25. ) ;; end defun

  26. ;; Nested Assoc++  -  Lee Mac
  27. ;; Increments the value of a key in an association list with possible nested structure,
  28. ;; or adds the set of keys to the list if not present.
  29. ;; key - [lst] List of keys & subkeys
  30. ;; lst - [lst] Association list (may be nil)

  31. (defun LM:nassoc++ ( key lst / itm )
  32.     (if key
  33.         (if (setq itm (assoc (car key) lst))
  34.             (subst (cons (car key) (LM:nassoc++ (cdr key) (cdr itm))) itm lst)
  35.             (cons  (cons (car key) (LM:nassoc++ (cdr key) nil)) lst)
  36.         )
  37.         (if lst (list (1+ (car lst))) '(1))
  38.     )
  39. )
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

已领礼包: 1336个

财富等级: 财源广进

发表于 2017-5-14 09:05:48 | 显示全部楼层
谢谢老大,坐个沙发
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 217个

财富等级: 日进斗金

发表于 2017-6-12 13:34:55 | 显示全部楼层
楼主,有2个问题啊:
1.代码不全,无法实现图片中的功能
2.统计的是是标注不是图块
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

GMT+8, 2024-3-29 14:55 , Processed in 0.190234 second(s), 39 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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