Listp bảng tọa độ vn2000

[love cad 0]

Lsp ok lắm rùi nhoc ơi.

Nếu làm cái Font TCVN3 càng tốt.

Thank bạn nhé. :)  

[nhoclangbat 392]

-nếu phần chạy ok, bạn lấy file chạy ra của lsp sữa lại thủ công các text để nhoc pit text nào nằm ở style nào và font của style là gì rùi up lên để nhoc xem rùi set vào lisp hen ^^

- hẹn trong ngày mai xong ^^, nếu mai nhoc ko bận đi dâu nhoc sẽ hoàn thiện sớm :)

[nhoclangbat 392]

- Sao nhoc chỉnh cái lsp nào cũng phải viết lại gần chục lần mới ra nhỉ kaka ^^ :P

P/s: đúng thổ dân lun

[nhoclangbat 392]

- Hi chiều này rãnh nhoc thử binh lại gần đúng với file bạn Mse đưa lên, bạn xem thử vừa ý chưa hen, font TCVN3 lun ^^,trong file bạn có cái block để đánh dấu ký hiệu điểm hình vuông, bạn nhớ tạo cái block đó trước khi chạy hen, trong file tên block là KT2, nhoc sữa lại chèn = block tên KT3, hình vẫn vậy thui, kích thước nhoc lấy của bạn làm chuẩn lun, bạn nhớ khi tạo block đó điểm chèn block nên ngay tâm hình ^^ hay thik block hình gì cũng đc miễn tên block là KT3, có thểm lựa chọn nhập tên điểm tọa độ. nhoc up mediafire đỡ lỗi font

http://www.mediafire.com/download/1ad052wu2r4knzw/Mse.lsp

thêm cái lsp cho màu mè :P

http://youtu.be/BJ4AnVGEebc

[M se 2]

 Sao em tải về, lsp thực hiện tới pic tâm thửa xong, không thực hiện lệnh tiếp theo giống như clip của a nhoc vậy ta. a nhóc vào help cái về mảng cad em không rành lắm... :unsure:

[nhoclangbat 392]

-@@ thế bạn đang xài cad version nào nhỉ, bạn thử chạy lại tới bước nào nó ko chạy nữa thoát lun , bạn bật F2 lên copy mấy dòng từ lúc chạy lệnh rùi post lên nhoc xem, mới đoán đc

[M se 2]

cad 2007 anh ơi. http://www.cadviet.com/upfiles/3/135495_lenh_f2.txt

pick tam thua:

Error: no function definition: ACET-GEOM-VERTEX-LIST

pick tam thua:

 

pick tam thua:

Error: no function definition: ACET-GEOM-VERTEX-LIST

Command: mse

 

Command: mse

 

Command: mse

Command: mse

 

Command: mse

 

Command: mse

 

pick tam thua:

 

pick tam thua:

 

pick tam thua:

Error: no function definition: ACET-GEOM-VERTEX-LIST

Command: _appload Mse.lsp successfully loaded.

 

 

Command: LSP XUAT BANG TOA DO CAC DINH THUA DAT, LENH: MSE

Command:

Command: block

Specify insertion base point:

 

Select objects: Specify opposite corner: 1 found

 

Select objects:

 

Command: mse

 

Nhap ten diem cua dinh thua dat:m

 

Mau So Ti Le Cua BDHT(1000):1000

 

pick tam thua:

 

Command: _appload Mse.lsp successfully loaded.

 

 

Command: LSP XUAT BANG TOA DO CAC DINH THUA DAT, LENH: MSE

Command:

Command: block

Specify insertion base point:

 

Select objects: Specify opposite corner: 1 found

 

Select objects:

 

Command: mse

 

Nhap ten diem cua dinh thua dat:m

 

Mau So Ti Le Cua BDHT(1000):1000

 

pick tam thua:

 

Command: _appload Mse.lsp successfully loaded.

 

 

Command: LSP XUAT BANG TOA DO CAC DINH THUA DAT, LENH: MSE

Command:

Command: block

Specify insertion base point:

 

Select objects: Specify opposite corner: 1 found

 

Select objects:

 

Command: mse

 

Nhap ten diem cua dinh thua dat:m

 

Mau So Ti Le Cua BDHT(1000):1000

 

pick tam thua:

 

Command: _appload Mse.lsp successfully loaded.

 

 

Command: LSP XUAT BANG TOA DO CAC DINH THUA DAT, LENH: MSE

Command:

Command: block

Specify insertion base point:

 

Select objects: Specify opposite corner: 1 found

 

Select objects:

 

Command: mse

 

Nhap ten diem cua dinh thua dat:m

 

Mau So Ti Le Cua BDHT(1000):1000

 

pick tam thua:

 

Command: _appload Mse.lsp successfully loaded.

 

 

Command: LSP XUAT BANG TOA DO CAC DINH THUA DAT, LENH: MSE

Command:

Command: block

Specify insertion base point:

 

Select objects: Specify opposite corner: 1 found

 

Select objects:

 

Command: mse

 

Nhap ten diem cua dinh thua dat:m

 

Mau So Ti Le Cua BDHT(1000):1000

 

pick tam thua:

 

Command: _appload Mse.lsp successfully loaded.

 

 

Command: LSP XUAT BANG TOA DO CAC DINH THUA DAT, LENH: MSE

Command:

Command: block

Specify insertion base point:

 

Select objects: Specify opposite corner: 1 found

 

Select objects:

 

Command: mse

 

Nhap ten diem cua dinh thua dat:m

 

Mau So Ti Le Cua BDHT(1000):1000

 

pick tam thua:

Error: no function definition: ACET-GEOM-VERTEX-LIST

Command: _appload Mse.lsp successfully loaded.

 

 

Command: LSP XUAT BANG TOA DO CAC DINH THUA DAT, LENH: MSE

Command:

Command: block

Specify insertion base point:

 

Select objects: Specify opposite corner: 1 found

 

Select objects:

 

Command: mse

 

Nhap ten diem cua dinh thua dat:m

 

Mau So Ti Le Cua BDHT(1000):1000

 

pick tam thua:

Error: no function definition: ACET-GEOM-VERTEX-LIST

Command: _appload Mse.lsp successfully loaded.

 

 

Command: LSP XUAT BANG TOA DO CAC DINH THUA DAT, LENH: MSE

Command:

Command: block

Specify insertion base point:

 

Select objects: Specify opposite corner: 1 found

 

Select objects:

 

Command: mse

 

Nhap ten diem cua dinh thua dat:m

 

Mau So Ti Le Cua BDHT(1000):1000

 

pick tam thua:

Error: no function definition: ACET-GEOM-VERTEX-LIST

Command: _appload Mse.lsp successfully loaded.

 

 

Command: LSP XUAT BANG TOA DO CAC DINH THUA DAT, LENH: MSE

Command:

Command: block

Specify insertion base point:

 

Select objects: Specify opposite corner: 1 found

 

Select objects:

 

Command: mse

 

Nhap ten diem cua dinh thua dat:m

 

Mau So Ti Le Cua BDHT(1000):1000

 

pick tam thua:

Error: no function definition: ACET-GEOM-VERTEX-LIST

[tientracdia 16]

Theo mình , bạn viết mse có nhiều cải tiến là thêm tên mốc và thì khá hay đó, nhưng chế thêm block KT3 làm cho phức tạp thêm bạn ơi.

Cứ cho nút tròn số thứ tự điểm là được rồi bạn

[nhoclangbat 392]

 

cad 2007 anh ơi. http://www.cadviet.com/upfiles/3/135495_lenh_f2.txt

pick tam thua:

Error: no function definition: ACET-GEOM-VERTEX-LIST

pick tam thua:

 

pick tam thua:

Error: no function definition: ACET-GEOM-VERTEX-LIST

Command: mse

 

Command: mse

 

Command: mse

Command: mse

 

Command: mse

 

Command: mse

 

pick tam thua:

 

pick tam thua:

 

pick tam thua:

Error: no function definition: ACET-GEOM-VERTEX-LIST

Command: _appload Mse.lsp successfully loaded.

 

 

Command: LSP XUAT BANG TOA DO CAC DINH THUA DAT, LENH: MSE

Command:

Command: block

Specify insertion base point:

 

Select objects: Specify opposite corner: 1 found

 

Select objects:

 

Command: mse

 

Nhap ten diem cua dinh thua dat:m

 

Mau So Ti Le Cua BDHT(1000):1000

 

pick tam thua:

 

Command: _appload Mse.lsp successfully loaded.

 

 

Command: LSP XUAT BANG TOA DO CAC DINH THUA DAT, LENH: MSE

Command:

Command: block

Specify insertion base point:

 

Select objects: Specify opposite corner: 1 found

 

Select objects:

 

Command: mse

 

Nhap ten diem cua dinh thua dat:m

 

Mau So Ti Le Cua BDHT(1000):1000

 

pick tam thua:

 

Command: _appload Mse.lsp successfully loaded.

 

 

Command: LSP XUAT BANG TOA DO CAC DINH THUA DAT, LENH: MSE

Command:

Command: block

Specify insertion base point:

 

Select objects: Specify opposite corner: 1 found

 

Select objects:

 

Command: mse

 

Nhap ten diem cua dinh thua dat:m

 

Mau So Ti Le Cua BDHT(1000):1000

 

pick tam thua:

 

Command: _appload Mse.lsp successfully loaded.

 

 

Command: LSP XUAT BANG TOA DO CAC DINH THUA DAT, LENH: MSE

Command:

Command: block

Specify insertion base point:

 

Select objects: Specify opposite corner: 1 found

 

Select objects:

 

Command: mse

 

Nhap ten diem cua dinh thua dat:m

 

Mau So Ti Le Cua BDHT(1000):1000

 

pick tam thua:

 

Command: _appload Mse.lsp successfully loaded.

 

 

Command: LSP XUAT BANG TOA DO CAC DINH THUA DAT, LENH: MSE

Command:

Command: block

Specify insertion base point:

 

Select objects: Specify opposite corner: 1 found

 

Select objects:

 

Command: mse

 

Nhap ten diem cua dinh thua dat:m

 

Mau So Ti Le Cua BDHT(1000):1000

 

pick tam thua:

 

Command: _appload Mse.lsp successfully loaded.

 

 

Command: LSP XUAT BANG TOA DO CAC DINH THUA DAT, LENH: MSE

Command:

Command: block

Specify insertion base point:

 

Select objects: Specify opposite corner: 1 found

 

Select objects:

 

Command: mse

 

Nhap ten diem cua dinh thua dat:m

 

Mau So Ti Le Cua BDHT(1000):1000

 

pick tam thua:

Error: no function definition: ACET-GEOM-VERTEX-LIST

Command: _appload Mse.lsp successfully loaded.

 

 

Command: LSP XUAT BANG TOA DO CAC DINH THUA DAT, LENH: MSE

Command:

Command: block

Specify insertion base point:

 

Select objects: Specify opposite corner: 1 found

 

Select objects:

 

Command: mse

 

Nhap ten diem cua dinh thua dat:m

 

Mau So Ti Le Cua BDHT(1000):1000

 

pick tam thua:

Error: no function definition: ACET-GEOM-VERTEX-LIST

Command: _appload Mse.lsp successfully loaded.

 

 

Command: LSP XUAT BANG TOA DO CAC DINH THUA DAT, LENH: MSE

Command:

Command: block

Specify insertion base point:

 

Select objects: Specify opposite corner: 1 found

 

Select objects:

 

Command: mse

 

Nhap ten diem cua dinh thua dat:m

 

Mau So Ti Le Cua BDHT(1000):1000

 

pick tam thua:

Error: no function definition: ACET-GEOM-VERTEX-LIST

Command: _appload Mse.lsp successfully loaded.

 

 

Command: LSP XUAT BANG TOA DO CAC DINH THUA DAT, LENH: MSE

Command:

Command: block

Specify insertion base point:

 

Select objects: Specify opposite corner: 1 found

 

Select objects:

 

Command: mse

 

Nhap ten diem cua dinh thua dat:m

 

Mau So Ti Le Cua BDHT(1000):1000

 

pick tam thua:

Error: no function definition: ACET-GEOM-VERTEX-LIST

- hihi nhoc pit tại sao rùi, cái hàm ACET-GEOM-VERTEX-LIST nhoc viết trong code nó đòi hỏi phải có bộ express tool đã đc cài vào autocad, bạn thử vô control pane cài thêm bộ express tool cho cad xem sao, đến hiện tại thì nhoc chưa mót đc cách nào khác thay thế công dụng của hàm đó ^^, bạn thông cảm

[nhoclangbat 392]

Theo mình , bạn viết mse có nhiều cải tiến là thêm tên mốc và thì khá hay đó, nhưng chế thêm block KT3 làm cho phức tạp thêm bạn ơi.

Cứ cho nút tròn số thứ tự điểm là được rồi bạn

- cái lsp Mse đó là nhoc viết riêng cho bạn Mse theo file bạn đó đưa lên ấy mà, block đó có thể vẽ trực tiếp lun trong lsp cũng đc, nhoc viết vậy để có khi bạn ấy mún vẽ hình khác chẳng hạn ^^, tên block thì cho cố định dễ gọi, không thì trong lsp lại thêm dòng nhập tên block thì hơi dài dòng

[tientracdia 16]

Xin lỗi, riêng mình có thể nhờ Bạn giúp cho việc bỏ chọn Block, chỉ cần pick vào hình thôi.

Mong bạn giúp

[nhoclangbat 392]

- ^^ ok, nhưng bạn xài font gì để nhoc chỉnh lại, như của bạn Mse thì TCVN3 với tiêu đề bảng tọa dộ hơi dài, tốt nhất bạn gửi file mẫu nhoc xem ^^, và bạn có mún giữ phần thêm tên vào số thứ tự điểm ko hay bỏ ra

[tientracdia 16]

Dùng fonts ABC, nhập tên mốc nếu không nhập thì chỉ thể hiện số, đóng khung theo hết số thứ tụ thể hiện không thừa hoặc thiếu.

 

http://www.cadviet.com/upfiles/3/114381_bang_thong_ke_thua_dat.dwg

[nhoclangbat 392]

- ^^ của bạn đây

http://www.mediafire.com/download/419z9klb8f5wvkn/TTD.lsp

p/s: ngứa tay nhoc thêm vô phần ngoài nhập tên điểm, thêm cho nhập số bắt đầu là bao nhiêu, bạn cứ yên tâm, không nhập gì hết sẽ lấy mặc định là 1

[nhoclangbat 392]

- theo cảm nhận của nhoc thì tiêu đề và số hiệu điểm nên để chữ đậm cho nổi ^^ ( có thể là do mấy a trong cơ quan chỉ vậy làm quen nên nhoc thik để vậy)

- bạn lovecad ghé qua có nhu cầu thì tải lsp này hen, đã theo font TCVN3, cái này nhoc viết là dành cho việc biên tập biên tập bên layout, nên phần nhập tỉ lệ lúc đầu quyết định ti lệ cách hiển thị các đối tượng, lúc in ra sẽ nhìn vừa mắt, text từ 1.8 - 2.0 mm, còn cái bảng tọa độ nhoc đã xuất đúng chuẩn 1:1 chỉ cần đem qua để trong bản vẽ bên layout lúc in ra là chuẩn nhìn ^^

http://www.mediafire.com/download/av61vhdhyyv9npa/XTD.lsp

P/s: bạn tientracdia có thể tải bản này dùng, chỉ sữa font lại thui ^^ 

[tientracdia 16]

BẠN CÓ THỂ GIÚP MÌNH KHI PICK VÀO THỦA RA CẠNH , ĐIỂM

http://www.cadviet.com/upfiles/3/114381_vtqp_03.dwg

[nhoclangbat 392]

- ý bạn là sao nhỉ, pick vào rùi xuất cái bảng ghi cạnh ko cần tọa độ phải không

- nếu cái mẫu khung ghi cạnh kia là cố định nhoc sẽ viết theo kiểu bạn pick vào góc khung trên bên trái sẽ in ra các text ứng với từng dòng trong khung đc ko nhỉ ^^

[tientracdia 16]

Đúng rồi đó bạn, Mình sợ rắc rối cho bạn. Nếu được bạn giúp như sau :

1_ chọn thửa,  ghi điểm , tên điểm vả chiểu dài trên thửa, xuất ra bảng chọn tùy  vị trí đặt bảng, xuất bảng do yêu cầu có 2 loại bảng . bảng thể hiện tên đỉnh - tọa độ X - Tọa độ Y - tên cạnh ( là đỉnh D - D+1 ) - chiều dài. Loại bản thứ 2 chỉ ghi Tên cạnh - chiều dài.

2_Vấn đề 2 : chọn thửa và xuất như nội dung trên như thể hiên ra cả khung luôn.

Mong được bạn giúp

[nhoclangbat 392]

- thực sự y/c này đối với khả năng hiện tại của nhoc hơi khó ^^, việc xuất 2 loại bảng trong cùng 1 lsp hix hix, thực ra như bạn cũng thấy nhoc cũng chỉ dựa vào cái lõi của lsp gốc binh lại nên việc chỉnh sữa hơi phức tạp, có gì bạn thông cảm.

- hiện tại khả năng hiện giờ nếu có thể thì nhoc chỉ có thể tách ra 2 lsp riêng, 1 lsp xuất bảng tọa độ, 1 lsp cho phép bạn xuất bảng cạnh thửa thui, nhoc chưa ghép nỗi 2 bảng vào 1 lsp

- ah còn 1 cái nữa cái bảng cạnh có các line ngăn cách giữa 1 cặp cạnh, nhoc có thể bỏ qua các line đó không, nếu bạn đồng ý, nhoc sẽ cố gắng chỉnh thử sẽ làm lsp thứ 2 để xuất bảng cạnh, lsp xuất tọa độ đã có rùi hen

P/s: sức nhoc chỉ tới đó, nhoc ko hứa sẽ có, nhưng sẽ cố gắng làm thử, nếu làm ko đc nhoc sẽ báo bạn hay, bạn đừng bùn, bạn có thể nhờ các anh khác chỉnh hộ ^^ 

[tientracdia 16]

- thực sự y/c này đối với khả năng hiện tại của nhoc hơi khó ^^, việc xuất 2 loại bảng trong cùng 1 lsp hix hix, thực ra như bạn cũng thấy nhoc cũng chỉ dựa vào cái lõi của lsp gốc binh lại nên việc chỉnh sữa hơi phức tạp, có gì bạn thông cảm.

- hiện tại khả năng hiện giờ nếu có thể thì nhoc chỉ có thể tách ra 2 lsp riêng, 1 lsp xuất bảng tọa độ, 1 lsp cho phép bạn xuất bảng cạnh thửa thui, nhoc chưa ghép nỗi 2 bảng vào 1 lsp

- ah còn 1 cái nữa cái bảng cạnh có các line ngăn cách giữa 1 cặp cạnh, nhoc có thể bỏ qua các line đó không, nếu bạn đồng ý, nhoc sẽ cố gắng chỉnh thử sẽ làm lsp thứ 2 để xuất bảng cạnh, lsp xuất tọa độ đã có rùi hen

P/s: sức nhoc chỉ tới đó, nhoc ko hứa sẽ có, nhưng sẽ cố gắng làm thử, nếu làm ko đc nhoc sẽ báo bạn hay, bạn đừng bùn, bạn có thể nhờ các anh khác chỉnh hộ ^^ 

Bạn cứ tách ra làm phần đi, 1 lsp  xuất bảng cạnh thửa  và các line ngăn cách giữa 1 cặp cạnh bỏ qua luôn

[nhoclangbat 392]

- hi mất cả buổi sáng mò nhoc quyết định gôm lun 2 bảng vào 1 lsp, bạn xem thử clip có vừa ý chưa có cần chỉnh gì thêm ko, nếu ok nhoc sẽ up lsp lên ^^

https://www.youtube.com/watch?v=qCQfZMX_is4&feature=youtu.be

[tientracdia 16]

Thật tuyệt vời quá

[nhoclangbat 392]

- ok link tải lsp ^^

http://www.mediafire.com/download/mdm56by14t8dht2/tonghopxtd.lsp

[ketxu 2.984]

Ké vô chút : Đọc code của nhoclangbat ở topic này với của hiepttr ở topic Vẽ ống cút : tí ngất.

Còn cái j để hướng dẫn các bạn trong khoá nữa đây ??

Cảm thấy phê :wub:  Hy vọng các bạn tiếp tục giữ lửa cho diễn đàn

[tientracdia 16]

Cám ơn Bạn, xin bạn giúp mình tách ra lisp chỉ ghi ra bảng tên cạnh và chiều dài thôi