Hỏi Về Lisp Tạo Boundary Từ Các Polyline Không Giao Nhau

[Superlong 9]

   ví dụ tôi có 2 pline nằm rời rạc như thế nay tôi muốn tạo boundary bằng cách chọn 2 pline đó thì boundary sẽ được tạo là bao quanh các đỉnh của 2 pline này , em thử dùng 2 hàm (acet-geom-vertex-list (ssget)) để lấy tọa độ xog dùng hàm (acet-pline-make) nhưng lại báo lỗi error: bad argument type: lentityp nil

các bác có thể giúp em không 

(defun c:yeah ( / dt dt1 dt2 rec1 rec2 ss)

(setq dt (ssget '((0 . "LWPOLYLINE"))))

(setq dt1 (ssname dt 1)

dt2 (ssname dt 2)

rec1 (acet-geom-vertex-list dt1)

rec2 (acet-geom-vertex-list dt2))

(setq ss (append rec1 rec2))

(acet-pline-make ss))

 

[tien2005 242]

lisp của bạn đâu?

[Superlong 9]

mình vừa bổ sung rồi đó bạn

[Doan Van Ha 3.200]

Đối tượng thứ nhất có index là 0 chứ không phải 1 nhé.

[Superlong 9]

sau khi sửa lại thì nó báo  error: bad argument type: listp 6.7799

(defun c:yeah ( / dt dt1 dt2 rec1 rec2 ss)

(setq dt (ssget '((0 . "LWPOLYLINE"))))

(setq dt1 (ssname dt 0)

dt2 (ssname dt 1)

rec1 (acet-geom-vertex-list dt1)

rec2 (acet-geom-vertex-list dt2))

(setq ss (append rec1 rec2))

(acet-pline-make ss))

[Doan Van Ha 3.200]

1). ss sửa lại là (list ss)

2). Phải xắp xếp điểm theo 1 chiều quay, nếu không thì nó vẽ không đúng ý đồ.

3). Bổ sung thêm 1 điểm đầu hoặc cuối nữa để khép kín pline.

Bạn tự nghiên cứu nhé!

[Superlong 9]

à em hiểu rồi cám ơn bác rất nhìu

(defun c:yeah ( / dt dt1 dt2 rec1 rec2 pt ss)

(setq dt (ssget '((0 . "LWPOLYLINE"))))

(setq dt1 (ssname dt 0)

dt2 (ssname dt 1)

rec1 (acet-geom-vertex-list dt1)



rec2 (acet-geom-vertex-list dt2)
pt (nth 0 rec1)
)

(setq ss (append rec1 (reverse rec2) (list pt)))

(acet-pline-make (list ss)))

[toiyeuvietnam 0]

lisp này muốn dùng cho cả line thì làm thế nào các anh nhỉ?