导出x-y坐标

Bert_D · 发表于 2022-7-6 14:35:15

我正在寻找一个lisp，当你捕捉一个点时，它会在图形中放置一个带图形的点。
它还需要将带有点编号的坐标导出到文本文件，即trimble m5 rec文件。
它还需要自动编号，我需要它用于土地测量。
有人能帮我吗？米斯特。bert@live.nl

Freerefill · 发表于 2022-7-6 14:43:53

你这么问真令人难以置信，几天前我遇到了一个类似的问题。

不确定这是否正是你想要的，但试一试：

copy


(defun c:pclick( / filNam start point file)
 (setq filNam "C:\\ptnumlist.txt")
 (if (not (findfile filNam)) (close (open filNam "A")))
 (setq start (getreal "\nEnter starting number: "))
 (while (setq point (getpoint "\nClick on target point: "))
   (setq file (open filnam "A"))
   (write-line (strcat (rtos start 2 0) " " (rtos (car point) 2 5) "," (rtos (cadr point) 2 5)) file)
   (setq start (1+ start))
   (close file)
   )
 )

Lee Mac · 发表于 2022-7-6 14:45:34

检查这条线索的结尾，可能是你想要的

http://www.cadtutor.net/forum/showthread.php?t=19666

Bert_D · 发表于 2022-7-6 14:49:42

它可以在autocad map中执行任何操作

Bert_D · 发表于 2022-7-6 14:54:12

这是一个很好的Lisp程序，但我需要捕捉到一条线或符号中的一个点。
必须用1或100放置一个数字，并且必须自动编号。
并用点编号制作坐标列表。

Lee Mac · 发表于 2022-7-6 15:02:33

对不起，当你说“抓拍”的时候，你的意思是你正在点击你需要的点，并且你想把它们编号并记录下来吗？

Bert_D · 发表于 2022-7-6 15:04:25

我点击对象或符号，是的，数字需要记录在点编号、北距和东距以及高度中。（点编号，x，y，z）

Lee Mac · 发表于 2022-7-6 15:09:59

当然，我的LISP的这个版本正是这样做的：

copy


[b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] c:ptwriter  [b][color=RED]([/color][/b][b][color=BLUE]/[/color][/b] *error* oldcmd file num pt[b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]vl-load-com[/color][/b][b][color=RED])[/color][/b]
 
 [b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] *error* [b][color=RED]([/color][/b]msg[b][color=RED])[/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]if[/color][/b] oldcmd
     [b][color=RED]([/color][/b][b][color=BLUE]setvar[/color][/b] [b][color=#ff00ff]"CMDECHO"[/color][/b] oldcmd[b][color=RED])[/color][/b][b][color=RED])[/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
 
 [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] oldcmd [b][color=RED]([/color][/b][b][color=BLUE]getvar[/color][/b] [b][color=#ff00ff]"CMDECHO"[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]setvar[/color][/b] [b][color=#ff00ff]"CMDECHO"[/color][/b] [b][color=#009900]0[/color][/b][b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]if[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]and[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] file [b][color=RED]([/color][/b][b][color=BLUE]getfiled[/color][/b] [b][color=#ff00ff]"Create a Text File"[/color][/b] [b][color=#ff00ff]""[/color][/b] [b][color=#ff00ff]"txt"[/color][/b] [b][color=#009900]9[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
          [b][color=RED]([/color][/b][b][color=BLUE]not[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]initget[/color][/b] [b][color=#009900]5[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
          [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] num [b][color=RED]([/color][/b][b][color=BLUE]getint[/color][/b] [b][color=#ff00ff]"\nSpecify Starting Point Number: "[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]progn[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] file [b][color=RED]([/color][/b][b][color=BLUE]open[/color][/b] file [b][color=#ff00ff]"w"[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]while[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] pt [b][color=RED]([/color][/b][b][color=BLUE]getpoint[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]strcat[/color][/b] [b][color=#ff00ff]"\nPosition Point Number "[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]rtos[/color][/b] num[b][color=RED])[/color][/b] [b][color=#ff00ff]": "[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
       [b][color=RED]([/color][/b][b][color=BLUE]command[/color][/b] [b][color=#ff00ff]"_point"[/color][/b] [b][color=#ff00ff]"_non"[/color][/b] pt[b][color=RED])[/color][/b]
       [b][color=RED]([/color][/b][b][color=BLUE]write-line[/color][/b]
         [b][color=RED]([/color][/b][b][color=BLUE]strcat[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]rtos[/color][/b] num[b][color=RED])[/color][/b] [b][color=#ff00ff]","[/color][/b]
                 [b][color=RED]([/color][/b][b][color=BLUE]rtos[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]car[/color][/b] pt[b][color=RED])[/color][/b][b][color=RED])[/color][/b] [b][color=#ff00ff]","[/color][/b]
                 [b][color=RED]([/color][/b][b][color=BLUE]rtos[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]cadr[/color][/b] pt[b][color=RED])[/color][/b][b][color=RED])[/color][/b] [b][color=#ff00ff]","[/color][/b]
                 [b][color=RED]([/color][/b][b][color=BLUE]rtos[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]caddr[/color][/b] pt[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b] file[b][color=RED])[/color][/b]
       [b][color=RED]([/color][/b]Make_Text pt [b][color=RED]([/color][/b][b][color=BLUE]rtos[/color][/b] num[b][color=RED])[/color][/b] [b][color=#009999]0.0[/color][/b][b][color=RED])[/color][/b]
       [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] num [b][color=RED]([/color][/b][b][color=BLUE]1+[/color][/b] num[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]close[/color][/b] file[b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b] [b][color=#ff00ff]"\n<< Points Written to File >>"[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b] [b][color=#ff00ff]"\n<!> No File Selected <!>"[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]setvar[/color][/b] [b][color=#ff00ff]"CMDECHO"[/color][/b] oldcmd[b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
[b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] Make_Text  [b][color=RED]([/color][/b]pt val rot[b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]entmake[/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]list[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]0[/color][/b] [b][color=#ff00ff]"TEXT"[/color][/b][b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]8[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]getvar[/color][/b] [b][color=#ff00ff]"CLAYER"[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]10[/color][/b] pt[b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]40[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]getvar[/color][/b] [b][color=#ff00ff]"TEXTSIZE"[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]1[/color][/b] val[b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]50[/color][/b] rot[b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]7[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]getvar[/color][/b] [b][color=#ff00ff]"TEXTSTYLE"[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]71[/color][/b] [b][color=#009900]0[/color][/b][b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]72[/color][/b] [b][color=#009900]1[/color][/b][b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]73[/color][/b] [b][color=#009900]2[/color][/b][b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]11[/color][/b] pt[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]

BIGAL · 发表于 2022-7-6 15:12:19

做得好，李，像往常一样，西部最快的lisper（有代码）Bert\u D的几个点大多数测量仪器都会读取一个XYZ txt文件，所以你不需要特殊格式的文件来修剪。文件只需要Ptnum，X，Y，Z每行一个。关于Z，您是如何提议将Z值分配给点或线等的，否则点将始终为0.0。

我们使用CIV3d和其他软件，他们能够书写设计的3d线条和点。如果您必须手动添加Z值，那么这将非常耗费人力。

如果您使用的是CIV3d，那么您现在可以通过使用点编组来做您想做的事情。

eldon · 发表于 2022-7-6 15:17:38

李·麦克，Lisp程序。我比前一个版本更喜欢这个版本，但是我可以大胆地指出几个可以改进的地方吗。

虽然点号是一个整数，但不知何故它会将自己变成一个十进制数。

在UCS中时，最新版本会将正确的UCS坐标写入文件，但会将点号文本放置在WCS坐标处。以前的版本将WCS坐标写入文件，但将点号放置在UCS坐标处。

否则我会把这个放在手边

[编程交流] 导出x-y坐标

发表回复

精选推荐