Chuyển đến nội dung
Diễn đàn CADViet
tuyphong_frv

[Yêu cầu] lisp Phun tọa độ các điểm từ file txt vào CAD

Bởi tuyphong_frv , trong AutoLisp

Các bài được khuyến nghị

whatcholingon    45

whatcholingon
Đã đăng

Cảm ơn các bạn đồng nghiệp!

Mình rất hay phải sử dụng file dữ liệu dạng này, nếu được xin nhờ các bạn sửa point thành vòng tròn. Nếu mà nhập được trực tiếp file từ excel hoặc từ word thì tốt quá

 

Mình đoán bạn này nhầm giữa POINT và CIRCLE tại vì trên cad khi vào POINT STYLE.. có thể đưa các POINT về nhiều kiểu khác nhau. trong đó có cái giống hình tròn.

Còn nếu mà bạn muốn chuyển các POINT thành các đường tròn thì có thể dùng LSP trong 4rum này:

http://www.cadviet.com/forum/index.php?showtopic=64067&pid=200214&st=0&&do=findComment&comment=200214

Chia sẻ bài đăng này

Liên kết tới bài đăng
Chia sẻ trên các trang web khác

trinhngoctri    0

trinhngoctri
Đã đăng

là vậy nè, khi phun điểm lên cad tọa độ nó thể hiện là dấu chấm (POINT) mình muống nó là hình tròn (CIRCLE) mới phù hợp với quy định công việc của mình ấy mà

xin cảm ơn nhiềuhttp://www.cadviet.com/upfiles/3/64998_files.rar

Chia sẻ bài đăng này

Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Doan Van Ha    3.191

Doan Van Ha
Đã đăng

là vậy nè, khi phun điểm lên cad tọa độ nó thể hiện là dấu chấm (POINT) mình muống nó là hình tròn (CIRCLE) mới phù hợp với quy định công việc của mình ấy mà

xin cảm ơn nhiềuhttp://www.cadviet.c...64998_files.rar

Bạn tìm dòng dưới đây:

(vla-put-Layer (vla-addpoint spc (vlax-3d-point pXY)) "point")

Và thay nó thành:

(vla-put-Layer (vla-addcircle spc (vlax-3d-point pXY) 10) "point")

Trong đó: con số 10 là bán kính đường tròn, tôi chỉ lấy làm ví dụ. Bạn muốn bán kính bao nhiêu thì thay số 10 này bằng số của bạn.

  • Vote tăng 1

Chia sẻ bài đăng này

Liên kết tới bài đăng
Chia sẻ trên các trang web khác

sirgau    1

sirgau
Đã đăng

chào các bác trên diễn đàn.

Lisp "rft" đưa điểm lên cad nhưng chỉ nhận được yếu tố về tọa độ 2D. bác nào có thể bổ xung thêm vào lisp sao cho nhận dc cả yếu tố về cao độ và tọa độ 3D ko?

Thanks!

Chia sẻ bài đăng này

Liên kết tới bài đăng
Chia sẻ trên các trang web khác

vansonxd85    0

vansonxd85
Đã đăng

Mình mới làm hạ tầng. Mình dùng lisp rft.lisp. Tìm đến đường dẫn file txt rùi. Máy hỏi chiều cao chữ-Chọn kiểu xuất [x hay y]: mình chọn cả x và y hai lần . Nhưng ko xuất ra cao độ trong Cad dc. Mong ae nào hay sài giúp đỡ mình. Thank nhìu....

Chia sẻ bài đăng này

Liên kết tới bài đăng
Chia sẻ trên các trang web khác

phamthanhbinh    3.146

phamthanhbinh
Đã đăng

Mình mới làm hạ tầng. Mình dùng lisp rft.lisp. Tìm đến đường dẫn file txt rùi. Máy hỏi chiều cao chữ-Chọn kiểu xuất [x hay y]: mình chọn cả x và y hai lần . Nhưng ko xuất ra cao độ trong Cad dc. Mong ae nào hay sài giúp đỡ mình. Thank nhìu....

Hề hề hề,

Bạn dùng lisp nào thì phải post cái lisp đó lên chứ trên diễn đàng nhiều lisp rft lắm, chả biết đâu mà mò cả.

Cái lisp rft của bác giabach ở trang trước đâu có yêu cầu nhập chiều cao chữ đâu hè?????

Chia sẻ bài đăng này

Liên kết tới bài đăng
Chia sẻ trên các trang web khác

vuminhchau    1

vuminhchau
Đã đăng

Em mới ra trường và đi đo đạc thực tế, em thấy diễn đàn này đang hỏi về vấn đề phun điểm mia từ file TXT sang Cad đúng nội dung em cần. nhưng em doawload lisp RFT của anh giabach dùng thì không được, mong các anh đi trước giúp đỡ em với. đây là file đo em trút ở máy đo ra:

GTS-700 v3.0
STN 	A,1.504,
BS  	1,1.452,
SD  	312.48090,89.08430,105.3860
SS  	2,1.452,
SD  	312.18530,89.09120,103.0360
SS  	3,1.452,
SD  	312.49590,89.09130,103.1100
SS  	4,1.452,
SD  	315.37510,88.57210,101.8200
SS  	5,1.452,
SD  	317.48130,88.54080,99.0760
SS  	6,1.452,
SD  	316.02070,89.01060,89.0080
SS  	7,1.452,
SD  	312.48360,89.14320,88.8900
SS  	8,1.452,
SD  	316.52430,89.28580,51.2840
SS  	9,1.452,
SD  	311.13400,89.46350,51.1810
SS  	10,1.452,
SD  	316.39140,90.14410,30.9280
SS  	11,1.452,
SD  	307.29110,90.29230,31.7380
SS  	12,1.452,
SD  	262.05460,99.08020,7.5080
SS  	13,1.452,
SD  	299.30130,103.16390,3.8540
SS  	14,1.452,
SD  	153.33410,99.03530,7.5100
SS  	15,1.452,
SD  	139.13350,97.50090,7.9290
SS  	16,1.452,
SD  	182.11460,98.31400,10.4470
SS  	17,1.452,
SD  	160.22040,94.40400,24.3870
SS  	18,1.452,
SD  	147.12060,93.29400,23.8550
SS  	19,1.452,
SD  	148.03120,93.14280,37.4270
SS  	20,1.452,
SD  	156.23450,93.38300,37.7430
SS  	21,1.452,
SD  	144.03170,92.03590,41.3930
SS  	22,1.452,
SD  	150.15300,92.48270,62.0220
SS  	23,1.452,
SD  	154.58080,93.01160,61.7540
SS  	24,1.452,
SD  	155.49590,93.00150,61.7960
SS  	25,1.452,
SD  	155.49330,92.54080,65.1380
SS  	26,1.452,
SD  	154.54500,92.59550,65.0950
SS  	27,1.452,
SD  	154.59460,92.49570,73.8690
SS  	28,1.452,
SD  	150.56360,92.44220,74.4020
SS  	29,1.452,
SD  	147.13140,92.11110,69.2890
SS  	C,1.452,
SD  	150.20270,92.48040,62.8900
SS  	30,1.452,
SD  	263.42400,92.56050,12.8600
SS  	31,1.452,
SD  	160.19320,90.06550,55.8820
SS  	32,1.452,
SD  	164.28290,89.42590,36.6100
SS  	33,1.452,
SD  	269.24130,92.55390,12.8100
SS  	D,1.452,
SD  	283.34070,89.32180,39.8420
SS  	34,1.452,
SD  	297.14170,88.30150,110.8520
SS  	35,1.452,
SD  	272.57380,89.38150,81.4150
SS  	E,1.452,
SD  	275.47030,89.56010,82.1040
STN 	E,1.504,
BS  	A,1.452,
SD  	359.59590,90.09280,82.1240
SS  	36,1.452,
SD  	76.42050,89.25510,3.9460
SS  	37,1.452,
SD  	100.57370,115.22090,11.1330
SS  	38,1.452,
SD  	145.57550,111.42120,8.7550
SS  	39,1.452,
SD  	193.39410,98.28200,13.0000
SS  	40,1.452,
SD  	195.55500,101.43560,11.9460
SS  	41,1.452,
SD  	214.40320,94.45220,19.5200
SS  	42,1.452,
SD  	225.12160,91.49040,26.2310
SS  	43,1.452,
SD  	235.34500,90.35190,44.8750
SS  	44,1.452,
SD  	22.59280,88.58040,10.7960
SS  	45,1.452,
SD  	17.08250,89.38130,39.7840
SS  	46,1.452,
SD  	20.02450,89.40440,54.2700
SS  	47,1.452,
SD  	8.10120,90.26260,62.2420
SS  	48,1.452,
SD  	28.02350,89.31160,69.2520
SS  	49,1.452,
SD  	37.24100,89.12430,93.9070
SS  	50,1.452,
SD  	41.35550,89.17330,89.0060
SS  	51,1.452,
SD  	34.12340,89.21270,108.3400
STN 	C,1.504,
BS  	A,1.452,
SD  	0.00000,87.29430,62.8770
SS  	52,1.452,
SD  	268.04430,86.54310,28.3850
SS  	53,1.452,
SD  	274.12320,86.57090,28.7240
SS  	54,1.452,
SD  	268.45440,89.11430,43.8380
SS  	55,1.452,
SD  	273.08180,88.16350,50.5920
SS  	56,1.452,
SD  	270.09060,88.27220,51.5020

Chia sẻ bài đăng này

Liên kết tới bài đăng
Chia sẻ trên các trang web khác

whatcholingon    45

whatcholingon
Đã đăng

Em mới ra trường và đi đo đạc thực tế, em thấy diễn đàn này đang hỏi về vấn đề phun điểm mia từ file TXT sang Cad đúng nội dung em cần. nhưng em doawload lisp RFT của anh giabach dùng thì không được, mong các anh đi trước giúp đỡ em với. đây là file đo em trút ở máy đo ra:

GTS-700 v3.0
STN 	A,1.504,
BS  	1,1.452,
SD  	312.48090,89.08430,105.3860
SS  	2,1.452,
SD  	312.18530,89.09120,103.0360
SS  	3,1.452,
SD  	312.49590,89.09130,103.1100
SS  	4,1.452,
SD  	315.37510,88.57210,101.8200
SS  	5,1.452,
SD  	317.48130,88.54080,99.0760
SS  	6,1.452,
SD  	316.02070,89.01060,89.0080
SS  	7,1.452,
SD  	312.48360,89.14320,88.8900
SS  	8,1.452,
SD  	316.52430,89.28580,51.2840
SS  	9,1.452,
SD  	311.13400,89.46350,51.1810
SS  	10,1.452,
SD  	316.39140,90.14410,30.9280
SS  	11,1.452,
SD  	307.29110,90.29230,31.7380
SS  	12,1.452,
SD  	262.05460,99.08020,7.5080
SS  	13,1.452,
SD  	299.30130,103.16390,3.8540
SS  	14,1.452,
SD  	153.33410,99.03530,7.5100
SS  	15,1.452,
SD  	139.13350,97.50090,7.9290
SS  	16,1.452,
SD  	182.11460,98.31400,10.4470
SS  	17,1.452,
SD  	160.22040,94.40400,24.3870
SS  	18,1.452,
SD  	147.12060,93.29400,23.8550
SS  	19,1.452,
SD  	148.03120,93.14280,37.4270
SS  	20,1.452,
SD  	156.23450,93.38300,37.7430
SS  	21,1.452,
SD  	144.03170,92.03590,41.3930
SS  	22,1.452,
SD  	150.15300,92.48270,62.0220
SS  	23,1.452,
SD  	154.58080,93.01160,61.7540
SS  	24,1.452,
SD  	155.49590,93.00150,61.7960
SS  	25,1.452,
SD  	155.49330,92.54080,65.1380
SS  	26,1.452,
SD  	154.54500,92.59550,65.0950
SS  	27,1.452,
SD  	154.59460,92.49570,73.8690
SS  	28,1.452,
SD  	150.56360,92.44220,74.4020
SS  	29,1.452,
SD  	147.13140,92.11110,69.2890
SS  	C,1.452,
SD  	150.20270,92.48040,62.8900
SS  	30,1.452,
SD  	263.42400,92.56050,12.8600
SS  	31,1.452,
SD  	160.19320,90.06550,55.8820
SS  	32,1.452,
SD  	164.28290,89.42590,36.6100
SS  	33,1.452,
SD  	269.24130,92.55390,12.8100
SS  	D,1.452,
SD  	283.34070,89.32180,39.8420
SS  	34,1.452,
SD  	297.14170,88.30150,110.8520
SS  	35,1.452,
SD  	272.57380,89.38150,81.4150
SS  	E,1.452,
SD  	275.47030,89.56010,82.1040
STN 	E,1.504,
BS  	A,1.452,
SD  	359.59590,90.09280,82.1240
SS  	36,1.452,
SD  	76.42050,89.25510,3.9460
SS  	37,1.452,
SD  	100.57370,115.22090,11.1330
SS  	38,1.452,
SD  	145.57550,111.42120,8.7550
SS  	39,1.452,
SD  	193.39410,98.28200,13.0000
SS  	40,1.452,
SD  	195.55500,101.43560,11.9460
SS  	41,1.452,
SD  	214.40320,94.45220,19.5200
SS  	42,1.452,
SD  	225.12160,91.49040,26.2310
SS  	43,1.452,
SD  	235.34500,90.35190,44.8750
SS  	44,1.452,
SD  	22.59280,88.58040,10.7960
SS  	45,1.452,
SD  	17.08250,89.38130,39.7840
SS  	46,1.452,
SD  	20.02450,89.40440,54.2700
SS  	47,1.452,
SD  	8.10120,90.26260,62.2420
SS  	48,1.452,
SD  	28.02350,89.31160,69.2520
SS  	49,1.452,
SD  	37.24100,89.12430,93.9070
SS  	50,1.452,
SD  	41.35550,89.17330,89.0060
SS  	51,1.452,
SD  	34.12340,89.21270,108.3400
STN 	C,1.504,
BS  	A,1.452,
SD  	0.00000,87.29430,62.8770
SS  	52,1.452,
SD  	268.04430,86.54310,28.3850
SS  	53,1.452,
SD  	274.12320,86.57090,28.7240
SS  	54,1.452,
SD  	268.45440,89.11430,43.8380
SS  	55,1.452,
SD  	273.08180,88.16350,50.5920
SS  	56,1.452,
SD  	270.09060,88.27220,51.5020

 

Đây là số liệu thô, trút ra từ máy toàn đạc điện tử Topcon.

File này chỉ có góc cạnh,

Bạn phải sử lý để tính ra tọa độ xyz sau đó dùng LSP mới đưa vào CAD được.

  • Vote tăng 1

Chia sẻ bài đăng này

Liên kết tới bài đăng
Chia sẻ trên các trang web khác

vuminhchau    1

vuminhchau
Đã đăng

 

Đây là số liệu thô, trút ra từ máy toàn đạc điện tử Topcon.

File này chỉ có góc cạnh,

Bạn phải sử lý để tính ra tọa độ xyz sau đó dùng LSP mới đưa vào CAD được.

anh ơi, vậy có lisp nào để xử lý file này ra tọa độ xy và phun điểm mia địa chính ra cad không anh cho em xin với!

Chia sẻ bài đăng này

Liên kết tới bài đăng
Chia sẻ trên các trang web khác

phamthanhbinh    3.146

phamthanhbinh
Đã đăng

Nhờ pác Gia bach thêm vao doan lisp nay sau khia xuất ra diểm point co cao độ z thì lisp se hoàn chỉnh hơn thanks

www.mediafire.com/?56bo18x9podgj32

Hề hề hề,

Bạn thử thay thế dòng code:

(setq pXY (list (car pt)(cadr pt)))

bằng dòng code này xem sao nhé:

(setq pXY (list (car pt)(cadr pt) (caddr pt)))

Hy vọng bạn hài lòng.

  • Vote tăng 1

Chia sẻ bài đăng này

Liên kết tới bài đăng
Chia sẻ trên các trang web khác

hakhoailang    2

hakhoailang
Đã đăng

này thì xuất điểm , block text , chơi đủ thứ phục vị mọi yêu cầu . ( e chém tí nhé ) vì cũng từng 1 thời vật lộn với mớ hỗn độn này nên thấy anh em cần thì e úp lên . theo e thì 2 cái này đủ để các bác khảo sát đến thiết kế chơi tới bến . ko những file txt mà file định dạng khác nó cũng chơi dc .

các bạn có thể chọn 1 trong 2 .

1 http://www.cadviet.c...txtcsv__ptm.lsp lệnh PTM

2 http://www.cadviet.c...yzimportxyz.rar lệnh importxyz

Chia sẻ bài đăng này

Liên kết tới bài đăng
Chia sẻ trên các trang web khác

TRUNGNGAMY    91

TRUNGNGAMY
Đã đăng

Em mới ra trường và đi đo đạc thực tế, em thấy diễn đàn này đang hỏi về vấn đề phun điểm mia từ file TXT sang Cad đúng nội dung em cần. nhưng em doawload lisp RFT của anh giabach dùng thì không được, mong các anh đi trước giúp đỡ em với. đây là file đo em trút ở máy đo ra:

GTS-700 v3.0
STN 	A,1.504,
BS  	1,1.452,
SD  	312.48090,89.08430,105.3860
SS  	2,1.452,
SD  	312.18530,89.09120,103.0360
SS  	3,1.452,
SD  	312.49590,89.09130,103.1100
SS  	4,1.452,
SD  	315.37510,88.57210,101.8200
SS  	5,1.452,
SD  	317.48130,88.54080,99.0760
SS  	6,1.452,
SD  	316.02070,89.01060,89.0080
SS  	7,1.452,
SD  	312.48360,89.14320,88.8900
SS  	8,1.452,
SD  	316.52430,89.28580,51.2840
SS  	9,1.452,
SD  	311.13400,89.46350,51.1810
SS  	10,1.452,
SD  	316.39140,90.14410,30.9280
SS  	11,1.452,
SD  	307.29110,90.29230,31.7380
SS  	12,1.452,
SD  	262.05460,99.08020,7.5080
SS  	13,1.452,
SD  	299.30130,103.16390,3.8540
SS  	14,1.452,
SD  	153.33410,99.03530,7.5100
SS  	15,1.452,
SD  	139.13350,97.50090,7.9290
SS  	16,1.452,
SD  	182.11460,98.31400,10.4470
SS  	17,1.452,
SD  	160.22040,94.40400,24.3870
SS  	18,1.452,
SD  	147.12060,93.29400,23.8550
SS  	19,1.452,
SD  	148.03120,93.14280,37.4270
SS  	20,1.452,
SD  	156.23450,93.38300,37.7430
SS  	21,1.452,
SD  	144.03170,92.03590,41.3930
SS  	22,1.452,
SD  	150.15300,92.48270,62.0220
SS  	23,1.452,
SD  	154.58080,93.01160,61.7540
SS  	24,1.452,
SD  	155.49590,93.00150,61.7960
SS  	25,1.452,
SD  	155.49330,92.54080,65.1380
SS  	26,1.452,
SD  	154.54500,92.59550,65.0950
SS  	27,1.452,
SD  	154.59460,92.49570,73.8690
SS  	28,1.452,
SD  	150.56360,92.44220,74.4020
SS  	29,1.452,
SD  	147.13140,92.11110,69.2890
SS  	C,1.452,
SD  	150.20270,92.48040,62.8900
SS  	30,1.452,
SD  	263.42400,92.56050,12.8600
SS  	31,1.452,
SD  	160.19320,90.06550,55.8820
SS  	32,1.452,
SD  	164.28290,89.42590,36.6100
SS  	33,1.452,
SD  	269.24130,92.55390,12.8100
SS  	D,1.452,
SD  	283.34070,89.32180,39.8420
SS  	34,1.452,
SD  	297.14170,88.30150,110.8520
SS  	35,1.452,
SD  	272.57380,89.38150,81.4150
SS  	E,1.452,
SD  	275.47030,89.56010,82.1040
STN 	E,1.504,
BS  	A,1.452,
SD  	359.59590,90.09280,82.1240
SS  	36,1.452,
SD  	76.42050,89.25510,3.9460
SS  	37,1.452,
SD  	100.57370,115.22090,11.1330
SS  	38,1.452,
SD  	145.57550,111.42120,8.7550
SS  	39,1.452,
SD  	193.39410,98.28200,13.0000
SS  	40,1.452,
SD  	195.55500,101.43560,11.9460
SS  	41,1.452,
SD  	214.40320,94.45220,19.5200
SS  	42,1.452,
SD  	225.12160,91.49040,26.2310
SS  	43,1.452,
SD  	235.34500,90.35190,44.8750
SS  	44,1.452,
SD  	22.59280,88.58040,10.7960
SS  	45,1.452,
SD  	17.08250,89.38130,39.7840
SS  	46,1.452,
SD  	20.02450,89.40440,54.2700
SS  	47,1.452,
SD  	8.10120,90.26260,62.2420
SS  	48,1.452,
SD  	28.02350,89.31160,69.2520
SS  	49,1.452,
SD  	37.24100,89.12430,93.9070
SS  	50,1.452,
SD  	41.35550,89.17330,89.0060
SS  	51,1.452,
SD  	34.12340,89.21270,108.3400
STN 	C,1.504,
BS  	A,1.452,
SD  	0.00000,87.29430,62.8770
SS  	52,1.452,
SD  	268.04430,86.54310,28.3850
SS  	53,1.452,
SD  	274.12320,86.57090,28.7240
SS  	54,1.452,
SD  	268.45440,89.11430,43.8380
SS  	55,1.452,
SD  	273.08180,88.16350,50.5920
SS  	56,1.452,
SD  	270.09060,88.27220,51.5020

Bạn down những CT bình sai bên trắc địa như Apnet, HHmap ... có thể xử lý những file số liệu thô. Mình có cái này có thể bạn dùng thử xem. Sau khi giải nén bạn đổi file ltd.e thành ltd.exe để chạy

http://www.cadviet.com/upfiles/3/37170_binhsai_1.rar

  • Vote tăng 2

Chia sẻ bài đăng này

Liên kết tới bài đăng
Chia sẻ trên các trang web khác

xuandao0708    9

xuandao0708
Đã đăng

Chừng nào anh TrungNgaMy rảnh thì anh có thể chỉnh lại 1 chút chương trình bình sai phần chữ anh cho nó là không dấu cho dễ, chứ hiện giờ trên máy em mỗi lần muốn dùng chương trình anh thì em phải chuyễn font trong window về Vk Sans Serif thì phần chữ dọc mới được. Nếu font window là font khác thì ra chữ không dọc được. Thank anh nhiều!

Chia sẻ bài đăng này

Liên kết tới bài đăng
Chia sẻ trên các trang web khác

phamthanhbinh    3.146

phamthanhbinh
Đã đăng

thanks bác Bình đã gợi ý

Hề hề hề,

Cái này bác DoanVanHa đã nói tứ trước rồi, tại bạn không theo dõi topic từ đầu đấy thôi. Mình chỉ làm cái việc của con vẹt ấy mà....

Chia sẻ bài đăng này

Liên kết tới bài đăng
Chia sẻ trên các trang web khác

ungchinh2001    0

ungchinh2001
Đã đăng

này thì xuất điểm , block text , chơi đủ thứ phục vị mọi yêu cầu . ( e chém tí nhé ) vì cũng từng 1 thời vật lộn với mớ hỗn độn này nên thấy anh em cần thì e úp lên . theo e thì 2 cái này đủ để các bác khảo sát đến thiết kế chơi tới bến . ko những file txt mà file định dạng khác nó cũng chơi dc .

các bạn có thể chọn 1 trong 2 .

1 http://www.cadviet.c...txtcsv__ptm.lsp lệnh PTM

2 http://www.cadviet.c...yzimportxyz.rar lệnh importxyz

chọn 1 trong 2 rồi chơi thế nào @@ có thể cho 1 vi dụ ko.

Chia sẻ bài đăng này

Liên kết tới bài đăng
Chia sẻ trên các trang web khác

DanKhaosat    14

DanKhaosat
Đã đăng

 

Có bác nào giúp em chỉnh sửa lisp của bác Gia_Bach http://www.cadviet.c.../80142_rft2.lsp

;; free lisp from cadviet.com
(defun c:RFT(/ data f h line pt pXY spc str ten val);Read File Txt
  ;|  By : Gia Bach, gia_bach @  www.CadViet.com 			|;  
  (vl-load-com)
  (defun Split (Str Char / Lst pos)
	(while (setq pos (vl-string-search Char Str))
  	(if (null Lst)
(setq Lst (list (substr Str 1 pos)))
(setq Lst (append Lst (list (read (substr Str 1 pos))))))
  	(setq Str (substr Str (+ pos 2)) ))
	(setq Lst (append Lst (list (read Str)))))
 
  (if (setq ten (getfiled "Chon File txt" (getvar "dwgprefix") "txt" 8))
	(progn
  	(or (tblsearch "layer" "Point") (command "-layer" "n" "Point" "") )
  	(or (tblsearch "layer" "Sothutu") (command "-layer" "n" "Sothutu" "c" 3 "Sothutu" "") )
  	(or (tblsearch "layer" "Caodo") (command "-layer" "n" "Caodo" "c" 4 "Caodo" "") )
  	(setq spc (vla-get-ModelSpace (vla-get-ActiveDocument(vlax-get-Acad-Object))))
  	(setq h 2);(* (getvar "dimtxt")(getvar "dimscale")))
  	(setq f (open (findfile ten) "r"))
  	(while (setq Line (read-line f))
(if (vl-string-search "\t" Line)
   (progn
	(setq data (split Line "\t" )
	val (car data)
	pt  (cdr data))
	(if (not(vl-catch-all-error-p (vl-catch-all-apply 'vlax-3d-point pt)))
   	(progn
  (setq pXY (list (car pt)(cadr pt)))
  (vla-put-Layer (vla-addpoint spc (vlax-3d-point pXY)) "Point")
  (vla-put-Layer (setq str (vla-addtext spc val (vlax-3d-point pXY) h)) "Sothutu")
  (vla-put-Alignment str 8)
  (vla-put-TextAlignmentPoint str (vlax-3d-point pXY))
  (vla-put-Layer (vla-addtext spc (caddr pt) (vlax-3d-point pXY) h) "Caodo") )))))  ))
  (princ))
với yêu cầu:

- File text dạng : SST,Y,X,Z,Code

- Độ cao Z có dấu chấm ở hàng thập phân nằm đúng vào vị trí tọa độ (X,Y) của điểm đó .

Em xin cảm ơn trước.

Bạn ơi bạn có thể sửa để chạy ra

1. Layer: point

2. Layer: docao

3. Layer: madiem

4. Layer Tendiem

với số liệu thứ tự:

1.Tendiem          2. Tọa dộ X        3. Tọa dộ Y        4. Độ cao  H     5. Mã điểm

I-1_A=              2482493.792       417021.870         167.751            II-1

I-1_A=    2482493.792    417021.875    167.748    II-1

I-1_2    2482454.002    416964.167    175.394    ?

I-1_3    2482449.684    416963.618    173.798    ?

I-1_4    2482447.597    416959.881    175.082    ?

I-1_5    2482380.325    416886.284    167.977    S

I-1_6    2482360.346    416888.805    168.130    S

I-1_7    2482367.507    416866.060    169.516    Shttp://www.cadviet.com/upfiles/3/123341_a_1.rar

Chia sẻ bài đăng này

Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Tạo một tài khoản hoặc đăng nhập để nhận xét

Bạn cần phải là một thành viên để lại một bình luận

Tạo tài khoản

Đăng ký một tài khoản mới trong cộng đồng của chúng tôi. Điều đó dễ mà.

Đăng ký tài khoản mới

Đăng nhập

Bạn có sẵn sàng để tạo một tài khoản ? Đăng nhập tại đây.

Đăng nhập ngay
Về Đầu Trang AutoLisp
×