[Đã xong] Lisp chọn đối tượng thì các style của nó hiện hành

[dung_cf 0]

Nhờ anh sửa thêm lisp. Khi setcurent Dim thì set thêm cả các thông số của Dim được chọn nữa. Vì trong 1 số trường hợp chỉ cần dùng loại Dim. Khi đo tùy đối tượng có tỉ lệ khác nhau thì tùy chỉnh thông số DIM SCALE OVERALL theo tỉ lệ bản vẽ:

Ví dụ, Như hình vẽ : cùng 1 loại Dim nhưng Kiểu 2 được sửa thông số trong thanh Properties của Dim: DIM SCALE OVERALL :45 về 22.5, thì được như kiểu 2.

Nhưng khi dùng lisp set Dim, (cần set curent D100,kiểu 2). Thì Lisp chỉ set D100 (kiểu 1- gốc) làm Dim hiện hành không chọn được kiểu 2.

 

Nhờ anh bổ sung giúp tính năng trên.

[jangboko 10]

Nhờ anh sửa thêm lisp. Khi setcurent Dim thì set thêm cả các thông số của Dim được chọn nữa. Vì trong 1 số trường hợp chỉ cần dùng loại Dim. Khi đo tùy đối tượng có tỉ lệ khác nhau thì tùy chỉnh thông số DIM SCALE OVERALL theo tỉ lệ bản vẽ:

Ví dụ, Như hình vẽ : cùng 1 loại Dim nhưng Kiểu 2 được sửa thông số trong thanh Properties của Dim: DIM SCALE OVERALL :45 về 22.5, thì được như kiểu 2.

Nhưng khi dùng lisp set Dim, (cần set curent D100,kiểu 2). Thì Lisp chỉ set D100 (kiểu 1- gốc) làm Dim hiện hành không chọn được kiểu 2.

 

Nhờ anh bổ sung giúp tính năng trên.

 

mình cũng đang cần tìm 1 cái lips như bạn mô tả. Hôm nào trời đẹp anh Hà sửa hộ em cái lips như vậy nhé. Cảm ơn anh nhiều. Chúc anh và cộng đồng cadviet luôn mạnh khỏe.

[Trnghiado 12]

Vào lúc 3/6/2011 tại 09:24, phamngoctukts đã nói:

Bạn thử cái này xem

 

• cla_cdi_cte.lsp
  
• [✎]
   

(defun c:CLA()(command "clayer" (cdr(assoc 8 (entget(car(entsel "\nChon doi tuong lay layer hien hanh:")))))))
(defun c:CDI()(command "-dimstyle" "r" ""))
(defun c:CTE()(command "textstyle" (cdr(assoc 7 (entget(car(entsel "\nChon doi tuong lay textstyle hien hanh:")))))))

 

 

Có cách nào đổi đồng thời cả text syle và dimstyle cùng một lúc bằng 1 lệnh duy nhất được không. Mong bác giúp !

[Doan Van Ha 3205]

8 giờ trước, Nguyễn Hà Huy đã nói:

Quá tuyệt vời, mong bác @Doan Van Ha cải tiến tiếp thì tốt quá

 

Cải tiến khơi khơi vậy thôi à?