输入数据，并可用于

Russello · 发表于 2022-7-5 15:56:32

大家好。我刚开始阅读有关lisp编程的资料和教程，因为我想做一个测量程序，因为我买不起。此外，我想学习lisp的美丽。

我想要的是首先输入所有必要的数据（地块名称、地块所有者、位置、大地测量工程师、测量日期等），这些数据可以用于我将制作的其他lisp程序。我的问题是我不知道怎么开始。

我知道这里的社区很有帮助，所以提前谢谢。上帝保佑

halam · 发表于 2022-7-5 16:03:11

嗨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在应用程序商店里也有一些东西，比如地图等等，也许你们知道这很好。

BIGAL · 发表于 2022-7-5 16:08:51

罗素“负担不起”如果你把这当成一种职业，那么有时你不得不花钱赚钱。有一些Autocad的替代品，如Briscad+http://www.civilsurveysolutions.com.au如果你想留在Autocad，那么按月支付的新工资应该对你有用。

你只说过要做很多计划，Drafsight会满足你的需求，而且是免费的。如果你想从全站仪下载作品，很多创造，轮廓等，你需要一个完整的软件包。

Russello · 发表于 2022-7-5 16:14:26

感谢哈拉姆爵士和比格尔爵士的建议和链接。这将是一个很大的帮助。

我想我误用了世界“创建测量程序”，对此表示抱歉。我想要实现的是创建lisp例程，该例程将导致创建调查计划（使用来自我国的格式）并导出大量数据计算。

此处附上测量平面图（dwg）和地块数据计算（doc）。

这些是在AutoCAD上安装的自定义程序的结果，我认为该程序由lisp提供支持，成本约为1000美元，我认为价格太高。

对于测量计划，我已经有了一个lisp，可以确定面积、地块编号、技术描述表（方位和距离）、拐角编号。（我已经有了一个调查计划块）。

对于大量的数据计算，我完全不知道该怎么做。

希望对您有所启发和帮助。谢谢，先生
BOHOL DAUIS BINGAG，CSD-07-024417，5377-H标段。图纸
BOHOL DAUIS BINGAG，CSD-07-024417，5377-H标段。docx文件

BIGAL · 发表于 2022-7-5 16:17:28

lot data doc在lisp中看起来并不难。在本例中，您可以写入一个文件，即文本文件，但可以使用Ms Word等打开。您可以拾取现有文本或重做拾取点可能更容易。稍后将尝试从您的文档开始做一个示例。

Grrr · 发表于 2022-7-5 16:23:44

简而言之，所有这一切都可以通过LISP实现，但需要付出巨大的努力以及以下知识：
[列表]

访问/解析变量

列表操作

文件处理或脚本对象
[/列表]
你可以使用属性块来存储信息——这是一件好事，但如果你必须从“文本/多行文字”对象中提取一些值，你可能会遇到一些问题。
因此，要么决定将几年的志愿编码与可观的兴趣结合起来，要么从几个项目中为这样的lisp程序节省资金。

在我看来，以下是您的选择：

因此，这取决于你决定你的时间有多值得。
同样，不同国家对同一类工作的评价也不同，这也是“那太贵”的原因。

rlx · 发表于 2022-7-5 16:28:47

也许不是目的地，而是旅程：-）

顺便说一句，欢迎来到CadTutor Russello

Gr.Rlx

BIGAL · 发表于 2022-7-5 16:33:10

不管怎样，我有一个围棋需要很多改进一些位工作得很好，其他不只是在那里，我使用entsel为1文本和entsel从你的区块中选择文本。nentsel有时似乎有点奏效。但是给你一个如何开始的想法。

copy


; 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 "Pick  lot 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 "Pick  lot 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)

Russello · 发表于 2022-7-5 16:39:31

大家好！
谢谢Grrr先生、rlx和比格尔。这可能是一段漫长的旅程，但我现在真的很想学习。

比加尔爵士，我在例行程序结束时遇到了一个问题，我在输入“id”后出现了这个错误：

; 错误：错误的参数类型：stringp#

提前谢谢BIGAL先生

BIGAL · 发表于 2022-7-5 16:42:53

该示例是为名为testlot的测试文件硬编码的。C:\temp目录中的txt。这是一个例子，你可以改变\\temp\\a目录在您的计算机上，然后它应该工作，必须输出到somehwere测试。

[编程交流] 输入数据，并可用于

发表回复

精选推荐