乐筑天下

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

[编程交流] 如何在dwg中查找块

[复制链接]

1

主题

4

帖子

3

银币

初来乍到

Rank: 1

铜币
5
发表于 2022-7-6 15:23:43 | 显示全部楼层 |阅读模式
你好论坛。。。
我是autoCAD的初学者,正在编写一个基于C的小测试程序。
 
我试着从一张图中找出方块和它们的位置。
 
到现在为止,我只能得到块的名称,但只有一次。
图形中有两个相同的块,我必须获得每个块的位置,以及属性值。
 
有人能帮我解决这个问题吗?
 
如果有VBA代码段,这可能也会有所帮助。
 
非常感谢
Telefisch公司
回复

使用道具 举报

4

主题

940

帖子

961

银币

初来乍到

Rank: 1

铜币
12
发表于 2022-7-6 15:32:02 | 显示全部楼层
尝试Eattext(如果2004没有Eattext,则尝试Attext)
回复

使用道具 举报

1

主题

4

帖子

3

银币

初来乍到

Rank: 1

铜币
5
发表于 2022-7-6 15:37:46 | 显示全部楼层
谢谢你的回答。
这是ACAD命令吗?
 
我需要一些东西按代码显示这个信息。
回复

使用道具 举报

4

主题

940

帖子

961

银币

初来乍到

Rank: 1

铜币
12
发表于 2022-7-6 15:47:34 | 显示全部楼层
这是一个Autocad命令。如果你需要代码,很快就会有人来帮你。
或者在这里试试;这是一个很好的编程源,你需要注册,但它是免费的。
回复

使用道具 举报

1

主题

4

帖子

3

银币

初来乍到

Rank: 1

铜币
5
发表于 2022-7-6 15:53:47 | 显示全部楼层
谢谢
 
看起来很奇怪。
 
如果有人有主意,请告诉我。
从那时起,我将在斯万普搜索。
 
Telefisch公司
回复

使用道具 举报

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-6 16:01:41 | 显示全部楼层
也许是这样:
 
这将把所有块信息写入Excel文档,并将其保存在指定位置。
 
如下所示指定您的位置:
 
“C:\XXX\XXX\filename”
 
LISP将创建一个名为“filename”的Excel文档,并将其保存到“C:\XXX\XXX”
 
或者,如果您每次都使用相同的位置:
 
  1. (defun c:blocext2 (/ fname fpath)
  2.    (setvar "cmdecho" 0)
  3.    (setq fname (getstring t "\nSpecify Filename: "))
  4.    (setq fpath (strcat "[b][color=Red]C:\\Users\\[/color][/b]" fname)) ; <<---<< Change this line for a different Location
  5.    (command "-eattext" "C" "Y" "Y" "" "Xls" fpath)
  6.    (setvar "cmdecho" 1)
  7.    (princ)
  8. ) ; end blocext2
HTH,
Telefisch公司
回复

使用道具 举报

1

主题

4

帖子

3

银币

初来乍到

Rank: 1

铜币
5
发表于 2022-7-6 16:07:43 | 显示全部楼层
使用arx索引访问图形数据库怎么样?
回复

使用道具 举报

21

主题

146

帖子

127

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
106
发表于 2022-7-6 16:16:11 | 显示全部楼层
在VBA中,您可以使用以下代码:
 
公共子区块搜索()
将块变暗为AcadBlock
对于本图中的每个块。阻碍
MsgBox“块名为:”&块。名称&“插入点为:”块。插入点“
下一个区块
回复

使用道具 举报

3

主题

6

帖子

3

银币

初来乍到

Rank: 1

铜币
15
发表于 2022-7-6 16:18:52 | 显示全部楼层
Vba和C非常相似,使用上面的Zeusovsky,您可以搜索所有块,然后制作一个列表,然后在输出结果之前按块名对列表进行排序。
 
而不是foreach
 
  1. 2
回复

使用道具 举报

106

主题

1万

帖子

101

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1299
发表于 2022-7-6 16:27:25 | 显示全部楼层
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-4 18:22 , Processed in 0.330224 second(s), 72 queries .

© 2020-2025 乐筑天下

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