Xin Lisp đo kích thước từ các điểm đỉnh polyline vuông góc với 1 đối tượng cho trước

[Nguyễn Cảnh Thạch 0]

Xin các cao nhân giúp đỡ.!!

Em có 2 đối tượng ( đối tượng 1 là đường polyline , đối tượng 2 là đường tròn hoặc các đường line khác) . em muốn lisp pick vào đường polyline ( đối tượng 1 ) thì sẽ tự động đo kích thước từ các điểm đỉnh đối tượng 1 vuông góc tới đối tượng 2 . ( xem hình) 

Xin cảm ơn

[huunhantvxdts 195]

1 giờ} trướ}c, Nguyễn Cảnh Thạch đã nói:

Xin các cao nhân giúp đỡ.!!

Em có 2 đối tượng ( đối tượng 1 là đường polyline , đối tượng 2 là đường tròn hoặc các đường line khác) . em muốn lisp pick vào đường polyline ( đối tượng 1 ) thì sẽ tự động đo kích thước từ các điểm đỉnh đối tượng 1 vuông góc tới đối tượng 2 . ( xem hình) 

Xin cảm ơn

Tham khảo cái này bạn nhé

Hoàn công hầm Thủy Điện - YouTube https://www.youtube.com/watch?v=cqF1wPnJNfw

[ketxu 2.984]

Quick code cho bạn, từ cái này bạn phát triển hay sửa lỗi j thì mần :)
 

(defun c:foo(/ _massoc e1 e2 p)
;Free from CADViet @ketxu
(command "undo" "be")
(defun _massoc (id eData / x l)
	(foreach x eData
		(if (eq id (car x))
			(setq l (cons (cdr x) l))
		)
	)
(reverse l)
)
(if 
	(and 
		(setq e1 (entsel "\nObject 1:"))
		(wcmatch  (cdr (assoc 0 (entget (setq e1 (car e1))))) "LINE,LWPOLYLINE")
		(setq e2 (entsel "\nObject 2:"))
		(wcmatch (cdr (assoc 0 (entget (setq e2 (car e2))))) "ARC,CIRCLE,ELLIPSE,LINE,LWPOLYLINE,SPLINE")
	)
	(progn 
		(setq l (_massoc 10 (entget e1)))
		(mapcar 
			'(lambda(x)
				(if (setq p (vlax-curve-getclosestpointto e2 x))
					(command "dimaligned" "non" p "non" x (polar p (- (angle p x) (* pi 0.5)) 1))
				)
			)
			l
		)
	)
)
(command "undo" "end")
(princ)
)

 

[Nguyễn Cảnh Thạch 0]

1 giờ} trướ}c, ketxu đã nói:

Quick code cho bạn, từ cái này bạn phát triển hay sửa lỗi j thì mần :)
 

• foo.lsp
  
• [✎]
   

(defun c:foo(/ _massoc e1 e2 p)
;Free from CADViet @ketxu
(command "undo" "be")
(defun _massoc (id eData / x l)
	(foreach x eData
		(if (eq id (car x))
			(setq l (cons (cdr x) l))
		)
	)
(reverse l)
)
(if 
	(and 
		(setq e1 (entsel "\nObject 1:"))
		(wcmatch  (cdr (assoc 0 (entget (setq e1 (car e1))))) "LINE,LWPOLYLINE")
		(setq e2 (entsel "\nObject 2:"))
		(wcmatch (cdr (assoc 0 (entget (setq e2 (car e2))))) "ARC,CIRCLE,ELLIPSE,LINE,LWPOLYLINE,SPLINE")
	)
	(progn 
		(setq l (_massoc 10 (entget e1)))
		(mapcar 
			'(lambda(x)
				(if (setq p (vlax-curve-getclosestpointto e2 x))
					(command "dimaligned" "non" p "non" x (polar p (- (angle p x) (* pi 0.5)) 1))
				)
			)
			l
		)
	)
)
(command "undo" "end")
(princ)
)

 

Cảm ơn Mr ketxu nhiều nhé ! 

[ketxu 2.984]

5 giờ trước, Nguyễn Cảnh Thạch đã nói:

Cảm ơn Mr ketxu nhiều nhé ! 

You're welcome. Nếu cần xịn hơn hãy tham khảo gợi ý của bác @huunhantvxdts nhé, vì nó còn giải quyết nhiều bài toán hơn !