Lisp tạo hình chữ nhật từ hai đường thẳng song song, so le

[Minh KHa 1]

Chào các anh em,

 

Mình muốn viết lisp tạo hình chữ nhật từ hai đường thẳng hoặc ba đường thẳng song song khi quét qua

Nhưng chưa đủ trình, mong anh em giúp đỡ

[Danh Cong 424]

Lệnh "Rờ E Cê" nhé. Cái này cũng cần lisp thì tôi chịu luôn.

[maxthien 0]

Vào lúc 7/9/2018 tại 20:15, Danh Cong đã nói:

Lệnh "Rờ E Cê" nhé. Cái này cũng cần lisp thì tôi chịu luôn.

hiện tại mình cũng cần 1 lisp như thế này, vẽ 1 hình chữ nhật bao quanh nhiều đối tượng được chọn, khoảng cách offset của hình chữ nhật so với điểm xa nhất của đối tượng có thể tuỳ chỉnh được. Lý do mình cần lisp này là tạo viewport layout, sắp số lượng dầm rất nhiều. Ko biết trên này có cao nhân nào có thể giúp mình ko? Mình cảm ơn nhiều. Chúc anh em nhiều sức khoẻ.

[dinhvantrang 151]

đưa vài cái hình và bản vẽ demo lên xem thử đi bạn.

[maxthien 0]

Mình gởi cái hình cho bạn xem thử, bản vẽ chắc ko cần đâu, cũng dễ hiểu mà. 

[huunhantvxdts 195]

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

Mình gởi cái hình cho bạn xem thử, bản vẽ chắc ko cần đâu, cũng dễ hiểu mà. 

Rẻng rỗi làm tí cho vui

;; Selection Set Bounding Box  -  Lee Mac
;; sel - [sel] Selection set for which to return bounding box
(defun LM:SSBoundingBox ( ss / i l1 l2 ll ur )
(repeat (setq i (sslength ss))
(vla-getboundingbox (vlax-ename->vla-object (ssname ss (setq i (1- i)))) 'll 'ur)
(setq l1 (cons (vlax-safearray->list ll) l1)
l2 (cons (vlax-safearray->list ur) l2)
)
)
(mapcar '(lambda ( a b ) (apply 'mapcar (cons a B))) '(min max) (list l1 l2))
)
(defun C:dbao (/ bb e h)
(prompt "\nChon doi tuong trong duong bao.")
(setq bb (LM:SSBoundingBox (ssget)))
  (if (not h1) (setq h1 10))
  (setq h (getstring (strcat "\nLay rong ra moi ben <" (rtos h1 2 2) ">")))
  (if (= h "") (setq h (rtos h1 2 2)))
  (setq h1 (atof h))
(setq e (entmakex
(list
(cons 0 "LWPOLYLINE")
(cons 100 "AcDbEntity")
(cons 100 "AcDbPolyline")
(cons 90 4)
(cons 70 1)
(list 10 (- (caar bb) h1) (- (cadar bb) h1))
(list 10 (+ (caadr bb) h1) (- (cadar bb) h1))
(list 10 (+ (caadr bb) h1) (+ (cadadr bb) h1))
(list 10 (- (caar bb) h1)  (+ (cadadr bb) h1))
)
))
)

 

[maxthien 0]

Ok, cảm ơn bạn nhiều lắm, ko biết phải báo đáp như thế nào đây. :D

[huunhantvxdts 195]

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

Ok, cảm ơn bạn nhiều lắm, ko biết phải báo đáp như thế nào đây. :D

hehehe!!!! có lòng là được rồi

[maxthien 0]

33 phút trước, huunhantvxdts đã nói:

hehehe!!!! có lòng là được rồi

Một lần nữa cảm ơn bạn lắm lắm.  :D :D

[dinhvantrang 151]

20 giờ trước, maxthien đã nói:

 Lý do mình cần lisp này là tạo viewport layout, sắp số lượng dầm rất nhiều. Ko biết trên này có cao nhân nào có thể giúp mình ko?

 

Còn cái vế này nữa bạn.

 

[huunhantvxdts 195]

16 phút trước, dinhvantrang đã nói:

Còn cái vế này nữa bạn.

 

cái này chắc bạn đó có rồi. bạn chỉ muốn tạo polyline thôi. hình như có lips tự chuyển qua layout rồi

[maxthien 0]

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

cái này chắc bạn đó có rồi. bạn chỉ muốn tạo polyline thôi. hình như có lips tự chuyển qua layout rồi

đúng rồi bạn, mình có lệnh chuyển qua layout rồi.