Nhờ sửa lisp chặt đoạn thằng và xin Linetype đường hàn

[888x888x888 2]

- Mình có cái lisp chặt đoạn thẳng tại 1 điểm, nhưng hạn chế là chọn 1 đoạn thẳng nó chỉ cho chặt 1 lần, muốn chặt thêm phải chọn lại đối tượng, mình nhờ các pro viết thêm cho mình cho chặt thoải mái đc ko ạ.

- Thứ 2 là cái linetype đường hàn mình search toàn dạng TTTTTTTTTT nhưng mình chỉ muốn có dạng  I I I I I I I I I I I I I I (nghĩa là ko có đoạn thẳng nối, chỉ có mấy cái gạch thôi ấy ạ) bác nào có ko ạ

- Cho mình hỏi thêm nữa là có lisp nào từ text mà vẽ được Dim ko ạ, Ví dụ mình có cái text là 1,2 mình tích vào text xong tích 1 điểm gốc là vẽ được đoạn thẳng dài 1,2 ấy ạ

Cảm ơn các bác rất nhiều ạ

1.Cat doan thang BF.lsp

[Doan Van Ha 3212]

Chặt câu hỏi làm 3 khúc ở 3 chủ đề có khi dễ hơn. Vừa cá vừa rau vừa gạo khó hè.

[888x888x888 2]

5 phút trước, Doan Van Ha đã nói:

Chặt câu hỏi làm 3 khúc ở 3 chủ đề có khi dễ hơn. Vừa cá vừa rau vừa gạo khó hè.

Mình sợ làm loãng diễn đàn ạ :D

[ketxu 3023]

1 - Cắt liên tục bạn search lisp break của bác Tue_NV đã có

2 - Đường hàn đơn giản đó tự bạn sử dụng các lệnh make shaoe, make linetype thuộc bộ Express đã làm được rồi

3 - Đoạn thẳng thiếu phương hướng, chỉ có điểm gốc và chiều dài thì sẽ có n nghiệm. Nếu đáp ứng đủ phương hướng nữa thì viết lisp là ok

 

[888x888x888 2]

10 phút trước, ketxu đã nói:

1 - Cắt liên tục bạn search lisp break của bác Tue_NV đã có

2 - Đường hàn đơn giản đó tự bạn sử dụng các lệnh make shaoe, make linetype thuộc bộ Express đã làm được rồi

3 - Đoạn thẳng thiếu phương hướng, chỉ có điểm gốc và chiều dài thì sẽ có n nghiệm. Nếu đáp ứng đủ phương hướng nữa thì viết lisp là ok

Cảm ơn bác

2. Đường hàn mình cũng dùng make linetype mà nó toàn ra dấu chấm thế này ............................. ( ko biết bị lỗi gì)

3. Chỉ cần phương thẳng đứng thôi, Mình vẽ trắc dọc ấy mà :D 

[ketxu 3023]

23 giờ trước, 888x888x888 đã nói:

Cảm ơn bác

2. Đường hàn mình cũng dùng make linetype mà nó toàn ra dấu chấm thế này ............................. ( ko biết bị lỗi gì)

3. Chỉ cần phương thẳng đứng thôi, Mình vẽ trắc dọc ấy mà :D 

2. Chắc thao tác sai :)) 
3. Bạn đã đưa yêu cầu kiểu thế nào cũng được thì code cũng nhanh thôi :D
 

(defun c:chabietattengi(/ d p)
(and 
	(setq d (distof (vl-string-translate "," "." (cdr (assoc 1 (entget (car(entsel "Chon DText nhe, dung chon gi khac"))))))))
	(setq p (getpoint "\nPick diem ben duoi nhe, dung pick diem ben tren :"))
	(entmake (list (cons 0 "LINE")(cons 10 p) (cons 11 (polar p (* pi 0.5) d))))
))

 

[duy782006 1602]

File đường hàn. Cả nguyên liệu và thành phẩm. Lưu ý cái nét đứng là shape 

duonghan.dwg

[888x888x888 2]

Vào lúc 25/4/2019 tại 23:08, ketxu đã nói:

2. Chắc thao tác sai :)) 
3. Bạn đã đưa yêu cầu kiểu thế nào cũng được thì code cũng nhanh thôi :D
 

• chabietattengi.lsp
  
• [✎]
   

(defun c:chabietattengi(/ d p)
(and 
	(setq d (distof (vl-string-translate "," "." (cdr (assoc 1 (entget (car(entsel "Chon DText nhe, dung chon gi khac"))))))))
	(setq p (getpoint "\nPick diem ben duoi nhe, dung pick diem ben tren :"))
	(entmake (list (cons 0 "LINE")(cons 10 p) (cons 11 (polar p (* pi 0.5) d))))
))

 

Cám ơn bác nha, lisp rất hay, nếu rảnh bác làm thêm cho em cái tỷ lệ của line nữa (ví dụ text là 1 thì line dài 10 ấy ạ) thì quá tốt luôn ạ. Thank bác trước

14 giờ trước, duy782006 đã nói:

File đường hàn. Cả nguyên liệu và thành phẩm. Lưu ý cái nét đứng là shape 

duonghan.dwg

Cảm ơn các bác nha