DIỄN ĐÀN TÂM NĂNG DƯỠNG SINH PHỤC HỒI SỨC KHỎE

DIỄN ĐÀN TÂM NĂNG DƯỠNG SINH PHỤC HỒI SỨC KHỎE

Chào mừng quý vị và các bạn đến với diễn đàn http://tamnangduongsinh.forumvi.com
 
Trang ChínhPortalCalendarGalleryTrợ giúpTìm kiếmThành viênNhómĐăng kýĐăng Nhập
Hỗ trợ trực tuyến- Admin
Admin : Nguyễn Gia Sơn
Chat với Skype Admin!
Đăng Nhập
Tên truy cập:
Mật khẩu:
Đăng nhập tự động mỗi khi truy cập: 
:: Quên mật khẩu
Tổng số lượt xem
Thống kê truy cập diễn đàn
Top posters
Admin (301)
 
tamnangduongsinh (272)
 
tamphat (130)
 
Latest topics
Tìm kiếm
 
 

Display results as :
 

 


Rechercher Advanced Search
Đồng hồ và Lịch âm dương

KẾT QUẢ XỔ SỐ
Keywords

Share | 
 

 Lisp cad : copy tăng dần copy đến hàng nghìn cũng OK

Go down 
Tác giảThông điệp
Admin
Admin


Tổng số bài gửi : 301
Tổng số điểm : 818
Được cảm ơn : 58
Join date : 22/11/2014

Bài gửiTiêu đề: Lisp cad : copy tăng dần copy đến hàng nghìn cũng OK   Sat Jul 21, 2018 11:03 am

copy tăng dần cop đến hàng nghìn cũng OK

(defun C:CT (/ name_op num_op_chon point_base_st point_new_st num_ op_tang
                op_tang_new last_ch cong_val)
(setq old_ts_err *error*)
(setvar "Cmdecho" 0)
(if(= cong_vao NIL)(setq cong_vao 1))
(Prompt "\n Neu tham so < 0  --> ket qua giam ! ")
(setq cong_val(getint(strcat "\n Tham so tang /<" (itoa cong_vao)">: ") ))
    (if(= cong_val NIL)(setq cong_val cong_vao)(setq cong_vao cong_val))
(Prompt "\n Chon doi tuong tang: ")
(if(and cong_vao (setq op_tang(ssget)))
 (progn
  (setq num_op_chon(sslength op_tang)
        num_ 0
        op_tang_new NIL)
  (if(setq point_base_st(getpoint "\n > Diem goc: "))
     (while
     (setq point_new_st(getpoint "\n >> Diem dat tiep theo: " point_base_st))
        (if op_tang_new (setq op_tang op_tang_new op_tang_new NIL))
        (setq num_op_chon(sslength op_tang) op_tang_new(ssadd))
        (if(and point_base_st point_new_st)
           (progn
            (repeat num_op_chon
              (progn
                 (setq name_op(ssname op_tang num_))
                 (command "_.Copy" name_op "" point_base_st point_new_st)
  (setq last_ch(entlast)
                       op_tang_new(ssadd last_ch op_tang_new))
                 (process)
                 (setq num_ (+ 1 num_))
                   (if(= num_ num_op_chon)(setq num_ 0))
              )
            )
           )
        );if
        (setq point_base_st point_new_st)
     ));if while
 );progn
);if  
(setq *error* old_ts_err)
(princ)
);End Tang.
(defun process (/ name_check text_value dat_up dat_style num_value new_value)
(progn
            (setq name_check(assoc 0 (setq dat_up (entget last_ch))) )
            (if(or(= (cdr name_check) "TEXT")
                  (= (cdr name_check) "MTEXT"))
               (progn
                 (setq text_value(assoc 1 dat_up))
                 (if(= (distof (cdr text_value) 2) NIL)
                    (setq dat_style "Text")
                    (setq dat_style "Num" num_value (atof (cdr text_value)) )
                 )
                 (cond
                    ((= dat_style "Num")
                     (setq new_value (itoa (fix(+ num_value cong_vao))) ))
                    ((= dat_style "Text")
                     (setq new_value(chr (+ (ascii (cdr text_value)) cong_vao))) )
                 )
                 (setq dat_up(subst (cons '1 new_value) text_value dat_up) )
                 (entmod dat_up)
               );progn
            );if
            (setq name_op NIL)
);progn
);Process.

Nguồn bài viết :
[You must be registered and logged in to see this link.]
Về Đầu Trang Go down
Xem lý lịch thành viên http://tamnangduongsinh.forumvi.com
 
Lisp cad : copy tăng dần copy đến hàng nghìn cũng OK
Về Đầu Trang 
Trang 1 trong tổng số 1 trang
 Similar topics
-
» Cách chèn đường dẫn vào bài viết
» Chuyện Gấu Brown và thỏ Cony
» Bakugan fic: Sự lựa chọn
» Bento-nghệ thuật cơm hộp
» 10 món súp ngon nhất thế giới

Permissions in this forum:Bạn không có quyền trả lời bài viết
DIỄN ĐÀN TÂM NĂNG DƯỠNG SINH PHỤC HỒI SỨC KHỎE :: Autocad :: Lisp autocad-
Chuyển đến