Nhờ viết Lisp thêm các vertex tại điểm giao giữa đường pline và các đường khác cắt qua nó

[trieubb 5]

Nhờ ae viết giúp 1 lisp thêm các vertex tại điểm giao giữa đường pline (màu đỏ) và các đường khác cắt qua nó (màu vàng) bằng cách chọn đường Pline (màu đỏ) như hình. Đường pline ban đầu có 6 vertex từ 1-6, đường pline sau khi thêm có 12 vertex từ 1-12 như file đính kèm. Lưu ý đường pline gồm các đoạn thẳng và cung tròn, sau khi thêm vertex thì đường pline vẫn giữ nguyên hì nh dạng, đặc biệt là các cung tròn. Trân trọng cảm ơn!

Drawing1 - Copy.dwg

[cuongtk2 440]

Lâu không viết lisp nên kỹ năng giảm đáng kể. Nhờ mấy con bot thì toàn bị ngụy tạo thông tin. Nhìn code rất đẹp nhưng chỉ là rác. Cuối cùng cũng phải tự viết.

;; viet boi HungmanhCuong CadViet
;; tel : 0903 492 234
;; date 10-6-2025
;; 
(defun c:plineV	(/ pline ls ss n cvs plineObj i objVLA pt param k newVertex )  

  (setq pline (car (entsel "\nChon pline")))

  (setq plineget (entget pline)
	ls (list))
  (foreach item1 plineget
	  (if (= (car item1) 10) (setq ls (append ls (list(cdr item1))))
	    )
	  )  
  
  (setq ss (ssget "_F" ls '(( 0 . "LINE"))));; chon cac line voi kieu chon fence
  (setq n (sslength ss))
  (setq cvs (ACET-SS-TO-LIST ss))
  (setq plineObj (vlax-ename->vla-object pline))
  (setq	i 0
	n (length cvs)
  )
  (while (< i n)
    (progn
      (setq objVLA (vlax-ename->vla-object (nth i cvs)))
      (setq
	pt (vlax-invoke plineObj 'IntersectWith objVLA acExtendNone)
      )
	
	
      (setq param (vlax-curve-getparamatpoint plineObj pt))
      (setq k (+ 1 (fix param)))
      (setq newVertex (vlax-make-safearray vlax-vbDouble '(0 . 1)))

      (vlax-safearray-fill newVertex (list (car pt) (cadr pt)))
      (vla-AddVertex plineObj k newVertex)
					
    )
    (setq i (1+ i))
  )					;while
)

 

[cuongtk2 440]

 

[amateurday 21]

4 giờ trước, cuongtk2 đã nói:

Lâu không viết lisp nên kỹ năng giảm đáng kể. Nhờ mấy con bot thì toàn bị ngụy tạo thông tin. Nhìn code rất đẹp nhưng chỉ là rác. Cuối cùng cũng phải tự viết.

;; viet boi HungmanhCuong CadViet
;; tel : 0903 492 234
;; date 10-6-2025
;; 
(defun c:plineV	(/ pline ls ss n cvs plineObj i objVLA pt param k newVertex )  

  (setq pline (car (entsel "\nChon pline")))

  (setq plineget (entget pline)
	ls (list))
  (foreach item1 plineget
	  (if (= (car item1) 10) (setq ls (append ls (list(cdr item1))))
	    )
	  )  
  
  (setq ss (ssget "_F" ls '(( 0 . "LINE"))));; chon cac line voi kieu chon fence
  (setq n (sslength ss))
  (setq cvs (ACET-SS-TO-LIST ss))
  (setq plineObj (vlax-ename->vla-object pline))
  (setq	i 0
	n (length cvs)
  )
  (while (< i n)
    (progn
      (setq objVLA (vlax-ename->vla-object (nth i cvs)))
      (setq
	pt (vlax-invoke plineObj 'IntersectWith objVLA acExtendNone)
      )
	
	
      (setq param (vlax-curve-getparamatpoint plineObj pt))
      (setq k (+ 1 (fix param)))
      (setq newVertex (vlax-make-safearray vlax-vbDouble '(0 . 1)))

      (vlax-safearray-fill newVertex (list (car pt) (cadr pt)))
      (vla-AddVertex plineObj k newVertex)
					
    )
    (setq i (1+ i))
  )					;while
)

 

Nếu đã biết dot net thì cần gì lisp nữa bác. Lisp làm được thì dot net làm được, còn dot net làm được chưa chắc lisp làm được. Vậy thì đơn giản ta dùng 1 món thôi.

[cuongtk2 440]

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

Nếu đã biết dot net thì cần gì lisp nữa bác. Lisp làm được thì dot net làm được, còn dot net làm được chưa chắc lisp làm được. Vậy thì đơn giản ta dùng 1 món thôi.

Đúng là như vậy, anh phải viết dll cho cùng một nhiệm vụ này:

1. Dùng autolisp : Code mất 2h mà chưa hoàn thành nhiệm vụ (phình tại arc segment ). Ưu điểm : Người dùng có thể tùy chỉnh code. Khuyết điểm: khó kiểm soát lỗi trong lúc code.

2. Dùng dotNet : Code trong 5 phút với copilot, thực hiện đúng nhiệm vụ. Ưu điểm: tốc độ của lệnh nhanh. Khuyết điểm: phụ thuộc vào một số version AutoCad nhất định, user không can thiệp vào code được (VD: đổi tên lệnh).

[trieubb 5]

22 giờ trước, cuongtk2 đã nói:

Lâu không viết lisp nên kỹ năng giảm đáng kể. Nhờ mấy con bot thì toàn bị ngụy tạo thông tin. Nhìn code rất đẹp nhưng chỉ là rác. Cuối cùng cũng phải tự viết.

;; viet boi HungmanhCuong CadViet
;; tel : 0903 492 234
;; date 10-6-2025
;; 
(defun c:plineV	(/ pline ls ss n cvs plineObj i objVLA pt param k newVertex )  

  (setq pline (car (entsel "\nChon pline")))

  (setq plineget (entget pline)
	ls (list))
  (foreach item1 plineget
	  (if (= (car item1) 10) (setq ls (append ls (list(cdr item1))))
	    )
	  )  
  
  (setq ss (ssget "_F" ls '(( 0 . "LINE"))));; chon cac line voi kieu chon fence
  (setq n (sslength ss))
  (setq cvs (ACET-SS-TO-LIST ss))
  (setq plineObj (vlax-ename->vla-object pline))
  (setq	i 0
	n (length cvs)
  )
  (while (< i n)
    (progn
      (setq objVLA (vlax-ename->vla-object (nth i cvs)))
      (setq
	pt (vlax-invoke plineObj 'IntersectWith objVLA acExtendNone)
      )
	
	
      (setq param (vlax-curve-getparamatpoint plineObj pt))
      (setq k (+ 1 (fix param)))
      (setq newVertex (vlax-make-safearray vlax-vbDouble '(0 . 1)))

      (vlax-safearray-fill newVertex (list (car pt) (cadr pt)))
      (vla-AddVertex plineObj k newVertex)
					
    )
    (setq i (1+ i))
  )					;while
)

 

đúng là bị phình tại arc segment bác ạ, có cách nào khắc phục không bác

[cuongtk2 440]

Mình không khắc phục được, đó là lý do có bản dll bên dưới. Nếu bạn rất cần với lisp, mình sẽ đầu tư 1 ngày công để làm việc đó.

[trieubb 5]

uh thế nếu bạn rảnh thì bạn giúp mình với nhé, thanksssss

[gia_bach 1559]

Vào lúc 10/6/2025 tại 22:47, cuongtk2 đã nói:

Đúng là như vậy, anh phải viết dll cho cùng một nhiệm vụ này:

1. Dùng autolisp : Code mất 2h mà chưa hoàn thành nhiệm vụ (phình tại arc segment ). Ưu điểm : Người dùng có thể tùy chỉnh code. Khuyết điểm: khó kiểm soát lỗi trong lúc code.

2. Dùng dotNet : Code trong 5 phút với copilot, thực hiện đúng nhiệm vụ. Ưu điểm: tốc độ của lệnh nhanh. Khuyết điểm: phụ thuộc vào một số version AutoCad nhất định, user không can thiệp vào code được (VD: đổi tên lệnh).

5 phút ?! bạn có nói quá ko vậy!

 

Với Arc segment, sử dụng cặp GetBulge/SetBulge sẽ giải quyết đc vấn đề.

[cuongtk2 440]

@gia_bachTôi thừa nhận là mất khoảng 15 -20 phút vì đã thử code lại để xem nó mất bao lâu.

Câu nói hơi ẩu vì thấy code rất nhanh nên nghĩ là nó mất có 5 phút.  . Hoàn toàn mất khái niệm về thời gian.

 

 

[NTHAHT 116]

3 giờ trước, gia_bach đã nói:

Với Arc segment, sử dụng cặp GetBulge/SetBulge sẽ giải quyết đc vấn đề.

Đúng vậy bác! Vấn đề ở đây là phải tính toán lại và mới giá trị Bulge.

Mình thử tham gia 1 lisp: https://drive.google.com/file/d/1WNbovt7Eh-nGYz9FrzgrJGyKyZEke_8e/view?usp=sharing

[cuongtk2 440]

Mình chỉ việc split tại các giao điểm rồi join lại. Đơn giản vậy thôi.

[trieubb 5]

5 giờ trước, NTHAHT đã nói:

Đúng vậy bác! Vấn đề ở đây là phải tính toán lại và mới giá trị Bulge.

Mình thử tham gia 1 lisp: https://drive.google.com/file/d/1WNbovt7Eh-nGYz9FrzgrJGyKyZEke_8e/view?usp=sharing

thanks bạn nhưng bạn có thể chia sẻ file. lsp cho mình được không? xin cảm ơn

[cuongtk2 440]

@trieubbBạn tự đừng đánh giá cao bản thân quá rồi, bọn mình viết để giải trí nhu cầu giải trí của bản thân như chơi game vậy thôi. Có lệnh dùng là tốt rồi. Đừng nghĩ bọn này là chatbot.

[conghoa 137]

@trieubb Bạn thử dùng lisp này xem được không. 

Chia pline theo giao diem - Plintav1.lsp

 

ps: Nguồn trên mạng

[thanhduan2407 277]

@trieubb: Bạn dùng lisp này xem có được không nhé! Lệnh TNG
https://www.mediafire.com/file/lhn26fe0mbjglql/TAO+NUT+GIAO+-+TNG.VLX/file

[thanhduan2407 277]

10 giờ trước, cuongtk2 đã nói:

@trieubbBạn tự đừng đánh giá cao bản thân quá rồi, bọn mình viết để giải trí nhu cầu giải trí của bản thân như chơi game vậy thôi. Có lệnh dùng là tốt rồi. Đừng nghĩ bọn này là chatbot.

Đồng ý với bác. 

[marketing2 0]

Cũng hay đó bạn ơi, bạn xem nội thât bệnh viện thêm nhé https://meditop.com.vn/noi-that-y-te