Nhờ viết lisp

[Nhờ viết lisp]

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

Của bạn đây nhé:

• test.lsp
  
• [✎]
   

(defun c:test ( / point entold et entnew)
(setq point (getpoint "\nPick diem trong vung kin"))
(while point
(setq entold (cdr (assoc 5 (entget (entlast)))))
(command "_.-boundary" point "")
   (setq et (entlast))
   (setq entnew (cdr (assoc 5 (entget (entlast)))))
    (if (/= entold entnew) 
	(progn
        (entmake
            (append
               '(
                    (000 . "LWPOLYLINE")
                    (100 . "AcDbEntity")
                    (100 . "AcDbPolyline")
                    (090 . 4)
                    (070 . 1)
                )
                (mapcar '(lambda ( p ) (cons 10 p)) (LM:boundingbox (vlax-ename->vla-object et)))
            )
        )
		(entdel et)
		(setq point (getpoint "\n Chon diem tiep theo: "))
	)
	(progn
	(princ "chon diem sai")
	(setq point (getpoint "\n Chon diem tiep theo: "))
	)
    )
)	
(princ)
)
(vl-load-com) (princ)
;; Bounding Box  -  Lee Mac
; Returns the point list describing the rectangular frame bounding the supplied object.
; obj - [vla] VLA-Object

(defun LM:boundingbox ( obj / a b lst )
    (if
        (and
            (vlax-method-applicable-p obj 'getboundingbox)
            (not (vl-catch-all-error-p (vl-catch-all-apply 'vla-getboundingbox (list obj 'a 'b))))
            (setq lst (mapcar 'vlax-safearray->list (list a b)))
        )
        (mapcar '(lambda ( a ) (mapcar '(lambda ( b ) ((eval b) lst)) a))
           '(
                (caar   cadar)
                (caadr  cadar)
                (caadr cadadr)
                (caar  cadadr)
            )
        )
    )
)

 

Cám ơn anh nhiều ạ <3

[Nhờ viết lisp]

7 giờ trước, huunhantvxdts đã nói:

Cái này bạn xem có được không nhé!!

• test.lsp
  
• [✎]
   

(defun c:test ( / ent )
    (if (setq ent (car (entsel)))
        (entmake
            (append
               '(
                    (000 . "LWPOLYLINE")
                    (100 . "AcDbEntity")
                    (100 . "AcDbPolyline")
                    (090 . 4)
                    (070 . 1)
                )
                (mapcar '(lambda ( p ) (cons 10 p)) (LM:boundingbox (vlax-ename->vla-object ent)))
            )
        )
    )
    (princ)
)
(vl-load-com) (princ)
;; Bounding Box  -  Lee Mac
; Returns the point list describing the rectangular frame bounding the supplied object.
; obj - [vla] VLA-Object

(defun LM:boundingbox ( obj / a b lst )
    (if
        (and
            (vlax-method-applicable-p obj 'getboundingbox)
            (not (vl-catch-all-error-p (vl-catch-all-apply 'vla-getboundingbox (list obj 'a 'b))))
            (setq lst (mapcar 'vlax-safearray->list (list a b)))
        )
        (mapcar '(lambda ( a ) (mapcar '(lambda ( b ) ((eval b) lst)) a))
           '(
                (caar   cadar)
                (caadr  cadar)
                (caadr cadadr)
                (caar  cadadr)
            )
        )
    )
)

 

Hi anh, anh có thể chỉnh lại cách thức input là getpoint trong diện tích của đa giác kín được không anh.

Cám ơn anh rất nhiều.

[Nhờ viết Lisp rải tôn phủ đa giác bất kỳ]

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

 

Phần còn lại có khi là đơn giản Bạn nhé.

 

Huy1.LSP

Dạ trước hết em cám ơn anh nhiều ạ. Sao em dùng lisp nó bị lỗi này, anh chỉ thêm giúp em với.

[Nhờ viết Lisp rải tôn phủ đa giác bất kỳ]

Dạ mình chỉ lấy bề rộng hữu dụng thôi, tùy theo loại tôn

52 phút trước, gia_bach đã nói:

Bỏ luôn chiều rộng hai tấm tôn chồng lên nhau luôn hả ? thông thường là 1 sóng tôn

 

[Nhờ viết lisp]

Chào các anh,

Em muốn nhờ các anh viết dùm lisp vẽ hình chữ nhật bao quanh đa giác.

Bắt đầu lệnh bằng cách click vào diện tích đa giác.

Sau đó vẽ và xuất  1 kích thước theo phương thẳng đứng Y như hình vẽ thôi.

Em mới tham gia diễn đàn à, có gì sai sót mong các anh góp ý. Xin cảm ơn ạ.

[Nhờ viết Lisp rải tôn phủ đa giác bất kỳ]

Dạ hình vẽ em đơn giản hoá vấn đề là chiều tôn là thẳng đứng, mốc rải có thể lấy từ góc trái hay phải bất kì của đa gác ạ.

[Nhờ viết Lisp rải tôn phủ đa giác bất kỳ]

Em đang làm rải tôn hình chữ nhật với bề rộng W cho trước phủ qua các đa giác bất kì rồi thống kê lại. Mong các anh viết giúp em lisp cho trường hợp này.  Em xin cám ơn ạ.