dùng lệnh wipeout cho ellipse

[kaka2225 1]

lệnh wipeout chỉ cho phép polyline. vậy làm sao dùng lệnh wipeout cho ellipse

[cancer_xd 49]

chỉ còn cách là ngồi vẽ 1 polyline đè lên elip thôi

[kaka2225 1]

làm sao dùng polyline vẽ được ellip vậy bạn?

[cancer_xd 49]

vẽ trước 1 cái elip rồi dùng lênh pl vẽ đè men theo đường cong của elip thôi, sau đó dùng lệnh wipeout với cái polyline đó, rồi block tất cả lại. giơf đã có 1 wipeout là elip rồi (cách này chỉ là tương đối thôi)

[Tue_NV 3918]

Có thể thiết lập biến hệ thống PELLIPSE bằng 1. Khi vẽ lệnh ELLIPSE thì CAD sẽ tạo ELLIPSE bằng các phân đoạn Polyline

Với cách này bạn có thể tạo wipeout là ellipse

[trungnv61 11]

anh tuệ ơi. sau khi cho biến pellipse =1 thì ellipse trở thành đối tượng polyline nhưng khi chuyển thành wipeout thì không thể chuyển đc.phải làm sao anh

[Doan Van Ha 3212]

anh tuệ ơi. sau khi cho biến pellipse =1 thì ellipse trở thành đối tượng polyline nhưng khi chuyển thành wipeout thì không thể chuyển đc.phải làm sao anh

Không thể set biến pellipse = 1 để wipeout cho ellipse được. Bởi khi đó ellipse sẽ biến thành polyline gồm các arc chứ không phải các line.

May ra có thể dùng lisp theo kiểu vi phân ellipse thành polyline gồm các line nhỏ rồi wipeout.

[trungputin2003 0]

thế muốn Wipeout cho đường tròn thì làm sao các bác nhỉ? Em làm bên Cấp thoát nước, hay đặt các nút tính toán là nút tròn nên rất cần, Em toàn phải làm thủ công là offset ra 1 đường tròn khác rồi vẽ Wipeout theo đường tròn này. Quả này nhờ các Bác bỏ thời gian quan tâm làm cho cái lisp với. Rất cảm ơn các Bác. Chúc sức khỏe mọi người.

[Tue_NV 3918]

 

 

-Bạn có thể dùng lệnh Polygon với số cạnh tương đối lớn (góc ở tâm khoảng 1 độ <=> 360 cạnh) thì sẽ được đa giác xấp xỉ đường tròn rồi wipeout

 

- Về tạo wipeout cho ellipse : chắc phải dùng lisp vi phân ellipse thành các phân đoạn line (line segments) nhỏ rồi mới wipeout được như ý của bác DoanVanHa mới được ^^

[cancer_xd 49]

lisp đâyhttp://www.cadviet.com/upfiles/3/85690_wipeout_ellipseob2wo.lsp. Mình đã thử nó dùng cho cả đường tròn lẫn ellipse

[trungputin2003 0]

ui, cảm ơn Bác Tuệ, sáng kiến tuyệt vời đấy. Có lúc đơn gian thế mà em không nghĩ ra. Cảm ơn Bác nhiều nha, tiết kiệm đuọc nhiều thời gian và hết ngại quả Wipeout đường tròn rồi. hehe. Tuyệt đấy!

[trungputin2003 0]

Phiền Bác Cancer-xd up lại link giúp cái được không, em down không được. Thanks Bác!

[cancer_xd 49]

thử cái này xem thế nào

https://docs.google.com/file/d/0B6jdaRgcPX8Db21LVGhvc3J6c1k/edit?pli=1

[pphung183 428]

Vẽ Wipeout đường tròn bằng Polygon cạnh 300 đây, muốn hình vuông thì cạnh = 4 :)

(defun C:WPO (/ res cp pt oldos)
       (command "undo" "be")
(setq oldos (getvar "osmode"))
  (setq defres (if defres defres "300"))
  (setq res (getstring (strcat "\nEnter Resolution <"defres">: ")))
  (if (> (strlen res) 0) (setq defres res) (setq res defres))
  (setq cp (getpoint "\nPick Center Point: "))
  (setq pt (getpoint cp "\nPick Point: "))
  (setvar "osmode" 0) 
(initget "I C")
(setq sel (getkword "\nV\U+1EBD \U+0111a gi\U+00E1c n\U+1ED9i ti\U+1EBFp (I) hay ngo\U+1EA1i ti\U+1EBFp (C) v\U+1EDBi \U+0111\U+01B0\U+1EDDng tr\U+00F2n [i/C]? <C> :"))
(if (= sel "C")
 (command "polygon" res cp "C" pt)
 (command "polygon" res cp "I" pt)
)
  (command "wipeout" "polyline" "last" "yes")
(setvar "osmode" oldos)
(command "undo" "e")
  (princ))

[trungputin2003 0]

Cảm ơn 2 bác pphung và cancer-xd em làm đc rồi. Chúc các anh chị sức khoẻ và nhiều sáng tạo giúp cho cadviet ngày càng có nhiều bài hay. Rất cảm ơn!