DIỄN ĐÀN TÂM NĂNG DƯỠNG SINH PHỤC HỒI SỨC KHỎE
Bạn có muốn phản ứng với tin nhắn này? Vui lòng đăng ký diễn đàn trong một vài cú nhấp chuột hoặc đăng nhập để tiếp tục.

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 https://tamnangduongsinh.forumvi.com
 
Trang ChínhPortalGalleryLatest imagesTìm kiếmĐăng kýĐăng Nhập
Đă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
Hỗ trợ trực tuyến
Admin : Nguyễn Gia Sơn điện thoại 0983559480
Thống kê truy cập diễn đàn
Top posters
tamnangduongsinh (579)
Lisp cad : copy tăng dần copy đến hàng nghìn cũng OK I_vote_lcapLisp cad : copy tăng dần copy đến hàng nghìn cũng OK I_voting_barLisp cad : copy tăng dần copy đến hàng nghìn cũng OK I_vote_rcap 
Admin (372)
Lisp cad : copy tăng dần copy đến hàng nghìn cũng OK I_vote_lcapLisp cad : copy tăng dần copy đến hàng nghìn cũng OK I_voting_barLisp cad : copy tăng dần copy đến hàng nghìn cũng OK I_vote_rcap 
tamphat (129)
Lisp cad : copy tăng dần copy đến hàng nghìn cũng OK I_vote_lcapLisp cad : copy tăng dần copy đến hàng nghìn cũng OK I_voting_barLisp cad : copy tăng dần copy đến hàng nghìn cũng OK I_vote_rcap 
Latest topics
Tìm kiếm
 
 

Display results as :
 

 


Rechercher Advanced Search

KẾT QUẢ XỔ SỐ
Keywords
1 ct_height lisp tròn CHIỀU cống 2 6 5 4 3 tiện

Gửi bài mới   Trả lời chủ đề này
 

 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 : 372
Tổng số điểm : 1015
Được cảm ơn : 90
Join date : 22/11/2014

Lisp cad : copy tăng dần copy đến hàng nghìn cũng OK Empty
Bài gửiTiêu đề: Lisp cad : copy tăng dần copy đến hàng nghìn cũng OK   Lisp cad : copy tăng dần copy đến hàng nghìn cũng OK I_icon_minitimeSat 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 :
https://www.cadviet.com/forum/topic/6249-l%C3%ADt-copy-t%C4%83ng-d%E1%BA%A7n-cop-%C4%91%E1%BA%BFn-h%C3%A0ng-ngh%C3%ACn-c%C5%A9ng-ok/
Về Đầu Trang Go down
https://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
-
» Lisp copy tăng dần
» lisp copy tăng số mà chứ giữa nguyên
» Lisp lọc các block cùng tên
» lisp thay đổi hàng loạt chiều cao text trong một layer
» Lisp kết hợp lệnh Array và Copy

Permissions in this forum:Bạn đượ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-
Gửi bài mới   Trả lời chủ đề nàyChuyển đến