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

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › 晓东工具箱、编程申请 › 帮忙看看这个提取属性块的程序！
返回列表 发新帖
查看: 2861|回复: 12

[求助] 帮忙看看这个提取属性块的程序！

[复制链接]
spp_wall

已领礼包: 127个

财富等级: 日进斗金
发表于 2014-10-23 20:25:06 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

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

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

×
(defun c:tt (/ d r ss n obj atts)
  (while (setq d (tblnext "block" (null d)))
    (setq r (cons (cdr (assoc 2 d)) r))
  )
  (and r
       (setq filename (getfiled "属性输出文件名" "" "csv" 1))
       )
  (if filename
    (progn
      (setq f (open filename "w"))
  (foreach name r
   (setq ss (ssget "X" '((0 . "INSERT"))));选择对象,修改这里.
    ;(ssget ss(SSGET "X" '((0 . "INSERT") (8 . "目录")(66 . 1)) ))  ;怎么全选目录这个属性块
    (if ss
      (progn
(setq atts (append
     (vlax-invoke (setq obj (vlax-ename->vla-object (ssname ss 0))) 'GetConstantAttributes)
     (vlax-invoke obj 'GetAttributes)
     )
     )
      (princ "序号," f)
      (foreach att atts
        (princ (vla-get-TagString att) f)
        (princ "," f)
        );求出属性列表,写表头
      (princ "\n" f)
      (setq n -1)
      (repeat (sslength ss)
        (setq obj (vlax-ename->vla-object (ssname ss (setq n (1+ n)))))
        (setq atts (append
       (vlax-invoke obj 'GetConstantAttributes)
       (vlax-invoke obj 'GetAttributes)
       )
       )
(princ (1+ n) f) (princ "," f)
        (foreach att atts
          (princ (vla-get-TextString att) f) (princ "," f)
          )
        (princ "\n" f);写出属性值
        )
      )
      )
    )
      (close f)
  )
    )
  )
有几个问题：
1：现在提取的数据会重复3次！
2：能否只提取 目录 这个属性块的值，我改了无法实现
3：能不能实现批量提取一个文件夹的数据！
程序

相关帖子

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

使用道具 举报

newer

已领礼包: 40个

财富等级: 招财进宝
发表于 2014-10-24 00:10:20 | 显示全部楼层
;(ssget ss(SSGET "X" '((0 . "INSERT") (8 . "目录")(66 . 1)) ))  ;怎么全选目录这个属性块


祖玛8是层名啊。 而且属性是子实体，你提取不到的，你得先得到属性实体，再判断是否你需要的。

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

使用道具 举报

spp_wall

已领礼包: 127个

财富等级: 日进斗金
 楼主| 发表于 2014-10-24 11:42:22 来自手机 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
我的层名改成目录好像也不行。

点评

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

使用道具 举报

newer

已领礼包: 40个

财富等级: 招财进宝
发表于 2014-10-24 13:12:40 | 显示全部楼层
spp_wall 发表于 2014-10-24 11:42
我的层名改成目录好像也不行。

直接是SSGET不了的。

点评

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

使用道具 举报

Free-Lancer
发表于 2014-10-24 13:55:04 来自手机 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
用vla只能一次都提出来再用tag判断
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

spp_wall

已领礼包: 127个

财富等级: 日进斗金
 楼主| 发表于 2014-10-24 14:44:01 | 显示全部楼层
newer 发表于 2014-10-24 13:12
直接是SSGET不了的。

那有啥办法么！！！！

点评

newer
选完INSERT后，自己去找他下面的属性，判断啊。  详情 回复 发表于 2014-10-24 14:47
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

newer

已领礼包: 40个

财富等级: 招财进宝
发表于 2014-10-24 14:47:23 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
spp_wall 发表于 2014-10-24 14:44
那有啥办法么！！！！

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

使用道具 举报

zxq0220

已领礼包: 10513个

财富等级: 富甲天下
发表于 2014-10-24 20:14:43 | 显示全部楼层
  2. (defun c:tt (/ d r ss n obj atts)
  3.   (while (setq d (tblnext "BLOCK" (null d)))
  4.     (setq r (cons (cdr (assoc 2 d)) r))
  5.   )
  6.   (and r (setq filename (getfiled "属性输出文件名" "" "csv" 1)))
  7.   (if filename (progn
  8.    (setq f (open filename "w"))
  9.    (foreach name r
  10.     (setq ss (ssget "X" (list '(0 . "INSERT")(cons 2 name)'(8 . "目录")'(66 . 1))))
  11. ;    (setq ss (ssget "X" '((0 . "INSERT"))));选择对象,修改这里.
  12.     (if ss (progn
  13.      (setq atts (append
  14.        (vlax-invoke (setq obj (vlax-ename->vla-object (ssname ss 0))) 'GetConstantAttributes)
  15.        (vlax-invoke obj 'GetAttributes)
  16.       )
  17.      )
  18.      (princ "序号," f)
  19.      (foreach att atts
  20.       (princ (vla-get-tagstring att) f)
  21.       (princ "," f)
  22.       );求出属性列表,写表头
  23.       (princ "\n" f)
  24.       (setq n -1)
  25.       (repeat (sslength ss)
  26.        (setq obj (vlax-ename->vla-object (ssname ss (setq n (1+ n)))))
  27.        (setq atts (append
  28.          (vlax-invoke obj 'GetConstantAttributes)
  29.          (vlax-invoke obj 'GetAttributes)
  30.         )
  31.        )
  32.        (princ (1+ n) f) (princ "," f)
  33.        (foreach att atts  (princ (vla-get-textstring att) f) (princ "," f))
  34.        (princ "\n" f);写出属性值
  35.      )
  36.     ))
  37.    )
  38.    (close f)
  39.   ))
  40.   (princ)
  41. )

点评

spp_wall
好像只能对打开的图有效，能选择文件夹批量处理 一个文件夹得图纸么！  详情 回复 发表于 2014-10-24 22:34
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

spp_wall

已领礼包: 127个

财富等级: 日进斗金
 楼主| 发表于 2014-10-24 22:34:13 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
zxq0220 发表于 2014-10-24 20:14

好像只能对打开的图有效，能选择文件夹批量处理 一个文件夹得图纸么！

点评

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

使用道具 举报

Free-Lancer
发表于 2014-10-25 20:04:54 | 显示全部楼层
spp_wall 发表于 2014-10-24 22:34
好像只能对打开的图有效，能选择文件夹批量处理 一个文件夹得图纸么！

需要使用 ObjectDBX

点评

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

使用道具 举报

spp_wall

已领礼包: 127个

财富等级: 日进斗金
 楼主| 发表于 2014-10-25 22:19:16 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
Free-Lancer 发表于 2014-10-25 20:04
需要使用 ObjectDBX

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

使用道具 举报

liuchong1988

已领礼包: 117个

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

使用道具 举报

zxc001975cvb
发表于 2024-2-27 14:01:40 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
学习学习!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-12-25 15:56 , Processed in 0.482258 second(s), 58 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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