Đến nội dung


Hình ảnh
* * * - - 1 Bình chọn

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


  • Please log in to reply
107 replies to this topic

#81 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5447 Bài viết
Điểm đánh giá: 2624 (tuyệt vời)

Đã gửi 28 May 2012 - 02:19 PM

Thử xem sao.
Bạn tìm dòng dưới đây:
(setq pXY (list (car pt)(cadr pt)))
Và thay nó thành:
(setq pXY (list (car pt)(cadr pt)(caddr pt)))
  • 0

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#82 vansonxd85

vansonxd85

    Chưa sử dụng CAD

  • Members
  • Pip
  • 3 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 31 May 2012 - 04:51 PM

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....
  • 0

#83 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 6007 Bài viết
Điểm đánh giá: 3113 (tuyệt vời)

Đã gửi 31 May 2012 - 06:15 PM

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è?????
  • 0
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#84 vuminhchau

vuminhchau

    biết vẽ polygon

  • Members
  • PipPip
  • 72 Bài viết
Điểm đánh giá: 1 (bình thường)

Đã gửi 01 June 2012 - 05:54 AM

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

  • 0

#85 whatcholingon

whatcholingon

    biết lệnh break

  • Members
  • PipPipPipPip
  • 222 Bài viết
Điểm đánh giá: 37 (tàm tạm)

Đã gửi 01 June 2012 - 08:30 AM

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.
  • 1

#86 vuminhchau

vuminhchau

    biết vẽ polygon

  • Members
  • PipPip
  • 72 Bài viết
Điểm đánh giá: 1 (bình thường)

Đã gửi 04 June 2012 - 06:29 PM


Đâ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!
  • 0

#87 vuminhchau

vuminhchau

    biết vẽ polygon

  • Members
  • PipPip
  • 72 Bài viết
Điểm đánh giá: 1 (bình thường)

Đã gửi 09 June 2012 - 09:19 PM

các anh ơi giúp em vấn đề trên được không ạ, em cảm ơn các anh nhiều!
  • 0

#88 hoangkimanh1607

hoangkimanh1607

    biết vẽ line

  • Members
  • PipPip
  • 28 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 27 November 2012 - 11:09 PM

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
  • 0

#89 hoangkimanh1607

hoangkimanh1607

    biết vẽ line

  • Members
  • PipPip
  • 28 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 27 November 2012 - 11:13 PM

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
  • 0

#90 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 6007 Bài viết
Điểm đánh giá: 3113 (tuyệt vời)

Đã gửi 28 November 2012 - 12:32 AM

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.
  • 1
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#91 hakhoailang

hakhoailang

    biết lệnh rotate

  • Members
  • PipPipPip
  • 132 Bài viết
Điểm đánh giá: 2 (bình thường)

Đã gửi 28 November 2012 - 08:59 AM

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
  • 0

#92 TRUNGNGAMY

TRUNGNGAMY

    biết lệnh block

  • Members
  • PipPipPipPipPipPip
  • 401 Bài viết
Điểm đánh giá: 91 (tàm tạm)

Đã gửi 28 November 2012 - 09:05 AM

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.c...0_binhsai_1.rar
  • 2

#93 xuandao0708

xuandao0708

    biết lệnh scale

  • Members
  • PipPipPip
  • 140 Bài viết
Điểm đánh giá: 8 (bình thường)

Đã gửi 28 November 2012 - 09:45 AM

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!
  • 0

#94 hoangkimanh1607

hoangkimanh1607

    biết vẽ line

  • Members
  • PipPip
  • 28 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 28 November 2012 - 01:10 PM

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

#95 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 6007 Bài viết
Điểm đánh giá: 3113 (tuyệt vời)

Đã gửi 28 November 2012 - 01:27 PM

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à....
  • 0
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#96 TRUNGNGAMY

TRUNGNGAMY

    biết lệnh block

  • Members
  • PipPipPipPipPipPip
  • 401 Bài viết
Điểm đánh giá: 91 (tàm tạm)

Đã gửi 28 November 2012 - 11:19 PM

Đạo sử dụng bản này nhé
http://www.cadviet.c...0_binhsai_2.rar
  • 1

#97 xuandao0708

xuandao0708

    biết lệnh scale

  • Members
  • PipPipPip
  • 140 Bài viết
Điểm đánh giá: 8 (bình thường)

Đã gửi 29 November 2012 - 08:16 AM

Thank anh Dũng nhiều, bản này đã không còn bị lỗi font tiếng việt nửa.
  • 0

#98 ungchinh2001

ungchinh2001

    biết pan

  • Members
  • Pip
  • 9 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 04 April 2013 - 10:52 AM

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.


  • 0

#99 kt.v2quang

kt.v2quang

    biết zoom

  • Members
  • Pip
  • 12 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 05 April 2013 - 09:13 AM

post lisp lại đi bạn ơi


  • 0

#100 DanKhaosat

DanKhaosat

    biết lệnh scale

  • Members
  • PipPipPip
  • 149 Bài viết
Điểm đánh giá: 14 (tàm tạm)

Đã gửi 09 October 2013 - 11:56 AM

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.c.../123341_a_1.rar


  • 0