Chuyển đến nội dung
Diễn đàn CADViet
Đăng nhập để thực hiện theo  
Người theo dõi 0
dauquangminh

[Yêu cầu]Lisp dãn cách các text đè lên nhau với khoảng cách cho trước

Bởi dauquangminh , trong AutoLisp

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

khanhmytho    1

khanhmytho
Đã đăng

Lisp này hay quá rất là hữu ích góp phần giảm thời gian chỉnh sửa rất nhiều, bên cạnh đó thì còn một điểm nhỏ là trước khi sử dụng thì hộp truy bắt điểm (OSNAP) vẫn ok nhưng khi đánh lệnh thì các truy bắt điểm lại bị "văng" hết, sau khi chỉnh sủa xong thì lại vào OSNAP để chọn lại truy bắt điểm, không biết là tác giả và các anh trên frum có thể khắc phục điều này được không ạh. Xin chân thành cám ơn tác giả về lisp này :D

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

Polyline    19

Polyline
Đã đăng

Về vấn đề truy bắt điểm trong Lisp, để tắt chế độ truy bắt điểm, cách làm thông thường là:

(setq oldos (getvar "osmode"))
(setvar "osmode" 0)
(progn ....)
(setvar "osmode" oldos)

 
Tuy nhiên, nếu phần thân chương trình gặp lỗi, dẫn đến lệnh trả về (setvar "osmode" oldos) không được thực hiện, khi đó, toàn bộ chế độ truy bắt điểm trước khi chạy lệnh đều bị xóa sạch.
Mình thì làm theo cách khác


(if (< (getvar "osmode") 16384)
(progn
(setq osmode-old (getvar "osmode"))
(setvar "osmode" (+ (getvar "osmode") 16384)));Turn OSMODE off
(setq osmode-old nil))
(progn ....)
(if osmode-old (setvar "osmode" osmode-old));Restore OSMODE


Tác dụng của nó là tắt chế độ bắt điểm giống hệt như nhấn nút F3 trên bàn phím. Nếu gặp sự cố trong thân chương trình, người dùng dễ dàng phục hồi chế độ bắt điểm cũ bằng cách nhấn phím F3.



			
		


		

			
				
					

	
	
		

			
				
				

					
						

	
	
    
	
		
			
			
  • 
				
					
				
						
							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

				

	

			
		

	



	



					
				
					
					
					







	

	

		

			
phamthanhbinh
			  

	
		
	
			 3.146
	
		
	

		

		

			


	
		phamthanhbinh
	

		

	

	
	

		



	

	

		

			
		


		

			Đã đăng  
			
				
				
			
		

	


	


	

		
		

			

Lisp này hay quá rất là hữu ích góp phần giảm thời gian chỉnh sửa rất nhiều, bên cạnh đó thì còn một điểm nhỏ là trước khi sử dụng thì hộp truy bắt điểm (OSNAP) vẫn ok nhưng khi đánh lệnh thì các truy bắt điểm lại bị "văng" hết, sau khi chỉnh sủa xong thì lại vào OSNAP để chọn lại truy bắt điểm, không biết là tác giả và các anh trên frum có thể khắc phục điều này được không ạh. Xin chân thành cám ơn tác giả về lisp này :D


Hề hề hề,


Thực tế thì trong lisp đã trả osnap về giá trị ban đầu.


Song rất có thể như bác Polyline đã nhận xét, quá trình thao tác lisp có lỗi chi đó để mà lisp bị đứt gánh giữa đường. Giá mà bạn cho biết cái gánh ấy nó gẫy chỗ nào thì hay quá. Bởi mình chưa rõ cách xài lisp của bạn, Còn khi mình test với vài trường hợp đơn lẻ thì chưa phát hiện ra lỗi.


hề hề hề,...



			
		


		

			
				
					

	
	
		

			
				
				

					
				

			
			
			
		

	


				
			
			
    
				
					
					
					
				
				
  • 
					
				
    • 
			

		


		
			

		
	


	

		

			
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

				

	

			
		

	



	



					
				
					
					
					







	

	

		

			
khanhmytho
			  

	
		
	
			 1
	
		
	

		

		

			


	
		khanhmytho
	

		

	

	
	

		



	

	

		

			
		


		

			Đã đăng  
			
				
				
			
		

	


	


	

		
		

			

_Cám ơn bạn Polyline  rất nhiều  như vậy code của lisp sẽ cập nhật thêm và hoàn thiện như sau, midnh đã sử dụng và rất Ok. Khi kết thúc lệnh sẽ tự động trả về cá chế độ truy bắt điểm ban đầu :D 
 
 


(defun c: dkctd (/ oldos p d enlst i ht cn cd ort)
(vl-load-com)
(setq oldos (getvar "osmode"))
(setvar "osmode" (+ (getvar "osmode") 16384))
(setq osmode-old nil)
(setq ;;;;; p (getpoint "\n Chon diem chuan ")
        d (getreal "\n Nhap khoang cach chuan: ") )
(prompt "\n Chon nhom text can sap xep")
(setq  enlst (acet-ss-to-list (ssget (list (cons 0 "text") ))))
(while enlst
   	(command "undo" "be")
   	(setq i 0)
   	(setq enlst (vl-sort enlst '(lambda (x y) (< (caar (acet-ent-geomextents x)) (caar (acet-ent-geomextents y))))))
   	(setq ort (getstring "\n Chon huong gian text <T or P>: "))
   	(if (= (strcase ort) "T")
   	(setq p (if (or (/= (cdr (assoc 72 (entget (car enlst)))) 0) (/= (cdr (assoc 73 (entget (car enlst)))) 0))
                        (cdr (assoc 11 (entget (car enlst)))) (cdr (assoc 10 (entget (car enlst))))  )
       		cn (cdr (assoc 72 (entget (car enlst))))
       		cd (cdr (assoc 73 (entget (car enlst))))
   	)
   	(setq p (if (or (/= (cdr (assoc 72 (entget (last enlst)))) 0) (/= (cdr (assoc 73 (entget (last enlst)))) 0))
                        (cdr (assoc 11 (entget (last enlst)))) (cdr (assoc 10 (entget (last enlst))))  )
       		cn (cdr (assoc 72 (entget (last enlst))))
       		cd (cdr (assoc 73 (entget (last enlst))))
               enlst (reverse enlst)
   	)
   	)
   	(foreach en enlst
            (setq encode (entget en)
                    ht (cdr (assoc 40 encode))                  
                    encode (subst (cons 72 cn) (assoc 72 encode) encode)
                    encode (subst (cons 73 cd) (assoc 73 encode) encode)                  
     		)
     		(if (= (strcase ort) "T")
         		(setq  encode (subst (cons 11 (list (+ (car p)  (* i (+ d ht))) (caddr (assoc 11 encode)))) (assoc 11 encode) encode))
         		(setq  encode (subst (cons 11 (list (- (car p)  (* i (+ d ht))) (caddr (assoc 11 encode)))) (assoc 11 encode) encode))
     		)
     		(entmod encode)
     		(setq  i (1+ i))
        )
   	;;; (setq ans (getstring "\n Ban muon tiep tuc chinh text <Y or N> : "))
   	;;; (if (= (strcase ans) "Y")
   	;;; 	(progn
         		(prompt "\n Hay chon nhom text can sap xep tiep theo")
         		(setq enlst (acet-ss-to-list (ssget (list (cons 0 "text")))))
(if osmode-old (setvar "osmode" osmode-old))
   	;;; 	)
  	;;; 	(setq enlst nil)
   	;;; )
        (command "undo" "e")
)
(setvar "osmode" oldos)
 
(princ)
)  




			
		


		

			
				
					

	
	
		

			
				
				

					
						

	
	
    
	
		
			
			
  • 
				
					
				
						
							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

				

	

			
		

	



	



					
				
					
					
					







	

	

		

			
khanhmytho
			  

	
		
	
			 1
	
		
	

		

		

			


	
		khanhmytho
	

		

	

	
	

		



	

	

		

			
		


		

			Đã đăng  
			
				
				
			
		

	


	


	

		
		

			



Hề hề hề,


Thực tế thì trong lisp đã trả osnap về giá trị ban đầu.


Song rất có thể như bác Polyline đã nhận xét, quá trình thao tác lisp có lỗi chi đó để mà lisp bị đứt gánh giữa đường. Giá mà bạn cho biết cái gánh ấy nó gẫy chỗ nào thì hay quá. Bởi mình chưa rõ cách xài lisp của bạn, Còn khi mình test với vài trường hợp đơn lẻ thì chưa phát hiện ra lỗi.


hề hề hề,...




Dạ em thêm vô nó Ok rồi anh phamthanhbinh ơi  có thể do nó bị "đá" chỗ nào đó , nhưng mà ok rồi :D 



			
		


		

			
				
					

	
	
		

			
				
				

					
				

			
			
			
		

	


				
			
			
    
				
					
					
					
				
				
  • 
					
				
    • 
			

		


		
	


	

		

			
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

				

	

			
		

	



	



					
				
					
					
					







	

	

		

			
silictoong
			  

	
		
	
			 0
	
		
	

		

		

			


	
		silictoong
	

		

	

	
	

		



	

	

		

			
		


		

			Đã đăng  
			
				
				
			
		

	


	


	

		
		

			
Bác phamthanhbinh và bác khanhmytho ơi.Sao máy em báo load lisp success rồi. Với bản hoàn thiện cuối cùng của bác khanhmytho thì khi em đánh lệnh dkctd thì cad 2007 của em nó báo Unknown command "DKCTD".  Press F1 for help. nhỉ?Lệnh là em viết thường lẫn viết hoa rồi nhé.Em chuyển sang down bản gốc ban đầu của bác phamthanhbinh thì máy nhận lệnh dkctd thì cad nhận bình thường.Nhưng khi chạy thì hàng text vẫn trơ trơ ra đó, không chịu dịch chuyển.Các bác xem lại giùm em với.Dịch chuyển move tay mất công quá.


			
		


		

			
				
					

	
	
		

			
				
				

					
				

			
			
			
		

	


				
			
			
    
				
					
					
					
				
				
  • 
					
				
    • 
			

		


		
	


	

		

			
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

				

	

			
		

	



	



					
				
					
					
					







	

	

		

			
phamthanhbinh
			  

	
		
	
			 3.146
	
		
	

		

		

			


	
		phamthanhbinh
	

		

	

	
	

		



	

	

		

			
		


		

			Đã đăng  
			
				
				
			
		

	


	


	

		
		

			

Bác phamthanhbinh và bác khanhmytho ơi.Sao máy em báo load lisp success rồi. Với bản hoàn thiện cuối cùng của bác khanhmytho thì khi em đánh lệnh dkctd thì cad 2007 của em nó báo Unknown command "DKCTD".  Press F1 for help. nhỉ?Lệnh là em viết thường lẫn viết hoa rồi nhé.Em chuyển sang down bản gốc ban đầu của bác phamthanhbinh thì máy nhận lệnh dkctd thì cad nhận bình thường.Nhưng khi chạy thì hàng text vẫn trơ trơ ra đó, không chịu dịch chuyển.Các bác xem lại giùm em với.Dịch chuyển move tay mất công quá.


Hề hề hề,


Hãy gửi bản vẽ của bạn lên nhé. Có nhẽ các text của bạn là Mtext chă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

				

	

			
		

	



	



					
				
					
					
					







	

	

		

			
ngoclinh.k55cd5
			  

	
		
	
			 0
	
		
	

		

		

			


	
		ngoclinh.k55cd5
	

		

	

	
	

		



	

	

		

			
		


		

			Đã đăng  
			
				
				
			
		

	


	


	

		
		

			

Anh ơi anh có thể giúp em dãn cách các chữ đè lên nhau như trong bản vẽ em up dưới đây không ạ, em đang thiết kế trắc dọc một tuyến đường, em cám ơn a nhiều


 


 http://www.cadviet.com/upfiles/3/136095_aaaaaaaaaaa_1.dwg



			
		


		

			
				
					

	
	
		

			
				
				

					
				

			
			
			
		

	


				
			
			
    
				
					
					
					
				
				
  • 
					
				
    • 
			

		


		
	


	

		

			
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

				

	

			
		

	



	



					
				
					
					
					







	

	

		

			
phamthanhbinh
			  

	
		
	
			 3.146
	
		
	

		

		

			


	
		phamthanhbinh
	

		

	

	
	

		



	

	

		

			
		


		

			Đã đăng  
			
				
				
			
		

	


	


	

		
		

			



Anh ơi anh có thể giúp em dãn cách các chữ đè lên nhau như trong bản vẽ em up dưới đây không ạ, em đang thiết kế trắc dọc một tuyến đường, em cám ơn a nhiều


 


 http://www.cadviet.com/upfiles/3/136095_aaaaaaaaaaa_1.dwg




Hề hề hề,


Bạn đã dùng thử lisp phía trên chưa?? Nếu rồi thì có đạt không?? Và không đạt chỗ nào???



			
		


		

			
				
					

	
	
		

			
				
				

					
						

	
	
    
	
		
			
			
  • 
				
					
				
						
							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

				

	

			
		

	



	



					
				
					
					
					







	

	

		

			
ngoclinh.k55cd5
			  

	
		
	
			 0
	
		
	

		

		

			


	
		ngoclinh.k55cd5
	

		

	

	
	

		



	

	

		

			
		


		

			Đã đăng  
			
				
				
			
		

	


	


	

		
		

			

Em đã thử lisp trên và sau khi sử dụng lisp các chữ nó không theo ý muốn của em, nó chạy thành 1 cột dài ( em diễn đạt không được tốt ). Em muốn chỉ những chỗ nào nó đè lên nhau mới dãn cách thôi ạ, đa phần là dãn cách ngang, bác xem giúp em được không ạ,e cảm ơn


Hề hề hề,



			
		


		

			
				
					

	
	
		

			
				
				

					
				

			
			
			
		

	


				
			
			
    
				
					
					
					
				
				
  • 
					
				
    • 
			

		


		
	


	

		

			
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

				

	

			
		

	



	



					
				
					
					
					







	

	

		

			
phamthanhbinh
			  

	
		
	
			 3.146
	
		
	

		

		

			


	
		phamthanhbinh
	

		

	

	
	

		



	

	

		

			
		


		

			Đã đăng  
			
				
				
			
		

	


	


	

		
		

			



Em đã thử lisp trên và sau khi sử dụng lisp các chữ nó không theo ý muốn của em, nó chạy thành 1 cột dài ( em diễn đạt không được tốt ). Em muốn chỉ những chỗ nào nó đè lên nhau mới dãn cách thôi ạ, đa phần là dãn cách ngang, bác xem giúp em được không ạ,e cảm ơn


Hề hề hề,




Hề hề hề,


Lisp này cho phép bạn chọn các nhóm text cần sắp xếp lại chứ đâu phải quét một lần tất cả các text. Vì vậy bạn có thể chọn lựa lần lượt các nhóm text trùng nhau để lisp làm việc.


Có vài điều cần lưu ý bạn như sau:


1/- trên bản vẽ của bạn có rất nhiều text có nội dung hoàn toàn giống nhau nằm đè lên nhau. Bởi vậy bạn nên loại trừ các text này chỉ để lại mỗi giá trị một text rồi mới chạy lisp


2/- Do lisp sẽ sắp xếp các text trong nhó theo vị trí của text đầu tiên về bên trái hay bên phải nên bạn chỉ nên chọ mỗi lần một nhóm text đè lên nhau để sắp xếp lại, sau khi lisp sắp xếp xong nhóm này thì chọn tiếp nhóm khác. Thao tác này giúp bạn kiểm soát được chặt chẽ việc sắp xếp để tránh nhầm lẫn trong quá trình này.


3/- Bạn nên dựa vào vị trí của từng nhóm text trên bản vẽ để lựa chon dãn cách về bên trái hay bên phải để việc bố trí text trên bản vẽ được đẹp mắt.


4/- bạn cũng nên nhò trước số lượng của các text trong mỗi nhóm để lựa chọn khoảng cách dãn text cho hợp lý. Khoảng cách này sẽ không thay đổi trong một lần chạy lisp


 


Hãy thử lại nhé.



			
		


		

			
				
					

	
	
		

			
				
				

					
				

			
			
			
		

	


				
			
			
    
				
					
					
					
				
				
  • 
					
				
    • 
			

		


		
			

		
	


	

		

			
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

				

	

			
		

	



	



					
				
					
					
					







	

	

		

			
dunguss3581
			  

	
		
	
			 3
	
		
	

		

		

			


	
		dunguss3581
	

		

	

	
	

		



	

	

		

			
		


		

			Đã đăng  
			
				
				
			
		

	


	


	

		
		

			



Hề hề hề,


Vì topic trôi đi nhanh quá nên mình không kịp xem yêu cầu của bạn. Vấn đề bạn nêu không khó và hoàn toàn có thể làm được. Tuy nhiên như mình đã nói, trong khi chưa có bạn hoàn toàn vẫn có thể xài lisp cũ kèm theo thằng move sau khi chạy lisp mà. Như vậy vừa được việc vừa đỡ sốt suột bạn ạ.


Hãy chờ chút xíu, mình sẽ xem và bổ sung điều bạn cần.


 


A, đây rồi, lisp nóng......


 


 


 
;;;;;;Sap xep cac text dung theo khoang cach ngang nhap vao. Co hai lua chon: sap xep tu trai qua phai va nguoc lai
 
 
(defun c:dkctd (/ oldos p d enlst i ht cn cd ort)
(vl-load-com)
(setq oldos (getvar "osmode"))
(setvar "osmode" 0)
(setq ;;;;; p (getpoint "\n Chon diem chuan ")
        d (getreal "\n Nhap khoang cach chuan: ") )
(prompt "\n Chon nhom text can sap xep")
(setq  enlst (acet-ss-to-list (ssget (list (cons 0 "text") ))))
(while enlst
   	(command "undo" "be")
   	(setq i 0)
   	(setq enlst (vl-sort enlst '(lambda (x y) (< (caar (acet-ent-geomextents x)) (caar (acet-ent-geomextents y))))))
   	(setq ort (getstring "\n Chon huong gian text <T or P>: "))
   	(if (= (strcase ort) "T")
   	(setq p (if (or (/= (cdr (assoc 72 (entget (car enlst)))) 0) (/= (cdr (assoc 73 (entget (car enlst)))) 0))
                        (cdr (assoc 11 (entget (car enlst)))) (cdr (assoc 10 (entget (car enlst))))  )
       		cn (cdr (assoc 72 (entget (car enlst))))
       		cd (cdr (assoc 73 (entget (car enlst))))
   	)
   	(setq p (if (or (/= (cdr (assoc 72 (entget (last enlst)))) 0) (/= (cdr (assoc 73 (entget (last enlst)))) 0))
                        (cdr (assoc 11 (entget (last enlst)))) (cdr (assoc 10 (entget (last enlst))))  )
       		cn (cdr (assoc 72 (entget (last enlst))))
       		cd (cdr (assoc 73 (entget (last enlst))))
               enlst (reverse enlst)
   	)
   	)
   	(foreach en enlst
            (setq encode (entget en)
                    ht (cdr (assoc 40 encode))                  
                    encode (subst (cons 72 cn) (assoc 72 encode) encode)
                    encode (subst (cons 73 cd) (assoc 73 encode) encode)                  
     		)
     		(if (= (strcase ort) "T")
         		(setq  encode (subst (cons 11 (list (+ (car p)  (* i (+ d ht))) (caddr (assoc 11 encode)))) (assoc 11 encode) encode))
         		(setq  encode (subst (cons 11 (list (- (car p)  (* i (+ d ht))) (caddr (assoc 11 encode)))) (assoc 11 encode) encode))
     		)
     		(entmod encode)
     		(setq  i (1+ i))
        )
   	;;; (setq ans (getstring "\n Ban muon tiep tuc chinh text <Y or N> : "))
   	;;; (if (= (strcase ans) "Y")
   	;;; 	(progn
         		(prompt "\n Hay chon nhom text can sap xep tiep theo")
         		(setq enlst (acet-ss-to-list (ssget (list (cons 0 "text")))))
   	;;; 	)
   	;;; 	(setq enlst nil)
   	;;; )
        (command "undo" "e")
)
(setvar "osmode" oldos)
 
(princ)
)            





LISP RẤT HỮU ÍCH VÀ HAY NHƯNG NHỜ BÁC PHAMTHANHBINH CHỈNH GIÚP BIẾN KHOẢNG CÁCH "d" VÀ BIẾN TRÁI "t" PHẢI "p" NHẬN GIÁ TRỊ NHẬP TRƯỚC ĐÓ NẾU THỰC HIỆN NHẤN ENTER CÒN NẾU NHẬP GIÁ TRỊ KHÁC THÌ BIẾN SẼ NHẬN GIÁ TRỊ MỚI. VẬY ĐỠ MẤT NHIỀU THAO TÁC NHẬP LIỆU. OK?



			
		


		

			
				
					

	
	
		

			
				
				

					
						

	
	
    
	
		
			
			
  • 
				
					
				
						
							Vote giảm
						
						
							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  
	
	

	

		
			Người theo dõi
			0
		
	




		

		

			



		

	







	

		
			
				Về Đầu Trang
				AutoLisp
			
		
	

	




	

	

	




						


					

					


					

				

			

			
		

		
		


	×