Chuyển đến nội dung
Diễn đàn CADViet
Đăng nhập để thực hiện theo  
24h.com.vn

[yêu cầu]lisp sửa text dim và gán màu sau khi sửa

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

xin các bác làm giúp e lisp mà khi Edit số liệu dim thì tự động gán cho nó 1 màu nào đó để ta có thể kiểm soát 1 cách dễ dàng.hoặc các bác làm giúp e 1 lisp nhận biết dim đã sửa và gán màu cho 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

Mình gửi bạn code này, không quá giống ý "tự động" của bạn

Nhưng khi bạn làm xong, đánh lệnh SFD xong, nó sẽ tự động vạch mặt những dim bạn đã edit :D

Màu bạn có thể thay đổi giá trị vào lisp trong ô (setq mau 5); số màu do bạn chọn nhé

;; Free lisp code from CADViet.com - edit by mathan
(defun c:sfd ( / ss)
 (setq ss (ssget '((0 . "DIMENSION")
 	(-4 . "<NOT")
 	(-4 . "<OR")
 	(1 . "")
 	(1 . "*<>*")
 	(-4 . "OR>")
 	(-4 . "NOT>")
	)
)
 )
 ;(sssetfirst ss ss)
 (setq mau 5);; Ban nhap mau vao day
 (command "_CHANGE" ss "" "Properties" "Color" mau "")
 (princ)
)

Hope U be fun with this code

  • 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

Mình gửi bạn code này, không quá giống ý "tự động" của bạn

Nhưng khi bạn làm xong, đánh lệnh SFD xong, nó sẽ tự động vạch mặt những dim bạn đã edit :D

Màu bạn có thể thay đổi giá trị vào lisp trong ô (setq mau 5); số màu do bạn chọn nhé

;; Free lisp code from CADViet.com - edit by mathan
(defun c:sfd ( / ss)
 (setq ss (ssget '((0 . "DIMENSION")
 	(-4 . "<NOT")
 	(-4 . "<OR")
 	(1 . "")
 	(1 . "*<>*")
 	(-4 . "OR>")
 	(-4 . "NOT>")
)
)
 )
 ;(sssetfirst ss ss)
 (setq mau 5);; Ban nhap mau vao day
 (command "_CHANGE" ss "" "Properties" "Color" mau "")
 (princ)
)

Hope U be fun with this code

nhưng khi đi in thì sao hả bác k có cách gán màu à.hoặc là 1 lisp nhận biết dim đã bị sửa

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

Bạn dùng thử chưa? Dùng rồi bạn sẽ biết

Dùng lệnh Find tìm chuỗi "~*<>*"

Dùng chức năng Select_All của lệnh Find

Chọn được rồi -> Muốn đổi gì thì cũng sẽ đơn giản rồi

Ra tiệm in mà quên mang theo Lisp thì sử dụng cái này bạn nhé! :D

  • 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

nhưng khi đi in thì sao hả bác k có cách gán màu à.hoặc là 1 lisp nhận biết dim đã bị sửa

LISP mình viết cho bạn là tìm DIM đã bị edit và đồi màu cho nó đấy thui.

Mình thiết nghĩ, ra đến quán in rùi thì chỉ in thui, chứ đặt màu dim sửa lúc đó phỏng có tác dụng gì đâu nhỉ?

Vì khi ra đến quán rùi, thì chỉ in thui.he2 :D

  • 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

Đăng nhập để thực hiện theo  

×