从EXE导入多表数据

martinpd · 发表于 2022-7-6 10:00:55

这里有个新手。我们有一个包含1500个无线电站点的excel列表，其中包含坐标和标签。我们需要将所有这些导入到正确的位置，插入一个杆塔符号（块），标记它，并将坐标放在标签下。我们使用的是AutoCad Map 3D 2010。有没有人有比手动完成这一切更简单的脚本或方法？谢谢

irneb · 发表于 2022-7-6 10:08:18

你能附上一个excel文件的样本吗（不需要所有1500个，只要几个就可以了）。然后，关于块的更多信息（名称、属性、动态特性、注释性缩放等）-也许附加这些信息会更好

fixo · 发表于 2022-7-6 10:09:03

例如，你能手动插入一个块并附上这张图吗
（我用的是A2008）

~'J'~

irneb · 发表于 2022-7-6 10:14:59

刚刚意识到，在你发布第十篇文章之前，附件有一个限制。与此同时，你能和我们一起描述一下这些东西吗。E、 g.XLS文件的选项卡名称、数据范围、列标题和描述。还可以根据需要从XLS中的一行列出其中一个块。

martinpd · 发表于 2022-7-6 10:18:38

在编辑屏幕上，我看不到删除或移动此内容的命令，因此出现了双帖子。抱歉冒犯了。
保罗

martinpd · 发表于 2022-7-6 10:23:58

这个街区只是一座塔的图形符号。这座塔的名字各不相同，但有点像B123456。这将是Excel中的一个列。下一列是十进制纬度度，下一列是十进制经度。来自所有三列的所有位置合适的数据将与塔符号一起显示，并放置在正确的位置。地理位置数据将覆盖俄亥俄州及其周边地区。我们可以根据需要更改专栏标题和顺序。谢谢

ReMark · 发表于 2022-7-6 10:27:27

你看过这个节目吗？

http://lee-mac.com/ptmanager.html

Tiger · 发表于 2022-7-6 10:29:24

线程合并-祝你好运

fixo · 发表于 2022-7-6 10:35:27

试试这个
[code]（vl负载com）；；本地defun（defun read\u excel\u range（FilePath ShtNum Address/ExcelApp ExcData Sht UsdRange Wbk）（setq ExcelApp（vlax get or create object“excel.Application”）（vla put visible ExcelApp:vlax true）（vlax put property ExcelApp'DisplayAlerts:vlax true）（setq Wbk（vl-catch-all-apply'vla-open（list（vlax get property ExcelApp“WorkBooks”）FilePath））（setq Sht（vl-catch-all-apply'vlax-get-property）（list（vlax get property Wbk“Sheets”）“Item”ShtNum））（vlax invoke method Sht“Activate”）（setq UsdRange（vlax get property（vlax get property Sht’Cells）“Range”Address）UsdRange（vlax get propertyUsdRange“CurrentRegion”）exdata（vlax safearray->list（vlax variant value（vlax get property UsdRange‘Value2）））（setqExcData（mapcar（函数（lambda（x）（mapcar‘vlax variant value x）））ExcData（setqExcData（vl remove if（function（lambda（x）（member nil x）））ExcData）（vl-catch-all-apply'vlax-invoke-method（list Wbk“Close”：vlax false））（vl-catch-all-apply'vlax-invoke-method（list ExcelApp“Quit”））（mapcar（function（lambda（x）（vl catch-all-apply apply（function）（function（lambda（）（progn（if（not（vlax-object-released-p x））（progn（vlax release object x）（setq x nil（））））））））（list UsdRange Sht Wbk ExcelApp））（gc）（gc）（gc）ExcData）；；主程序（defun C:STX（/acsp address attcoll blkname blkobj data_list fname inspoint sheetnum）（setvar“pdmode”34）（setvar“pdsize”2）（setq blkname“R-STATION”）；

martinpd · 发表于 2022-7-6 10:38:20

谢谢你的帮助，菲索。我制作了一个包含3列的excel文件；塔名、纬度和经度，并更改了脚本中的适当位置。当我运行应用程序时，我得到以下响应：
; 错误：错误的参数类型：VLA-OBJECT#。你知道我做错了什么吗？

[编程交流] 从EXE导入多表数据

发表回复

精选推荐