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

[doanvantien86 1]

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ế.

[doanvantien86 1]

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

[Detailing 281]

Bạn nên tập quản lý đường nét, màu sắc, kích thước nét in theo LAYER dẽ tiện hơn nhiều.

[ketxu 3019]

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 :)

[nguyentuyen6 130]

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" ""))
)

[everyman134 0]

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?