生成包含一些数据的表

jhonnying · 发表于 2022-7-6 08:37:45

大家好！我来自罗马尼亚，是这个论坛的新手。我发现这很有趣。lsp项目，我想知道你是否能帮助解决这类问题。
例如，如果我在excel中有两列，其中包含一列中点的高度值和另一列中这些点之间的距离值，我想生成一个表和一个类似附件中的图形，其中包含点的自动计数、高度、部分距离和累积距离。如果自动点数从键盘输入的值开始，那就太好了。请原谅我的英语！
谢谢，我回家了你明白我的意思！
祝你好运

ketxu · 发表于 2022-7-6 08:42:26

也许我们可以做更多的细节，你的文件^

jhonnying · 发表于 2022-7-6 08:45:37

你好你想要什么样的细节？？也许我把你弄糊涂了，自动计分。我可以在excel中自动生成点数。为了更具体，我附上了一个excel数据文件。不过，如果我有200分，完成这种绘图（表格）需要很多天，这就是为什么我开始在互联网上搜索一些帮助。我希望你理解我的问题！非常感谢您发回我的邮件，并对我的问题表现出兴趣！
excel数据。xls公司

jhonnying · 发表于 2022-7-6 08:48:10

有人看过我的问题吗？至少请给出一个意见！

jvillarreal · 发表于 2022-7-6 08:53:03

琼宁，

当然可以通过lisp生成表格/轮廓图，但在我看来，必须有人花大量时间提供例程（免费），因为它将根据您的需要量身定制，可能只不过是给其他人的一个示例/学习参考。

也许你可以去李麦克那里。然后雇他帮你写？
如果您当前的过程通常需要几天才能完成，正如您所说，我相信该程序在首次使用时会获得回报。

FELIXJM · 发表于 2022-7-6 08:54:05

以下是发布的文件的原型程序。

copy

;;;
(vl-load-com)
(setq #arq      (getfiled "Selecione o arquivo" "" "xls" 2))
(setq celulas nil)
(setq excel-app (vlax-create-object "excel.application"))
(setq wb-collection (vlax-get excel-app "workbooks"))
(setq arq       (vlax-invoke-method wb-collection  "Open"  #arq))
(setq pastas    (vlax-get arq    "sheets"))
(setq pasta1    (vlax-get-property pastas "item" 1))
(setq celulas   (vlax-get pasta1 "cells"))
(COMMAND "_PLINE")
(SETQ NL 1)
(REPEAT 7
;Pega os dados armazenados na planila atual na linha NL e coluna 1=A,2=B,3=C,4=D,5=E
(setq  V-A  (vlax-variant-value (vlax-variant-change-type (vlax-get-property celulas "item"  NL  1) vlax-vbstring)))
(setq  V-B  (vlax-variant-value (vlax-variant-change-type (vlax-get-property celulas "item"  NL  2) vlax-vbstring)))
(setq  V-C  (vlax-variant-value (vlax-variant-change-type (vlax-get-property celulas "item"  NL  3) vlax-vbstring)))
(setq  V-D  (vlax-variant-value (vlax-variant-change-type (vlax-get-property celulas "item"  NL  4) vlax-vbstring)))
(setq  V-E  (vlax-variant-value (vlax-variant-change-type (vlax-get-property celulas "item"  NL  5) vlax-vbstring)))
(PRINT (STRCAT "A=" V-A "  B=" V-B "  C=" V-C "  D=" V-D "  E=" V-E))
(SETQ PX (ATOF (VL-STRING-SUBST "." "," V-E)))
(SETQ PY (ATOF (VL-STRING-SUBST "." "," V-B)))
(IF (AND (> PX 0) (> PY 0))
    (COMMAND (LIST PX PY))
)
(SETQ NL (+ NL 1))
)
(COMMAND "")
(COMMAND "_ZOOM" "_E")
(vlax-invoke-method wb-collection "Close")
(vlax-invoke-method excel-app     "Quit" )
(PRINC)
;;;