DungNguyen685

Đã cần cho công việc thì cũng để đi kiếm tiền thì bỏ phí ra cho nhanh, còn lên chờ đợi như này thì biết bao giờ. Với mình xin góp ý: Bạn biết làm thủ công mất nhiều tgian, thì người viết lisp họ cũng phải mất tgian viết chứ có biến ra được đâu. Họ đã có ý giúp đỡ chỉ “bát bún bò” mà không trả lời cmt là thiếu lịch sự.(nếu bạn không cmt mà ib trực tiếp rồi thì mình xin rút lại cmt này)

Cho mình đoán thử thuật toán nhé! lisp có dùng file trung gian để lưu block chứ ko lưu trên clipboard đúng không nhỉ.

Những gì mình nói là như này. Chỉ dùng 2 lệnh. bên máy A gõ lệnh để tạo view, máy B gõ lệnh để view nếu ở chung bản vẽ thì sẽ view tới khung đó nếu khác bản vẽ thì sẽ mở bản vẽ cùng thư mục cùng tên và view tới.

Bạn xem cmt topic kia của mình cộng bài viết này của anh Ket:

Chắc do cách mình diễn đạt bạn không hiểu. Bản chất lưu file LSP hay TXT hay lưu vào registry abc...nó cũng là lưu thông tin để mở file và zoom tới thôi. Ý mình là vì bạn này đang sửa dụng ổ đĩa dùng chung thay vì phải load lisp lại lần nữa(hoặc gửi code qua command line) để mở thì mình nên viết thêm môt tí bằng cách gõ lệnh cho tiện thôi(Hướng đến việc trao đổi thông tin nhanh VD: Máy A gõ lênh TAO Máy B gõ lênh XEM là đến ngay đó mà)

Chủ top đã biết viết lisp rồi thì mình chia sẻ thuật toán để giải quyết thôi. Chứ nếu chưa biết thì làm sao mà viết.

Mình nghĩ cũng gần tương tự ý tưởng mình gợi ý cho bạn ấy ở topic trước, nhưng thay vì phải load lại file lisp tạo ra thì mình chịu khó code thêm tí thì khi mở file sẽ tự view đến luôn.

Nếu không nhầm một nội dung mở file với zoom này mà bạn lập 3 hay 4 topic rồi ấy nhỉ. Mình nghĩ bạn nên tập trung trao đổi 1 topic thôi để tránhloãng diễn đàn với sau này có người cần họ tìm kiếm dỡ hơn. Với lại liên quan đến thuật toán ý tưởng bạn nên đăng ở đây:

Cảm ơn nhé! Mở file ok rồi thì mình gợi ý cho bạn cách này: 1. Đoạn code mà lấy vị trí zoom trong đó bạn chèn một đoạn mã để khi gõ lệnh thì ghi một giá trị khởi chạy và thông số zoom vào registry hay file txt, csv.. lưu ở đâu đó. 2. Bạn viết một đoạn code ngoài defun và appload vào startup để khi mở file sẽ chạy code, lúc này trích xuất dữ liệu từ nơi đã lưu rồi dùng if hay hàm gì để so sánh nếu giá trị khởi chạy ở mục 1 bằng thì thực thi lệnh để zoom đến và trả lại giá trị khởi chạy bằng một giá trị không khởi chạy(để khi dùng lệnh mở file lên thì đoạn code đó hoạt động mà khi khởi động các file khác thì không)

hehe, mình hay dùng như này chứ thật tình mình không biết nó là biến gì hết. Bạn có thể chia sẻ để học hỏi với.

(getvar "dwgprefix") ; Lấy đường dẫn (vl-string-right-trim ".dwg" (vlax-get-property (vla-get-activedocument (vlax-get-acad-object)) 'WindowTitle )) ;Lấy tên bản vẽ strcat nó lại getfiled ;để mở file theo đường dẫn rồi zoom đến

Mình hay làm là như này: Bước 1: tạo 1 data mẫu hình dạng thép bằng block att(mình từng làm đc 60 hình dạng rồi) Bước 2: Viết lisp khi dùng để field giá trị rồi gán bằng Xdata các giá trị cần thiết. Bước 3: Tạo bảng thông kê bằng cách insert data của bước 1 gán các giá trị cần thiết. (lisp "như" này mình đã từng viết rồi vì không up video lớn lên đc muốn tham khảo có thể ib mình để xem video)

Bạn phải tạo khung như này mới được. Tao Danh Muc.lsp khung bản vẽ.dwg

Mình chỉnh sửa theo yêu cầu này: test trên file :