Thành viên	Đăng Nhập	>> StructDesignPro Nơi hội tụ các nhà thiết kế chuyên nghiệp cùng các chuyên gia: trả lời mọi thắc mắc, kết nối việc làm online; học tập, thảo luận, giao lưu offline. StructDesignPro::thăng tiến nghề nghiệp của bạn!
	Nhóm	Đăng ký
	Lý lịch
	Tin nhắn riêng

Ví dụ AutoLISP

StructDesignPro -> AutoLISP cho AutoCAD

Xem chủ đề cũ hơn :: Xem chủ đề mới hơn

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

Trình bày bài viết theo thời gian: Tất cả bài viết1 ngày7 ngày2 tuần1 tháng3 tháng6 tháng1 năm Cũ nhất trướcMới nhất trước

StructDesignPro -> AutoLISP cho AutoCAD

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