[Đã xong] Lisp vẽ anten

[lcktx 0]

xin chào cadviet!

mình đang muốn có 1 lisp vẽ vùng phủ sóng anten do động.Với yêu cầu nhập chỉ định điểm tâm hình vẽ và đường kính D Đường tròn ngoài đường kính là 5D). Xin mọi người chỉ giúp! mình sẽ upload hình minh họa lên để mọi người xem! Giúp mình nhé! thank!

[Nguyen Hoanh 4.663]

xin chào cadviet!

mình đang muốn có 1 lisp vẽ vùng phủ sóng anten do động.Với yêu cầu nhập chỉ định điểm tâm hình vẽ và đường kính D Đường tròn ngoài đường kính là 5D). Xin mọi người chỉ giúp! mình sẽ upload hình minh họa lên để mọi người xem! Giúp mình nhé! thank!

 

(defun c:vt( / tt old bk new)
(command ".circle" pause pause)  
(setq tt (entget (entlast))
     old (assoc 40 tt)
     bk (cdr (assoc 40 tt))
     new (cons 40 (* 5.0 bk))
     tt (subst new old tt)      
)
(entmake tt)  
(princ)
)

Sử dụng lệnh vt, vẽ hình tròn bên trong như bình thường như lệnh circle. Hình tròn phía bên ngoài sẽ được tự động thêm vào.