从EXE导入xyz坐标

liverpool · 发表于 2022-7-6 08:04:18

大家好，希望有人能帮助我，我希望导入一个Excel电子表格（值X，Y，Z）到Autocad 2007，我想打印他们。我还想在相对点旁边显示z值。我才真正开始使用Autocad，如果可能的话，请简单描述一下这个过程。
非常感谢。

BIGAL · 发表于 2022-7-6 08:17:05

有各种程序可以直接读取excel，但最简单的是使用excel创建一个列，该列为x，y，z=串联（A1，“，”，B1，“，”，C1）

只需键入POINT，然后将xyz点列粘贴到命令行即可。

这个问题已经贴了几次了，对新手来说，一个好主意是先搜索一下。答案通常已经在那里了，我仍然一直在搜索。

BIGAL · 发表于 2022-7-6 08:25:47

在上面搜索“excel”后，这篇文章直接分开了吗？第9篇文章从excel导入点并给它们贴标签。搜索工作

是的，粘贴链接对我来说很容易。但重点是关于搜索。

liverpool · 发表于 2022-7-6 08:34:42

比加尔尝试了一次搜索，但我没有找到任何我感觉到的地方。经验不足。我只是想知道，如果可能的话，你是否可以简单地一步一步地扩展它。真的很挣扎。
非常感谢。

BIGAL · 发表于 2022-7-6 08:53:24

重新搜索右上角的小方框放置excel单击从右到右的小方框向下查看列表，再向下搜索几项，现在找到“带标签的导入点”

liverpool · 发表于 2022-7-6 08:55:34

非常感谢比格尔的帮助，我离开了一段时间。找到你说的话，试试看

godofcad · 发表于 2022-7-6 09:14:12

嗨，伙计
我在这里张贴代码，将您的数据导入CAD
但在你必须准备一份工作之前。Prn文件导入方式：1。在excel文件中打开数据，选择所有列，将宽度更改为20，并将其保存为“格式化文本（空格分隔）（*.prn）文件格式”
序列号No Easting Nothing Elevation备注
1 5000 4000 100一些
2 4000 3000 101左右2

copy

[color="blue"](defun c:plt [/color](/         cmh         blip        snp clay x1         y1        gfl dls
dlg cnos dldis        dlang dldts qty         lt        lt1 tlt1
lt2 tlt2 lt3        tlt3 lt4 tlt4 lt5        tlt5 slno
lv1 cor         ftxt        x y         east north
)
(setq cmh (getvar "cmdecho"))
(setq blip (getvar "blipmode"))
(setq snp (getvar "osmode"))
(setq clay (getvar "clayer"))
(setvar "cmdecho" 0)
(setvar "osmode" 0)
(setvar "blipmode" 0)
(setq x1 0)
(setq y1 0)
;Main Function........
(setq gfl (getfiled "Select the data file" "d:" "prn" 4))
(if (= gfl nil)
(exit)
)
(setq dls (open gfl "r"))
(setq dlg (read-line dls))
(setq cnos (list (substr dlg 1 20)))
(setq dldis (list (atof (substr dlg 21 20))))
(setq dlang (list (atof (substr dlg 41 20))))
(setq dldts (list (substr dlg 61 20)))
(setq qty (list (substr dlg 81 10)))
(while (/= dlg nil)
(setq dlg (read-line dls))
(if        (/= dlg nil)
(progn
(setq cnos (cons (substr dlg 1 20) cnos))
(setq dldis (cons (atof (substr dlg 21 20)) dldis))
(setq dlang (cons (atof (substr dlg 41 20)) dlang))
(setq dldts (cons (substr dlg 61 20) dldts))
(setq qty (cons (substr dlg 81 5) qty))
)
)
)
(setq lt (- (length dldis) 1))
(while (/= lt -1)
(setq lt1 (list 'nth))
(setq lt1 (append lt1 (list lt)))
(setq lt1 (append lt1 (list 'cnos)))
(setq tlt1 (nth lt cnos))
(setq lt2 (list 'nth))
(setq lt2 (append lt2 (list lt)))
(setq lt2 (append lt2 (list 'dldis)))
(setq tlt2 (nth lt dldis))
(setq lt3 (list 'nth))
(setq lt3 (append lt4 (list lt)))
(setq lt3 (append lt4 (list 'dlang)))
(setq tlt3 (nth lt dlang))
(setq lt4 (list 'nth))
(setq lt4 (append lt4 (list lt)))
(setq lt4 (append lt4 (list 'dldts)))
(setq tlt4 (nth lt dldts))
(setq lt5 (list 'nth))
(setq lt5 (append lt4 (list lt)))
(setq lt5 (append lt4 (list 'qty)))
(setq tlt5 (nth lt qty))
(setq slno (atoi tlt1))
(setq lvl (atof tlt4))
(setq lv1 (rtos lvl 2 3))
(setq cor (list tlt2 tlt3))         ;for points
(setq ftxt (- tlt3 1))
(setq ftxt (list tlt2 ftxt))
(setq xx (car cor))
(setq yy (cadr cor))
(setq east (strcat "Easting = " (rtos xx 2 3)))
(setq north (strcat "Northing = " (rtos yy 2 3)))
(setq ssno1 (car cor))
(setq ssno2 (cadr cor))
(setq ssno3 (+ ssno2 0.7))
(setq ssno4 (list ssno1 ssno3))
(setq elev1 (car cor))
(setq elev2 (cadr cor))
(setq elev3 (- elev2 0.7))
(setq elev4 (list elev1 elev3))
(setq co1 (car cor))
(setq co2 (cadr cor))
(setq co3 (- co2 1.5))
(setq co4 (list co1 co3))
;;Place Elevation ,Codes And Serial No Text
(command "layer" "make" "Points" "c" "4" "" "")
(command "point" cor)
(command "layer" "make" "Sl.No" "c" "1" "" "")
(command "Text" "j" "mc" ssno4 "0.5" "0" slno)
(command "layer" "make" "Remarks" "c" "6" "" "")
(command "text" "j" "mc" elev4 "0.5" "0" tlt5)
(command "layer" "make" "Elevation" "c" "2" "" "")
(command "text" "j" "mc" cor "0.5" "0" lv1)
(command "layer" "make" "Circle" "c" "3" "" "")
(command "Circle" cor "d" "1.5")
(setq lt (1- lt))
(setvar "cmdecho" cmh)
(setvar "osmode" snp)
(setvar "clayer" clay)
)
(command "ZOOM" "E")
(princ)
)

[编程交流] 从EXE导入xyz坐标

发表回复

精选推荐