Chuyển đến nội dung
Diễn đàn CADViet
  • Thông báo

    • Nguyen Hoanh

      CADViet đã hoàn tất nâng cấp   14/09/2017

      Chào các bạn, CADViet đã hoàn tất việc nâng cấp lên phiên bản mới. Tất cả các chức năng đã hoạt động theo kỳ vọng của ban quản trị. Nếu có vấn đề gì cần phản hồi, các bản post ở đây nhé: Trân trọng, Nguyễn Hoành.
quansla

[Hỏi] biến nào quy ðịnh danh sách tỉ lệ annotative bản vẽ, và câu hỏi phụ

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

quansla    232

Mọi ngýời cho em hỏi trong Autocad thì danh sách tỉ lệ Annotative của bản vẽ ðang mở(danh sách ðýợc quy ðịnh khi ấn chuột trái vào ðây , Cad12)

101306_20131104_110636.png

Tức là cái em cần là một danh sách các tỉ lệ Annotative ðang dùng, (nếu có thể ðịnh nghĩa, phân biệt ðýợc cái nào ðã dùng, cái nào chýa dùng = có thể Purge ðýợc thì càng tốt)

    (ví dụ '("1:1" "1:10" "1:25" "1:100" "1:300" "1:350" "1:800")   )

Hai nữa là ngoài cách sử dụng lệnh AIOBJECTSCALEADD và AIOBJECTSCALEREMOVE ðể Add,Remove tỉ lệ Annotative cho ðối týợng, thì có cách nào ðể tác ðộng bằng lisp, qua mã DXF,hay ARX (>??) ðýợc không, nếu có thì cho em xin cách làm.

Em xin cảm õn

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
ThuyLinh313    146

Toàn bộ câu hỏi của bạn là 1 chủ đề cao cấp mà ít người biết đến, theo mình thấy các lisper Cadviet đa số không quan tâm hoặc không dùng đến chức năng này.

Bạn nghiên cứu các dictionary sau:

"ACAD_SCALELIST" - từ điển liên quan đến danh sách tỷ lệ của bản vẽ.

"ACDB_ANNOTATIONSCALES" - từ điển liên quan đến tỷ lệ của đối tượng.

"AcDbContextDataManager" - từ điển liên quan đến các cài đặt về annotation.

 

Hàm này do bạn Thaistreetz viết thoả mãn câu hỏi đầu tiên của bạn

(defun Get-ScaleList (/ dic dxf-etg dxf-etg-m)
(defun dxf-etg (code etg) (cdr (assoc code etg)))
(defun dxf-etg-m (code etg / lst ) (foreach asoc etg (if (= code (car asoc)) (setq lst (append lst (list (cdr asoc)))))) lst)
(if (setq dic (dictsearch (namedobjdict) "ACAD_SCALELIST"))
(mapcar(function(lambda(x)(list(dxf-etg 300 x)(dxf-etg 140 x)(dxf-etg 141 x)))) (mapcar'entget (dxf-etg-m 350 dic))))) 
  • 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

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


×