使用Excel中的值缩放动态块

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

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

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

找到了一个竖井。lsp@http://autocad.xarch.at/code/cadence/95-11/ghindex.html
这是一个很好的例子

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

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

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

我需要更多的时间进行微调，但这是可行的。它只是对单元格A1和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中的值缩放动态块

发表回复

精选推荐