Cách vẽ 1 đoạn thẳng cách đều 2 đoạn thẳng cho trước.

[Hien vu 1]

Hello các bác, em đang cần vẽ 1 cái tim đường mà 2 mép đường không đều nhau như hình ạ, em cần vẽ tim ở giữa, ai biết giúp em với ạ, em cảm ơn mọi người.

[vobanho 9]

 

[alisp 72]

Nếu bạn xài cad 2017 về sau thì mới có lệnh centerline, nếu không thì phải vẽ tay, cũng đơn giản thôi. Nếu bạn đã biết bắt điểm (endpoint, perpendicular, midpoint...) thì làm theo hình dưới đây:

[Danh Cong 422]

Lisp tạo đường PLine giữa 2 đường Pline khác: 

 

	; Write by Danh Cong - Cadviet.com 13-11-2020

	; SDT 0336 760 750



	(defun c:PL-CENTER (/ I KC LEN_PL_1 LST_POINT N PL_1 PL_2 PT1 PT2 PT3)

	  (vl-load-com)

	  (prompt "Select PLINE_1 ?")

	  (setq PL_1 (car (entsel)))

	  (prompt "Select PLINE_2 ?")

	  (setq PL_2 (car (entsel)))



	  (INITGET (+ 1 2 4))

	  (setq KC (getreal "/nKhoang cach chia ?"))



	  (setq lst_Point '())



	  (setq Len_PL_1 (vlax-curve-getDistAtParam PL_1 (vlax-curve-getEndParam PL_1)))

	  (setq i 0 n (/ Len_PL_1 KC))



	  (while (< i n)

	    (progn

	      (setq Pt1 (vlax-curve-getPointAtDist PL_1 (* i KC)))

	      (setq Pt2 (vlax-curve-getClosestPointTo PL_2 Pt1))

	      (setq Pt3 (list (/ (+ (nth 0 Pt1) (nth 0 Pt2)) 2) (/ (+ (nth 1 Pt1) (nth 1 Pt2)) 2)))

	      (setq lst_Point (append lst_Point (list Pt3)))

	      (setq i (+ i 1))

	      ); endprogn

	    ); end while



	  (acet-pline-make (list lst_Point))

	  

	  (princ))

[Hien vu 1]

Vào lúc 13/11/2020 tại 08:55, Danh Cong đã nói:

Lisp tạo đường PLine giữa 2 đường Pline khác: 

 

 

• pl-center.lsp
  
• [✎]
   

; Write by Danh Cong - Cadviet.com 13-11-2020
; SDT 0336 760 750



	(defun c:PL-CENTER (/ I KC LEN_PL_1 LST_POINT N PL_1 PL_2 PT1 PT2 PT3)
	  (vl-load-com)
	  (prompt "Select PLINE_1 ?")
	  (setq PL_1 (car (entsel)))
	  (prompt "Select PLINE_2 ?")
	  (setq PL_2 (car (entsel)))



	  (INITGET (+ 1 2 4))
	  (setq KC (getreal "/nKhoang cach chia ?"))



	  (setq lst_Point '())



	  (setq Len_PL_1 (vlax-curve-getDistAtParam PL_1 (vlax-curve-getEndParam PL_1)))
	  (setq i 0 n (/ Len_PL_1 KC))



	  (while (< i n)
	    (progn
	      (setq Pt1 (vlax-curve-getPointAtDist PL_1 (* i KC)))
	      (setq Pt2 (vlax-curve-getClosestPointTo PL_2 Pt1))
	      (setq Pt3 (list (/ (+ (nth 0 Pt1) (nth 0 Pt2)) 2) (/ (+ (nth 1 Pt1) (nth 1 Pt2)) 2)))
	      (setq lst_Point (append lst_Point (list Pt3)))
	      (setq i (+ i 1))
	      ); endprogn
	    ); end while



	  (acet-pline-make (list lst_Point))
	  
	  (princ))

cám ơn bác :v, lâu rồi nhưng nay em ms test thấy không ổn lắm bác ạ.

- Đường gấp khúc pline bị biến dạng tùy theo hệ số khoảng cách.

- Chỉ cần tạo tim cách đều 1 cách hoàn hảo, không cần hệ số khoảng cách trong lisp đâu ạ.

Em cảm ơn bác.