需要（书面）帮助

motee-z · 发表于 2022-7-5 23:11:21

要添加到搜索路径的块
pcn。图纸
协调人第21页。LSP

eldon · 发表于 2022-7-5 23:12:13

要完成此练习，您只需从图形生成数据文件，然后查看是否可以将其上载到测量仪器。

motee-z · 发表于 2022-7-5 23:16:55

无法将其加载到仪器中，因为其顺序不同，您会看到坐标形状不同，需要引号和文件中的其他内容

eldon · 发表于 2022-7-5 23:21:15

我不太清楚你们的另一个项目，徕卡测量办公室，为什么不起作用。如果你需要更新，可以免费下载。

motee-z · 发表于 2022-7-5 23:24:00

hi eldon你想让我发誓相信我。
百分百的用户不能打开坐标编辑器，你可以查看论坛
没有人强迫他人分享或帮助他人
谢谢你

hanhphuc · 发表于 2022-7-5 23:25:38

您的字符串格式可能也需要固定的“块”长度和恒定的字符串长度吗？
正如我所看到的，strlen的每个值是54（包括空格）

copy


    1,  "D",    "",  100.000,   10.000,  0.000,  FIX;
    2,  "P1",   "",   98.226,   20.444,  0.000,  FIX;
    3,  "P2",   "",   98.756,   38.444,  0.000,  FIX;
    4,  "P3",   "",   98.756,   56.944,  0.000,  FIX;
    5,  "P4",   "",   98.756,   74.444,  0.000,  FIX;
    6,  "P5",   "",  100.618,   90.858,  0.000,  FIX;
    7,  "P6",   "",  103.193,  108.673,  0.000,  FIX;
    8,  "P7",   "",   96.668,  126.065,  0.000,  FIX;
    9,  "P8",   "",   97.020,  128.500,  0.000,  FIX;
   10,  "P9",   "",  119.042,  125.317,  0.000,  FIX;
   11,  "P10",  "",  118.690,  122.882,  0.000,  FIX;

我可以知道与GEOMAX类似的徕卡软件吗？pxyzd。txt必须转换为格式。gsi。编辑器对话框只能打开。gsi文件？
此示例是否转换为gsi格式？
尝试将其另存为测试。然后试着用办公软件打开。。

copy


110000+00000001 71....+00000FIX 81..10+00100000 82..10+00010000 83..10+00000000 
110000+00000002 71....+00000FIX 81..10+00098226 82..10+00020444 83..10+00000000 
110000+00000003 71....+00000FIX 81..10+00098756 82..10+00038444 83..10+00000000 
110000+00000004 71....+00000FIX 81..10+00098756 82..10+00056944 83..10+00000000 
110000+00000005 71....+00000FIX 81..10+00098756 82..10+00074444 83..10+00000000 
110000+00000006 71....+00000FIX 81..10+00100618 82..10+00090858 83..10+00000000 
110000+00000007 71....+00000FIX 81..10+00103193 82..10+00108673 83..10+00000000 
110000+00000008 71....+00000FIX 81..10+00096668 82..10+00126065 83..10+00000000 
110000+00000009 71....+00000FIX 81..10+00097020 82..10+00128500 83..10+00000000 
110000+00000010 71....+00000FIX 81..10+00119042 82..10+00125317 83..10+00000000 
110000+00000011 71....+00000FIX 81..10+00118690 82..10+00122882 83..10+00000000

如果这行得通，那么我们可以做点什么计划B？

eldon · 发表于 2022-7-5 23:29:31

似乎是。徕卡不再支持idx文件。

上传文件必须是。GSI格式。

使用数据交换管理器，有一个Ascii导入向导，可以将任何csv或txt文件转换为正确的格式。

motee-z · 发表于 2022-7-5 23:33:46

谢谢hanhphuc的帮助。文件可以加载，但不会出现坐标
我已经完成了前面的代码并成功加载了它，但最后2行我必须按enter键2次才能写入文件，如果可以在按escape时写入，如果我们可以添加文件名而不是starx和创建日期
代码：

copy

(defun c:cc(/ ip file)
 (setvar "cmdecho" 0)
 (setq clyr(getvar"clayer"))
  (if(null txth)
   (setq txth 1.25))
(setq txthnew(getreal(strcat"\nchange enter text hieght or press enter to accept defualt " "<"(rtos txth 2 3)">:")))
   (if txthnew(setq txth txthnew))
   (setq file-name(getfiled "filename" "" "IDX" 1))
   (setq file (open file-name "a"))
(mapcar ''(( x ) (write-line x file))
'("HEADER"
 "  VERSION      1.31"
 "  SYSTEM       "Leica SurveyOffice: Coordinate Editor 1.0""
 "  SEPARATOR    ','"
 "  TERMINATOR   ';'"
 "  UNITS"
 "    LINEAR     METRE"
 "  END UNITS"
 "  PROJECT"
 "    NAME           "StarX""
 "    CREATION_DATE  21-07-2014/16:21:45.0"
 "  END PROJECT"
 "END HEADER"
 ""
 ""
 "DATABASE"
 "  POINTS (PointNo,PointID,Code,East,North,Elevation,CLASS\)")
)
 (setq serial 1)
 
 (setq qk "\042")
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   (setq in (getreal"\n enter first number:"));point number
 (initget 5) 
 (setq ndp (getint "\n Number of decimal places for co-ordinates (0,1,2,3):"))
 (setvar"dimadec"4)
   (while
 (setq osmd(getvar "osmode"))
 (setvar "osmode"0) 
 
 (setq ip (getpoint "\n enter a point to write its coordinate:"));pick individule point
 (if ip
   (progn
 (setq osmd(getvar "osmode"))
 (setvar "osmode"0)
 (setvar "angdir"1)
 (setvar "aunits"2)   
 (setvar "angbase"1.5708)
 (setvar "aunits"2)
 (command "layer" "m" "points num" "")
 (command "layer" "c" "7" "points num" "")
 (command "color""bylayer")
 (command "insert" "pcn.dwg" ip txth txth "" (rtos in 2 0))
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  
 (write-line(strcat"     "(rtos serial 2 0)",""  "qk(rtos in 2 0)qk",""            "qk qk","(rtos(car ip)2 ndp)",     "(rtos(cadr ip)2 ndp)",   "(rtos(last ip)2 3)",   ""   ""FIX"(chr 59)) file)
 (setq serial(+ 1 serial))
 (setq in(+ 1 in))
)
   )
(if(null ip)
(progn
 (write-line" END POINTS"file)
(write-line"END DATABASE"file)
(close file)  
  )
  
 
)
   )
 
(princ)
)

也感谢eldon的建议和帮助

eldon · 发表于 2022-7-5 23:35:01

万一你决定试试。GSI方法，这里是GSI格式的相同数据文件

copy

110001+0000000D 81..10+00100000 82..10+00010000 83..10+00000000 
110002+000000P1 81..10+00098226 82..10+00020444 83..10+00000000 
110003+000000P2 81..10+00098756 82..10+00038444 83..10+00000000 
110004+000000P3 81..10+00098756 82..10+00056944 83..10+00000000 
110005+000000P4 81..10+00098756 82..10+00074444 83..10+00000000 
110006+000000P5 81..10+00100618 82..10+00090858 83..10+00000000 
110007+000000P6 81..10+00103193 82..10+00108673 83..10+00000000 
110008+000000P7 81..10+00096668 82..10+00126065 83..10+00000000 
110009+000000P8 81..10+00097020 82..10+00128500 83..10+00000000 
110010+000000P9 81..10+00119042 82..10+00125317 83..10+00000000 
110011+00000P10 81..10+00118690 82..10+00122882 83..10+00000000

motee-z · 发表于 2022-7-5 23:39:01

我认为这比idx文件更容易，但首先我想得到建议，完成idx文件的主代码

[编程交流] 需要（书面）帮助

发表回复

精选推荐