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

Các Pro Giúp em viết lisp này nhé

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

My link. Ở hình một e có 2 đường. 1 là đường tâm 2 là đường khuất. bây giờ em muốn đổi ĐT thành ĐK thì dùng lệnh match hoặc vào layer đổi làm như thế hơi lâu. ở hình 2 e chỉ có mỗi ĐT thôi bây giờ em muốn đổi thành đường khuất thì phải tìm một đường khuất trên bản vẽ rồi dùng lệnh match, hoặc vào layer( thế này càng lâu hơn) và em cũng muốn đổi một nét bất kỳ nào trong hình vẽ thì e làm cách đó lâu quá. em có ý tưởng thế này. Các bác viết 1 đoạn lisp đặt nét khuất là 1 chẳng hạn khi. Đường tâm là 2 chẳng hạn và nhiều đường tương tự nữa. khi các bác muốn đổi nét nào đó thành nét khuất thì chỉ việc ấn 1 sau đó enter nó thành nét khuất luôn. như thế nhanh hơn nhiều không. Các bác giúp em nhé. với các nét khác cũng tương tự như thế.

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

Em sorry viết chưa cụ thể. khi các bác muốn đổi một nét nào thành nét khuất chẳng hạn, thì các bác pick vào nét đó và ấn 1 enter thì nó thành nét khuất luôn, ok không

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ó tay với bạn, lập chủ đề bên kia rồi chuyển yêu cầu sang bên này....Thật không hay không hay chút nào :)

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 thử cái này xem:

Cái này là dùng phím 1 để chuyển đối tượng được chọn về layer: THAY

Bạn muốn thêm các nét khác thì làm tương tự

 

(defun c:1 (/ lyr i)
(princ "\nChon doi tuong muon chuyen ve net: Thay")(princ)
(Taolayer)
(setq ss (ssget)
	   i 0)
(while (< i (sslength ss))
  (setq lyr (ssname ss i))
  (entmod (subst (cons 8 "thay") (assoc 8 (entget lyr)) (entget lyr)))
  (setq i (1+ i))
);_ end while
);_ end defun
;;;;;;;;;;;;;;;;;;
(defun Taolayer() 
(setq tbl (tblsearch "layer" "thay"))
(if (= tbl nil) (command "-layer" "n" "thay" "c" "2" "thay" ""))
)

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 cần tính thể tích trong 3dsmax có lệnh nào không? mình chuyển sang autocad nhưng nó không phải là hình khối có cách nào chuyển thành khối để tính thể tích không?

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  

×