Hỗ trợ viết lisp

[jimmy12 0]

Chào các bác.

  Em là dân cơ khí, muốn biểu thị lỗ bulong như hình mà cứ phải dim để edit, bác nào cao tay viết cho e cái lisp hoặc có thể hướng dẫn em viết không ạ

  Em muốn gõ lênh M8 -> kích vào dim -> hiển thị luôn là M8x20,

Cảm ơn các bác đã đọc.

[Doan Nguyen Van 489]

8 giờ trước, jimmy12 đã nói:

Chào các bác.

  Em là dân cơ khí, muốn biểu thị lỗ bulong như hình mà cứ phải dim để edit, bác nào cao tay viết cho e cái lisp hoặc có thể hướng dẫn em viết không ạ

  Em muốn gõ lênh M8 -> kích vào dim -> hiển thị luôn là M8x20,

Cảm ơn các bác đã đọc.

Inbox zalo 0976379894 nhé bạn

[DungNguyen685 40]

Vào lúc 22/4/2021 tại 21:44, jimmy12 đã nói:

Chào các bác.

  Em là dân cơ khí, muốn biểu thị lỗ bulong như hình mà cứ phải dim để edit, bác nào cao tay viết cho e cái lisp hoặc có thể hướng dẫn em viết không ạ

  Em muốn gõ lênh M8 -> kích vào dim -> hiển thị luôn là M8x20,

Cảm ơn các bác đã đọc.

(defun c:M8 (/)
(if (setq ss (ssget"_:L" (list (cons 0 "DIMENSION")) ))
		(progn  
				(foreach ent (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))
					(vla-put-TextOverride (vlax-ename->vla-object ent)
						(strcat "M8x20")
					)
				)
	(princ)  
		)
	)
 )

 

[DungNguyen685 40]

Vừa xong, DungNguyen685 đã nói:

(defun c:M8 (/)
(if (setq ss (ssget"_:L" (list (cons 0 "DIMENSION")) ))
		(progn  
				(foreach ent (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))
					(vla-put-TextOverride (vlax-ename->vla-object ent)
						(strcat "M8x20")
					)
				)
	(princ)  
		)
	)
 )

 

Có thể nhanh hơn tí nữa là gõ lệnh dim luôn ra M8x20, tiết kiệm 1 thao tác dim.

[jimmy12 0]

Đầu tiền là e cảm ơn bác đã giúp đỡ, nhưng giờ e có thể hỏi bác thêm là giờ em muốn thêm như: M5x12, M6x15..... và còn nhiều cái nữa thì thêm vào đầu ạ. Cảm ơn bác đã đọc!

[Danh Cong 422]

9 giờ trước, jimmy12 đã nói:

Đầu tiền là e cảm ơn bác đã giúp đỡ, nhưng giờ e có thể hỏi bác thêm là giờ em muốn thêm như: M5x12, M6x15..... và còn nhiều cái nữa thì thêm vào đầu ạ. Cảm ơn bác đã đọc!

 

Miễn là bạn đã học các chữ trong bảng chữ cái thì bạn có thể tìm thấy nó bằng cách mở lisp lên :))

(strcat "M8x20")