Đến nội dung


Hình ảnh
- - - - -

[Đã xong] Lisp vẽ anten


  • Please log in to reply
1 reply to this topic

#1 lcktx

lcktx

    Chưa sử dụng CAD

  • Members
  • Pip
  • 1 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 09 May 2007 - 12:29 PM

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!
  • 0

#2 Nguyen Hoanh

Nguyen Hoanh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 4105 Bài viết
Điểm đánh giá: 4495 (đỉnh cao)

Đã gửi 11 May 2007 - 10:21 PM

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.
  • 0