Important Notice:
We regret to inform you that our free phpBB forum hosting service will be discontinued by the end of June 30, 2024.
If you wish to migrate to our paid hosting service, please contact billing@hostonnet.com.
structdesignpro
Site Admin
Ngày tham gia: 28 2 2009 Số bài: 668 Đến từ: Việt Nam
|
|
|
|
|
Gửi: CN 4 12, 2009 9:41 pm Tiêu đề: Ví dụ AutoLISP |
|
|
|
|
(DEFUN C:BT1(/ CMDLUU SS DEM LEN DS RADIUS)
(SETQ CMDLUU (GETVAR "CMDECHO"))
(SETVAR "CMDECHO" 0)
(PRINC "\n PLEASE SELECT CIRCLES OBJECTS ! ")
(SETQ SS (SSGET '((0 . "CIRCLE"))))
(SETQ DEM 0)
(SETQ LEN (SSLENGTH SS))
(WHILE (< DEM LEN)
(PROGN
(SETQ DS (ENTGET (SSNAME SS DEM)))
(SETQ RADIUS (CDR (ASSOC 40 DS)))
(PRINC (STRCAT "\nCHU VI CUA DUONG TRON THU " (RTOS (1+ DEM)) " LA : " (RTOS (* 2 PI RADIUS))))
(SETQ DEM (1+ DEM))
; THAY DOI MAU CUA DOI TUONG DUOC CHON
(IF (= (ASSOC 62 DS) NIL)
(SETQ DS (APPEND '((62 . 2)) DS))
(SETQ DS (SUBST (CONS '62 2) (ASSOC 62 DS) DS))
)
(ENTMOD DS)
)
)
(SETVAR "CMDECHO" CMDLUU)
) _________________ Mời bạn đến với bách khoa toàn thư về kết cấu:.
http://vi.ketcau.wikia.com |
|
Về Đầu Trang |
|
|
Bạn không có quyền gửi bài viết Bạn không có quyền trả lời bài viết Bạn không có quyền sửa chữa bài viết của bạn Bạn không có quyền xóa bài viết của bạn Bạn không có quyền tham gia bầu chọn
|
Trang 1 trong tổng số 1 trang |
Thời gian được tính theo giờ [GMT+ 7 giờ]
|
|