使用Excel中的值缩放动态块

BIGAL · 发表于 2018-3-13 12:15:27

您好，
我想设置一个块&#039；s维度读取excel表格#039；s单元格值，并根据Excel表格中输入的值更新尺寸（即更改矩形的大小）
例如，给定一个尺寸为X（宽度）X Y（高度）的矩形，以及一个具有从excel电子表格链接的单元格A1和B1中给定的X和Y值的表格
I&#039；我不熟悉在AutoCAD中编写自定义代码，所以任何帮助/指导都会很棒！

yosso · 发表于 2018-3-16 03:46:47

你需要两个程序，比如getxcel。lsp和lee macs动态属性lisp。这两个人拥有所需的所有工具
也搜索轴。lsp和轴。在Cadtutor上的dwg是一个链接到excel的dwg，它的excel单元格发生了巨大的变化，dwg更新了，就像autocad版本9或20一样；几年前，它作为样例dwg发货。将尝试查找。

BIGAL · 发表于 2018-3-16 15:05:17

嘿，谢谢你的回复。我找不到竖井。dwg文件。你会碰巧有吗？

BIGAL · 发表于 2018-4-4 11:07:29

找到一个轴。lsp@http://autocad.xarch.at/code/cadence/95-11/ghindex.html

BIGAL · 发表于 2018-4-4 22:49:47

确实找到了它，但它有一个c#链接，该链接是一个exe程序，其32位不是64位，因此无法运行
关于使用lisp，你需要做一些家庭作业。答案在这两个程序中
如果我能找到时间，我会将其添加到我的待办事项列表中，作为动态块链接到excel的示例。

BIGAL · 发表于 2018-4-11 10:17:12

好的，谢谢你的帮助

yosso · 发表于 2018-5-2 06:21:38

我需要更多的时间进行微调，但这是可行的。这只是对单元格A1&amp；B1.它显示的是方法而不是代码

copy

;using excel to update rectang dynamic block.
; By Alan H May 2018
; simple rectang with default variables d1 & d2
(if (not GETEXCEL)(Load "getexcel"))
(if (not   LM:getdynpropvalue)(load "Dynamic block get-put.lsp"))
(OPENEXCEL "C:\\alan\\Alan.XLSX" "SHEET1" NIL)
(setq blk (vlax-ename->vla-object (car (entsel "Pick block"))))
(setq len  (getcell "a1"))
(LM:setdynpropvalue  blk "d1" len)
(setq  Ht (getcell "b1"))
(LM:setdynpropvalue  blk "d2" Ht)

使用Excel中的值缩放动态块

发表回复

精选推荐