生成包含一些数据的表
大家好！我来自罗马尼亚，是这个论坛的新手。我发现这很有趣。lsp项目，我想知道你是否能帮助解决这类问题。例如，如果我在excel中有两列，其中包含一列中点的高度值和另一列中这些点之间的距离值，我想生成一个表和一个类似附件中的图形，其中包含点的自动计数、高度、部分距离和累积距离。如果自动点数从键盘输入的值开始，那就太好了。请原谅我的英语！
谢谢，我回家了你明白我的意思！
祝你好运
也许我们可以做更多的细节，你的文件^ 你好你想要什么样的细节？？也许我把你弄糊涂了，自动计分。我可以在excel中自动生成点数。为了更具体，我附上了一个excel数据文件。不过，如果我有200分，完成这种绘图（表格）需要很多天，这就是为什么我开始在互联网上搜索一些帮助。我希望你理解我的问题！非常感谢您发回我的邮件，并对我的问题表现出兴趣！
excel数据。xls公司 有人看过我的问题吗？至少请给出一个意见！ 琼宁，
当然可以通过lisp生成表格/轮廓图，但在我看来，必须有人花大量时间提供例程（免费），因为它将根据您的需要量身定制，可能只不过是给其他人的一个示例/学习参考。
也许你可以去李麦克那里。然后雇他帮你写？
如果您当前的过程通常需要几天才能完成，正如您所说，我相信该程序在首次使用时会获得回报。 以下是发布的文件的原型程序。
;;;
(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
(setqV-A(vlax-variant-value (vlax-variant-change-type (vlax-get-property celulas "item"NL1) vlax-vbstring)))
(setqV-B(vlax-variant-value (vlax-variant-change-type (vlax-get-property celulas "item"NL2) vlax-vbstring)))
(setqV-C(vlax-variant-value (vlax-variant-change-type (vlax-get-property celulas "item"NL3) vlax-vbstring)))
(setqV-D(vlax-variant-value (vlax-variant-change-type (vlax-get-property celulas "item"NL4) vlax-vbstring)))
(setqV-E(vlax-variant-value (vlax-variant-change-type (vlax-get-property celulas "item"NL5) 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)
;;;
好啊 非常感谢，但请告诉我如何在autocad中运行此程序？？ 使用LSP将程序保存在文件中
在AutoCAD中，转到顶部菜单“工具”->“AutoLISP”->“加载应用程序”并选择文件，然后单击“加载”。
你不需要帮助，但需要咨询服务。
好啊 我知道这个过程，但我不知道键盘上的命令，通常我使用sintagm中的“name”：defun c:“name”，但在上面的程序中我看不到。我将从键盘输入什么命令？非常感谢您的及时帮助！
将文件另存为某物。使用记事本的lsp（不是.txt默认扩展名）
在AutoCad中加载它，工具=>AutoLisp=>加载应用程序
加载时，脚本将运行并要求您选择Excel文件。
页:
[1]
2