输入数据，并可用于
大家好。我刚开始阅读有关lisp编程的资料和教程，因为我想做一个测量程序，因为我买不起。此外，我想学习lisp的美丽。我想要的是首先输入所有必要的数据（地块名称、地块所有者、位置、大地测量工程师、测量日期等），这些数据可以用于我将制作的其他lisp程序。我的问题是我不知道怎么开始。
我知道这里的社区很有帮助，所以提前谢谢。上帝保佑 嗨Russello
开始制作一个新的程序，这是一个很快的结论。
它肯定会花费你很多时间和金钱来获得你想要的功能。
这里有一些应用程序，你应该去看看。。
http://www.glamsen.se/CadTools.htm
https://www.bricsys.com/applications/a/?geotools-v18-a1041-al1818
大多数时候，人们只是先开始画画；-）元数据、数据管理等方面的卓越成就都在后面。考虑到这一点，我认为地理信息系统的功能可能对你很有用。ESRI Acrgis价格昂贵，但也有开放式GIS解决方案。http://www.qgis.org/nl/site/
最后但并非最不重要的一点，我相信Autodesk在应用程序商店里也有一些东西，比如地图等等，也许你们知道这很好。 罗素“负担不起”如果你把这当成一种职业，那么有时你不得不花钱赚钱。有一些Autocad的替代品，如Briscad+http://www.civilsurveysolutions.com.au如果你想留在Autocad，那么按月支付的新工资应该对你有用。
你只说过要做很多计划，Drafsight会满足你的需求，而且是免费的。如果你想从全站仪下载作品，很多创造，轮廓等，你需要一个完整的软件包。 感谢哈拉姆爵士和比格尔爵士的建议和链接。这将是一个很大的帮助。
我想我误用了世界“创建测量程序”，对此表示抱歉。我想要实现的是创建lisp例程，该例程将导致创建调查计划（使用来自我国的格式）并导出大量数据计算。
此处附上测量平面图（dwg）和地块数据计算（doc）。
这些是在AutoCAD上安装的自定义程序的结果，我认为该程序由lisp提供支持，成本约为1000美元，我认为价格太高。
对于测量计划，我已经有了一个lisp，可以确定面积、地块编号、技术描述表（方位和距离）、拐角编号。（我已经有了一个调查计划块）。
对于大量的数据计算，我完全不知道该怎么做。
希望对您有所启发和帮助。谢谢，先生
BOHOL DAUIS BINGAG，CSD-07-024417，5377-H标段。图纸
BOHOL DAUIS BINGAG，CSD-07-024417，5377-H标段。docx文件 lot data doc在lisp中看起来并不难。在本例中，您可以写入一个文件，即文本文件，但可以使用Ms Word等打开。您可以拾取现有文本或重做拾取点可能更容易。稍后将尝试从您的文档开始做一个示例。 简而言之，所有这一切都可以通过LISP实现，但需要付出巨大的努力以及以下知识：
[列表]
[*]访问/解析变量
[*]列表操作
[*]文件处理或脚本对象
[/列表]
你可以使用属性块来存储信息——这是一件好事，但如果你必须从“文本/多行文字”对象中提取一些值，你可能会遇到一些问题。
因此，要么决定将几年的志愿编码与可观的兴趣结合起来，要么从几个项目中为这样的lisp程序节省资金。
在我看来，以下是您的选择：
因此，这取决于你决定你的时间有多值得。
同样，不同国家对同一类工作的评价也不同，这也是“那太贵”的原因。 也许不是目的地，而是旅程：-）
顺便说一句，欢迎来到CadTutor Russello
Gr.Rlx 不管怎样，我有一个围棋需要很多改进一些位工作得很好，其他不只是在那里，我使用entsel为1文本和entsel从你的区块中选择文本。nentsel有时似乎有点奏效。但是给你一个如何开始的想法。
; pick single text
(defun getstr ( )
(setq ans
(vla-get-textstring
(vlax-ename->vla-object
(car (entsel msg))
)
)
)
)
; pick text out of a block not a attribute
(defun getstr2 ( )
(setq ans
(vla-get-textstring
(vlax-ename->vla-object
(car (nentsel msg))
)
)
)
)
(setq msg "Picklot number")(getstr)
(setq msg "Pick owners name")(getstr)
(setq msg"Enter location")(getstr)
(setq id (getstring "Enter id "))
(setq fo (open"c:\\temp\\testlost.txt" "w"))
(write-line fo)
(write-line "LMB Form No. GSD-B-11" fo)
(write-line fo)
(write-line fo)
(write-line " LOT DATA COMPUTATION SHEET"fo)
(write-line fo)
(write-line " Sheet : 1 / 1" fo)
(setq msg "Picklot number")(getstr)
(write-line (strcat "Lot No. :" ans " Date Surveyed: " date ) fo)
(setq msg "Pick owners name")(getstr2)
(write-line (strcat "Owner : " ans " JONATHAN J. YU" ) fo)
(write-line " Surname, Given Name Geodetic Engineer"fo)
(setq msg"Pick location")(getstr2)
(write-line (strcat "Location: " ans))
(write-line "Surv. Sym. & No. :________________ L.R.C. No. :_________________ " fo)
(write-line fo)
(write-line "+-------------------------------------------------------------------------+" fo)
(write-line "| Sta| Azimuth | C O O R D I N A T E S |Line|Bearing|" fo)
(write-line "| Cor| Distance +------------------------------+--------+-----------" fo )
(write-line"| | Bearing | Northings |Eastings |Desc|Distance |"
(write-line "+=========================================================================+" fo)
(setq msg"Pick Id")(getstr)
(write-line (strcat "Reference: " id ", Dauis, Bohol ")fo)
(close fo)
大家好！
谢谢Grrr先生、rlx和比格尔。这可能是一段漫长的旅程，但我现在真的很想学习。
比加尔爵士，我在例行程序结束时遇到了一个问题，我在输入“id”后出现了这个错误：
; 错误：错误的参数类型：stringp#
提前谢谢BIGAL先生 该示例是为名为testlot的测试文件硬编码的。C:\temp目录中的txt。这是一个例子，你可以改变\\temp\\a目录在您的计算机上，然后它应该工作，必须输出到somehwere测试。
页:
[1]
2