Nhờ viết lisp: Đia đường đia chất trắc ngang đối với tuyến đường cải tạo

[Nhờ viết lisp: Đia đường đia chất trắc ngang đối với tuyến đường cải tạo]

Lisp khó như này chắc chắn phải trả phí, bạn liên hệ vói chủ nhân lisp đó xem sao.

[Lisp gán cao độ tại các điểm text hoặc block]

3 giờ trước, QHH đã nói:

Làm giúp bạn nhé,

Cao độ Circle đã bằng cao độ bên cạnh

111.dwg

Thớt cần hỏi cách làm chứ đâu cần làm dùm 1 file, còn mấy trăm file khác không lẽ cũng làm dùm?

[Đổi màu của Text]

Chỉ có đổi màu thôi mà cũng dùng đến lisp sao!!

Dùng Quick Select trong bảng Properties chọn tất cả màu vàng rồi chuyển sang màu khác thôi mà.

[xoa lisp cut dim]

Bạn vào thư mục D:\Dropbox\Soft\Trim dim\ xóa cái file CUTDIM.lsp đi là xong.

Rồi nhấp vào dòng CUTDIM.lsp ở cái bảng StartUp Suite trên, bấm remove.

[Lisp chuyển từ Spline sang 3DPolyline]

Lệnh SPLINEDIT > P > chọn precision.

[Lisp Thống kê Tọa độ, kích thước]

 

[XIn hỏi lỗi dãn chữ khi dùng lệnh ed]

Nếu là Mtext thì nổ nó ra.

[Cài passwork cho file Autocad]

Lệnh Save As, phía trên bên phải có mục Tools , chọn Security option, ra cái bảng trong file pdf của bạn, nhập pass, xong.

[cần biết tên lệnh để chạy một file .Fas]

Tên lệnh KTTD, cách dùng thế nào bạn tự tìm hiểu.

[mở lên bằng cad 2007 tất cả text nhảy loạn xạ ra khỏi bản vẽ]

Thử save as 2007.

[Đổ bóng công trình]

Bác có thể xem ở đây https://www.cadtutor.net/tutorials/autocad/adding-sunlight.php

 

[Lisp đánh số thứ tự block Attributes]

Cái này hơi khó xài đấy. Bạn phải có 1 cái block tên là Myblock, trong block đó có 1 cái Attribute tên MyTag dạng số. Sau khi load cái lisp này thì khi copy nó sẽ tự động tăng số của Mytag lên 1.

[Nhờ các Anh chị chỉnh sửa code lisp vẽ 4 đường thẳng. Với 3 điểm cho trước, chiều dài có bội số chung lớn nhất của kc và nhỏ hơn chiều dài p1p2, p2p3. (xem file đính kèm)]

Đây bạn. Điều kiện là P1P2 thẳng đứng, P2P3 nằm ngang, tức là A1A2A4A3 là hình chữ nhật.

tmp.lsp

[Hỏi về code Lisp]

Sau (/= nil ss) thì tới (progn liền

[Hỏi về code Lisp]

tmp.lsp

[[Trợ giúp] - Lisp chèn, xoay block theo đường Plinle]

Đây bạn.

AutoBlockBreakV1-8.lsp

[Nhờ sửa lisp Getexcel]

Đây bạn, nhưng LM không phải người Việt cho nên có đưa ra excel nhưng nếu là tiếng Việt có dấu cũng chẳng đọc được.

getxcel.lsp

[Nhờ AC sửa Lisp]

Cái này chắc được.

FDT.LSP

[Nhờ AC sửa Lisp]

Đúng rồi.

FDT.LSP

[Nhờ AC sửa Lisp]

Thì là thiếu cái hàm tôi nói ở trên, lisp fun circle cũng dùng hàm đó chạy được thì  để lisp này chung với lisp circle sẽ chạy được.

[Nhờ AC sửa Lisp]

Nếu bạn không kiếm ra cái hàm đó hoặc không muốn đưa lên cái hàm đó thì sửa dùm bạn như này. Tên lệnh FCN. 

FDT.LSP

[Nhờ AC sửa Lisp]

Bạn kiếm cái hàm tên replace_str gửi lên mới đủ.

[Xin giúp đỡ dùng lisp thống kê báo lỗi]

Bình thường mà bạn chỉ dư chữ </yes> ở cuối thôi.

TIENG VIET.LSP

[Xin Lisp Tự Động Đo Chiều Dài Nhiều Line (Ko Tính Tổng)]

 

[Nhờ các Anh, Chị sửa giùm code lisp!]

Sửa dùm bạn. Tuy nhiên có vài điều muốn nói với bạn hay đúng hơn với ng viết cái lisp trên:

1/ Tên biến viết chữ hoa gây cảm giác khó chịu.

2/ Không biết có phải tác giả muốn giấu nghề hay do bạn chép thiếu mà có nhiều cái rất ngớ ngẩn trong lisp trên, cụ thể là thiếu vòng lặp và PLINE không hề có dxf 11.

3/ Thấy bạn để trên này cũng khá lâu mà chẳng thấy ai sửa, có lẽ ng ta ngại sửa lisp của ng khác hoặc cũng có lẽ bây giờ ít ng làm không công chăng?

4/ Tuy tôi đã sửa và thấy nó chạy được nhưng nếu bạn thấy chưa ưng ý thì ráng mà xài, đừng yêu cầu thêm, vì tôi không thích làm mãi 1 đề tài. 

tmp.lsp