Lệnh Trim CAD đặc biệt- làm thế nào để ấn phần dài cắt phần ngắn?

[gunner1605 1]

Xin các cao thủ ở diễn đàn chuyên về autocad lớn nhất việt nam một chiêu:

 

Tôi muốn cắt trim cái phần thừa 5 mm của 1 Line ( do quá trình vẽ bắt điểm nó lệch 1  chút xíu - 5 mm ), mà tôi ko muốn zoom lại để cắt

Tôi có lần gặp 1 cao thủ mà sau khi ấn lệnh gì đó ( cứ coi như có lệnh khác ngoài lệnh trim đi ) rồi chọn đường giới hạn cắt rồi ấn phần line dài --> phần line thừa ngắn tự bị cắt đi-->rút ngắn time để zoom to ra để chọn phần thừa nhỏ để cắt

Hình vẽ bên dưới- XIN CHÂN THÀNH CẢM ƠN.

[Doan Van Ha 3.191]

Ý tưởng ngộ nghĩnh này thật là hay. Đỡ tốn công zoom, nhiều khi phải mất vài lần zoom. Vote!

Cad thì hình như chịu. Lisp thì khả dĩ.

[Tue_NV 3.912]

Chẳng cần dùng đường giới hạn cắt. Lệnh Lengthen kéo ngắn đoạn -5 không cần đường giới hạn cắt.,không cần zoom

[NguyenNgocSon 43]

Trong trường hợp không muốn mất công đo cái đoạn thừa ra nên có PA khác ngoài lengthen :)

[Tue_NV 3.912]

Trong trường hợp không muốn mất công đo cái đoạn thừa ra nên có PA khác ngoài lengthen :)

 

Có đường giới hạn cắt

Nếu không biết thừa ra bao nhiêu thì có thể Extrim.

Nếu Extrim thấy "nguy hiểm" quá thì Break  :lol:

Cả Extrim và Break đều hổng cần đến "DOM"  :lol:

[Doan Van Ha 3.191]

Chẳng cần dùng đường giới hạn cắt. Lệnh Lengthen kéo ngắn đoạn -5 không cần đường giới hạn cắt.,không cần zoom

 

 

Có đường giới hạn cắt

Nếu không biết thừa ra bao nhiêu thì có thể Extrim.

Nếu Extrim thấy "nguy hiểm" quá thì Break  :lol:

Phiêu! Length không được. Extrim không ổn. Break khác gì?

Đừng zoom mới là điều chủ topic mong muốn.

Bạn NNS có PA khác?

[Tue_NV 3.912]

Phiêu! Length không được. Extrim không ổn. Break khác gì?

Đừng zoom mới là điều chủ topic mong muốn.

Bạn NNS có PA khác?

 

Tại sao lengthen không được?

Extrim không ổn sợ dính chấu mấy thèn khác. Sử dụng trong TH đường giới hạn cắt chỉ cắt đối tượng mong muốn

Break không sử dụng Zoom. Break 2 điểm điểm thứ nhất bắt giao điểm. Điểm thứ hai chính là điểm phía cần cắt.

[Doan Van Ha 3.191]

Giả dụ bài toán có 100 em cần cắt bởi 1 dao. 100 em này có thể cong/thẳng và đoạn dư cực nhỏ và chưa biết.

Trim phần dài của 100 em đó rất đơn giản, còn length+extrim+break thì phải lập lại bao nhiêu lần?

Nếu có lệnh "trim ngược" - tạm gọi như vậy, để trim tất cả phần ngắn thì hay quá chứ nhỉ?

[NguyenNgocSon 43]

Phiêu! Length không được. Extrim không ổn. Break khác gì?

Đừng zoom mới là điều chủ topic mong muốn.

Bạn NNS có PA khác?

Trước mình cũng có 1 code VBA làm được điều này. Để mình tìm lại rồi Code

Nó hoạt động như sau:

1.Chọn PL

2.Chọn các đối tượng line => Tìm giao điểm của các đối tượng trong SSet với PL

3.Update lại các line cắt qua

[Tue_NV 3.912]

Giả dụ bài toán có 100 em cần cắt bởi 1 dao. 100 em này có thể cong/thẳng và đoạn dư cực nhỏ và chưa biết.

Trim phần dài của 100 em đó rất đơn giản, còn length+extrim+break thì phải lập lại bao nhiêu lần?

Nếu có lệnh "trim ngược" - tạm gọi như vậy, để trim tất cả phần ngắn thì hay quá chứ nhỉ?

 

Xin bác đó...... , không được với chậm là 2 cái khác nhau. Nếu rứa thì Extrim là được.....

Yêu cầu : chỉ làm có 1 LINE  :D

[Doan Van Ha 3.191]

Trước mình cũng có 1 code VBA làm được điều này. Để mình tìm lại rồi Code

Nó hoạt động như sau:

1.Chọn PL

2.Chọn các đối tượng line => Tìm giao điểm của các đối tượng trong SSet với PL

3.Update lại các line cắt qua

Đỏ: trim có thể là line, pline, spline... >> update nó lại là khó nhằn lắm.

[Doan Van Ha 3.191]

Xin bác đó...... , không được với chậm là 2 cái khác nhau. Nếu rứa thì Extrim là được.....

Yêu cầu : chỉ làm có 1 LINE  :D

Xin bác luôn... ép dầu ép mỡ chứ ai nỡ ép LINE! :lol:

[Tue_NV 3.912]

Extrim là xong mà, ép chi đâu bác?

[Doan Van Ha 3.191]

Extrim là xong mà, ép chi đâu bác?

Ngộ nhỡ 2 bên con dao đều có đối tượng cắt qua (ví dụ 3), trong khi ta chỉ muốn trim 2 em, thì nó hào phóng chơi với cả 3 em?

[NguyenNgocSon 43]

Đỏ: trim có thể là line, pline, spline... >> update nó lại là khó nhằn lắm.

Với Line mình sử lý được. còn Pline,spile chắc khó hơn vì mình dùng VBA :)

[dinhvantrang 151]

nếu chỉ là các đường Line ko thì vấn đề gì.Cái này có thể giải quyết bằng VBA được,nếu đối tượng khác Line thì tôi chưa thử.

Phương án của mình trong VBA là,tìm giao điểm giữa đường cần cắt  và đường giới hạn,so sánh 2 phần,nếu phần nào ngắn hơn thì Delete nó đi thôi.

[Tue_NV 3.912]

Ngộ nhỡ 2 bên con dao đều có đối tượng cắt qua (ví dụ 3), trong khi ta chỉ muốn trim 2 em, thì nó hào phóng chơi với cả 3 em?

 

Ví dụ 3 là ví dụ mô bác?

Quan niệm lưỡi dao cắt qua chổ nào thì nó cắt qua chổ đó thôi, Lưỡi dao chỉ muốn chơi với 2 em thôi, bác ép nó chơi với cả 3 em mần chi bác? 

[HuuThu_TanKhanh 4]

đơn giản dùng lệnh F và nhập R=0

[Doan Van Ha 3.191]

Ví dụ 3 là ví dụ mô bác?

Quan niệm lưỡi dao cắt qua chổ nào thì nó cắt qua chổ đó thôi, Lưỡi dao chỉ muốn chơi với 2 em thôi, bác ép nó chơi với cả 3 em mần chi bác? 

Giả sử con dao là line thẳng đứng. Có 2 line nằm ngang bị dao này cắt. Khi đó extrim thì chọn phía bên nào, trong khi user chỉ muốn trim 1 line thôi.

[phamthanhbinh 3.146]

Với Line mình sử lý được. còn Pline,spile chắc khó hơn vì mình dùng VBA :)

Hề hề hề, 

Tuy chưa viết thử, song mình nghĩ như ri không biết có ổn không, mong các bác soi xét.

1/- Do đã có con dao nên có thể quy định rằng khi pick một diểm p thì điểm chọn sẽ là p' đối xứng với p qua con dao đó.

2/- Như vậy có thể dùng lisp để chơi thằng cu này sát gốc được.

[Doan Van Ha 3.191]

Hề hề hề, 

Tuy chưa viết thử, song mình nghĩ như ri không biết có ổn không, mong các bác soi xét.

1/- Do đã có con dao nên có thể quy định rằng khi pick một diểm p thì điểm chọn sẽ là p' đối xứng với p qua con dao đó.

2/- Như vậy có thể dùng lisp để chơi thằng cu này sát gốc được.

Một con dao lúc cong lúc thẳng có khi dùi thì lấy đối xứng kiểu răng bác ơi.

[ketxu 2.984]

Chết thật, cái yêu cầu theo câu chữ của chủ thớt thì đơn giản rồi, mở rộng cho họ nhà Line mới phực tạp hơn

 

Chỉ không hiểu câu này :

Xin các cao thủ ở diễn đàn chuyên về autocad lớn nhất việt nam một chiêu:

[nataca 554]

Có phải ý bạn là thế này? 

 

(defun C:TRT (/ DTCAT ENT P P1 P2 PG ENT1 LENT PD) ;;;Trim Trai chieu
	(prompt "\nChon doi tuong cat")
	(setq dtcat (ssget))
	(prompt "\nChon doi tuong bi cat")
	(setq	p			(getpoint)
				Lent	(C_S2L (ssget "C" p (getcorner p)))
	)
	(foreach ent Lent
		(setq pg		(car (INTS_2ENT (ssname dtcat 0) ent)))
		(if (eq (DXF 0 ent) "LINE")
			(progn
				(setq ent1 	(MK_PLINE1 (list (DXF 10 ent) (DXF 11 ent)))
							p1 		(car (P_VPL ent1))
							p2		(last (P_VPL ent1))
							pd		(vlax-curve-getClosestPointTo ent1 p)
				)
				(entdel ent1)
			)
			(setq p1 		(car (P_VPL ent))
						p2		(last (P_VPL ent))
						pd			(vlax-curve-getClosestPointTo ent p)
			)
		)
		(if (equal (AG_3P pg pd p1) 0 0.0001)
			(setq pd p2)
			(setq pd p1)
		)
		(if (eq (DXF 0 ent) "LINE")
			(vl-cmdf "trim" dtcat "" pd  "")
			(entmod (subst (cons 10 pg) (cons 10 pd) (entget ent)))
		)
	)
)
(defun INTS_2ENT (ent1 ent2 / ob1 ob2 g kq sd)
	(setq	ob1	(vlax-ename->vla-object ent1)
				ob2	(vlax-ename->vla-object ent2)
	)
	(setq	g	(vlax-variant-value
						(vla-IntersectWith ob1 ob2 acExtendNone)
					)
	)
	(if	(/= (vlax-safearray-get-u-bound g 1) -1)
		(setq g (vlax-safearray->list g))
		(setq g nil)
	)
	(if	g
		(progn
			(setq	kq nil
						sd (fix (/ (length g) 3))
			)
			(repeat	sd
				(setq	kq (append kq (list (list (car g) (cadr g) (caddr g))))
							g	 (cdddr g)
				)
			)
			kq
		)
		nil
	)
)
(defun MK_PLINE1 (Vpl)
	(vl-cmdf "Pline")
	(foreach v Vpl
		(vl-cmdf v)
	)
	(vl-cmdf "")
	(entlast)
)
(defun DXF (Id Obj)
	(cdr (assoc Id (entget Obj)))
)
(defun C_S2L (ss)
	(if	ss
		(vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))
		nil
	)
)
(defun P_VPL (Pline)
	(if Pline
		(mapcar	'cdr
						(vl-remove-if-not
							'(lambda (x) (= 10 (car x)))
							(entget Pline)
						)
		)
		nil
	)
)
(defun AG_3P (Pt0 pt1 pt2 / goc goc1 goc2)
	(setq	goc1 (angle Pt0 Pt1)
				goc2 (angle Pt0 Pt2)
				goc	 (if (> (abs (- goc1 goc2)) pi)
							 (- (* 2 pi) (abs (- goc1 goc2)))
							 (abs (- goc1 goc2))
						 )
	)
	goc
)

[Hoan1111 695]

 

Tôi muốn cắt trim cái phần thừa 5 mm của 1 Line ( do quá trình vẽ bắt điểm nó lệch 1  chút xíu - 5 mm ), mà tôi ko muốn zoom lại để cắt

 

Similar topics from web:

Diễn đàn giao lưu và học hỏi Autocad | Facebook

KCS Plotter

Làm gì có pass

Cho hỏi về cách thay đổi lệnh tắt trong CAD

Tháp Eiffel – Wikipedia tiếng Việt

Tổng hợp các phần mềm cần thiết nhất cho máy tính

Website của Trần Công Định, Nga Sơn, Thanh Hoá

Download Foxit Reader 6.0.2.0413

Website của Phan Tuấn Hải

Ứng dụng Automation Của VBA Trong Việc Trao đổi Dữ Liệu Giữa ...

AutoCAD 2010 Thiết kế đồ họa kỹ thuật 2D và 3D

Vi-et Spaces

Các phần mềm ứng dụng | ZXC232-Phần mềm tự do nguồn mở ...

Website của Phạm Thị Thu Hương

 

Em không hiểu bác bắt điểm kiểu gì  mà bắt điểm nó lại lệnh 1 chút xíu - 5mm.? Em thử <Osnap off> rồi vẽ hai đường thẳng  a và b song song với nhau và vuông góc với đường thẳng đã cho, kết quả khi <Osnap on> lên để đo thì nó chỉ lệch một cái  thiếu 0.0001, một cái thừa 0.0008

 

Lisp trim ngược của bác Nataca rất hay đỡ phải phóng to khi đầu thừa ít, thanks!

Tiện đây nhờ các bác viết lisp minh họa bằng hình ảnh sau:

[phamthanhbinh 3.146]

Một con dao lúc cong lúc thẳng có khi dùi thì lấy đối xứng kiểu răng bác ơi.

Hề hề hề,

Xin lỗi các bác về vụ mình đoán mò do chưa viết líp mà mới chỉ "nghĩ" thôi. Khi bắt tay vào mới thấy nó cũng khá loằng ngoằng thiệt. Bởi cái vụ đối xứng này không hề đơnm giản, không phải đối xứng quatru5c mà là đối xứng qua tâm. Thế nhưng cái độ dài của phần thừa lại chả biết trước thì ...... 

Đúng là đã dốt lại hay nói càn, mong các bác chớ giận nhé.

Để mình mò mẫm thêm chút chút xem có sáng ra được tí nào không rồi sẽ lại ...... cản mũii vậy....