²åÈë·ûºÅ

langjs

°ÑWORDµÄ·ûºÅŪÁËһЩ¹ýÀ´£¬½öÊÊÓÃÓÚµ¥ÐÐÎı¾¡£

²¹Ò»ÕÅͼ£º


;;; ================================
;;; µ¥ÐÐÎı¾²åÈë·ûºÅ¡£×ó¼ü»òA¡¢DÑ¡Ôñ
;;; λÖÃ,S»òÓÒ¼üµ¯³ö¶Ô»°¿ò¡£Ë«»÷²åÈë
;;;                        by:langjs
;;; ================================



;;; ================================
;;; µ¥ÐÐÎı¾²åÈë·ûºÅ¡£×ó¼ü»òa¡¢dÑ¡Ôñ
;;; λÖÃ,s»òÓÒ¼üµ¯³ö¶Ô»°¿ò¡£Ë«»÷²åÈë
;;;                        by:langjs
;;; ================================
(defun c:aa (/ #errins $orr bb bu code d data dcl_re dclname dlg ent ent1 ent2 f gr h i j key loop lst lst1 lst2 n
               name name2 newlist pt pt0 pt2 pt3 ptlst rr ss str str0 str1 str2 x )
   (defun jspt (pt w ww)                    
(list (+ (car pt) w) (+ (cadr pt) ww))
  )
(defun #errins (s)
    (command ".UNDO" "E")(command ".UNDO" "") (setq *error* $orr))
  (defun insdcl (/ dclname dlg f x)
    (defun show_list (key newlist)
      (start_list key)(mapcar 'add_list        newlist ) (end_list))
    (defun insdcl01 (i)
      (if (/= i bz001)        (setq bz002 "0"))
      (setq lst2 (cdr (nth (atoi i) lst)) str0 (nth (atoi bz002) lst2) bz001 i)
      (show_list "e03" lst2)
      (set_tile "e01" (strcat str1 str0 str2)) (set_tile "e03" bz002))
    (defun insdcl02 (j)
      (setq str0 (nth (atoi j) lst2)   bz002 j )
      (set_tile "e01" (strcat str1 str0 str2)))
    (setq lst '()
          lst (cons (list "³£Ó÷ûºÅ" "§¶" "R" "M" "¡ã" "¡À" "ƽ·½" "Á¢·½") lst)
          lst (cons (list "Êýѧ·ûºÅ" "=" "¡Ö" "¡Ù" "£¼" "£¾" "¡Ü" "¡Ý" "¡Ú" "¡Û" "¡À" "+" "-" "¡Á" "¡Â" "¡Ò" "¡Ó"
               "¡Ø" "¡Þ" "¡Æ" "¡Ï"  "¡Î"  ) lst )
          lst (cons (list "Êý×Ö·ûºÅ" "¢ñ" "¢ò" "¢ó" "¢ô" "¢õ" "¢ö" "¢÷" "¢ø" "¢ù" "¢ú" "¢û" "¢ü" "¢Ù" "¢Ú" "¢Û" "¢Ü"
               "¢Ý" "¢Þ" "¢ß" "¢à" "¢á" "¢â" "¢Å" "¢Æ" "¢Ç" "¢È" "¢É" "¢Ê" "¢Ë" "¢Ì" "¢Í" "¢Î" "¢Ï" "¢Ð"  ) lst )
          lst (cons (list "µ¥Î»·ûºÅ" "¡ã" "¡ä" "¡å" "¡ç" "£¤" "¡æ" "%" "¡ë" "mm" "cm" "km" "mg" "kg") lst)
          lst (cons (list "±êµã·ûºÅ" "£¬" "¡¢" "¡£" "£»" "£º" "£¿" "£¡" "¡­" "£¨" "£©" "£û" "£ý" "¡¾" "¡¿" "¡¶" "¡·"
               "¡º" "¡»") lst)
          lst (cons (list "Ï£À°×Öĸ" "¦¤" "¦«" "¦®" "¦¯" "¦°" "¦·" "¦¸" "¦²" "¦Á" "¦Â" "¦Ã" "¦Ä" "¦Å" "¦Æ" "¦Ç" "¦È" "¦Ê" "¦Ë" "¦Ì"
               "¦Î" "¦Ð" "¦Ñ" "¦Ò" "¦Ó" "¦Ô" "¦Õ" "¦Ö" "¦×" "¦Ø" ) lst )
          lst (cons (list "ÌØÊâ·ûºÅ" "££" "£¦" "£ª" "¡ù" "¡ì" "¡ð" "¡ñ" "¡÷" "¡ø" "¡ò" "¡î" "¡ó" "¡ô" "¡õ" "¡ö" "¡â" "¡á"
               "¡ü" "¡ý" "¡û" "¡ú" "¨I" "¨J" "¨L" "¨K" ) lst )
          lst (cons (list "µç×ÓÇ©Ãû" "langjs" "langjs""langjs""langjs""langjs""langjs") lst)
          lst (cons (list "µ¥Î»Ãû³Æ" "XXÓÐÏÞ¹«Ë¾" "XXÓÐÏÞ¹«Ë¾""XXÓÐÏÞ¹«Ë¾""XXÓÐÏÞ¹«Ë¾""XXÓÐÏÞ¹«Ë¾") lst)
          lst (reverse lst)
    )
    (setq lst1 (mapcar 'car lst ) lst2 (cdr (car lst)) dclname (vl-filename-mktemp "re-dcl-tmp.dcl") f (open dclname "w"))
    (foreach x (list "RENAME:dialog {" "    label = \"²åÈë·ûºÅ\" ;" "  :edit_box  {  key = \"e01\" ;  }" "   :row {"
                     "        :list_box { key = \"e02\" ;  width = 15 ; height = 10 ;}"
                     "        :list_box { key = \"e03\" ;  width = 15 ; height = 10 ;allow_accept=true;}}" "    :row {"
                     "        :button {is_default = true ; key = \"e04\" ; label = \"È·ÈÏ\" ; }"
                     "        :button { is_cancel = true ; key = \"e05\" ; label = \"È¡Ïû\" ; }" "         }}" )
      (write-line x f))
    (close f)
    (setq dcl_re (load_dialog dclname))
    (new_dialog "RENAME" dcl_re)
    (show_list "e02" lst1)
    (if (null bz001) (setq bz001 "0"))
    (if (null bz002) (setq bz002 "0"))
    (set_tile "e02" bz001)
    (insdcl01 bz001)
    (action_tile "e02" "(insdcl01  $value  )  ")
    (action_tile "e03" "(insdcl02  $value  )  ")
    (action_tile "accept" "(setq dcl_pt (done_dialog 1))")
    (action_tile "cancel" "(setq dcl_pt (done_dialog 2))")
    (setq bb (start_dialog))
    (unload_dialog dcl_re)
    (vl-file-delete dclname)
    (if (= bb 1)
      (progn(if (setq x (cadr (assoc str0 (list '("§¶" "%%C") '("¡ã" "%%D") '("¡À" "%%P"))))) (setq str0 x))
        (if (setq x (cadr (assoc str0 (list '("ƽ·½" "2") '("Á¢·½" "3")))))
          (progn  (setq str0 " " h (dxf ent 40) pt3 (polar pt2 (+ rr 1.42) (* 0.6 h)))
            (entmake (emod (emod (emod (cdr ent) 40 (* 0.5 h)) 10 pt3) 1 x))))
        (entmod (emod ent 1 (strcat str1 str0 str2)))
        (if name2 (entdel name2))
        (setq loop nil)))
    (if (and (= bu 2) (= bb 0))(exit))
  )
  (defun dxf (ent n)                     
    (if (= (type ent) 'ename)(setq ent (entget ent))) (cdr (assoc n ent)))
  (defun emod (ent i n)                     
    (subst (cons i n)(assoc i ent) ent ))
  (setq $orr *error* *error* #errins )
  (setvar "cmdecho" 0)                       ; Ö÷³ÌÐò
  (command ".UNDO" "BE")
  (princ "\n Ñ¡Ôñµ¥ÐÐÎı¾,»òÓÒ¼ü:")
  (setq loop t        bu 1)
  (while loop
    (setq gr (grread t 15 2) pt (cadr gr))
    (cond
      ((= (car gr) 3)
        (setq d (* (/ (getvar "viewsize") (cadr (getvar "screensize"))) (getvar "pickbox")))
        (setq ptlst (list (jspt pt d d) (jspt pt (* -1 d) d) (jspt pt (* -1 d) (* -1 d)) (jspt pt d (* -1 d)) (jspt pt (* -1 d) d)))
        (if (setq ss (ssget "F" ptlst '((0 . "TEXT")))) (setq name (ssname ss 0)loop nil )))
      ((member (car gr) '(11 25))
        (command "text" '(0.0 0.0) "" 0.0 "¢ñ" )
        (setq name (entlast)   bu 2  loop nil))))
  (setq ent (entget name)str (dxf ent 1)pt0 (dxf ent 10)rr (dxf ent 50)        str1 ""        loop t        i 0 )
  (if (= bu 2)
    (progn
      (setq str2 "")
      (insdcl)
      (setq loop t)
      (while loop
        (setq gr (grread t 15 0)  data (cadr gr))
        (cond
          ((= (car gr) 3) (setq loop nil))
          ((= (car gr) 5) (entmod (emod (emod ent 1 str0) 10 data)))
          ((member (car gr) '(11 25)) (setq loop nil)  (exit))))))
  (princ "\n Ö¸¶¨¹â±êλÖûò [×óÒÆ(A)/ÓÒÒÆ(D)/È·¶¨(S)]:")
  (while loop
    (setq i (1+ i))
    (if (> (ascii (substr str i 1)) 160) (setq i (1+ i)))
    (setq str1 (substr str 1 i)  str2 (substr str (1+ i)) pt2 (polar pt0 rr (car (cadr (textbox (emod ent 1 str1))))))
    (cond
      ((or(>= i (strlen str))(>= (car pt2) (car pt)))
        (entmod (emod ent 1 (strcat str1 " " str2)))
        (if (assoc 62 ent)
          (setq ent1 (emod (cdr ent) 62 6))
          (setq ent1 (append (cdr ent)(list (cons 62 6)))))
        (entmake (emod (emod ent1 1 "¢ñ") 10 pt2))
        (setq name2 (entlast) loop nil)
        (redraw name2 3))))
  (if name2 (setq ent2 (entget name2) loop t ))
  (while loop
    (setq gr (grread t 15 0) code (car gr) data (cadr gr))
    (cond
      ((= code 2)                       ; ¼üÅÌ
        (cond
          ((member (vl-list->string (cdr gr)) '("A" "a"))
            (if (<= i 0)  (setq i (1+ (strlen str))))
            (setq i (1- i))
            (if (> (ascii (substr str (1+ i) 1)) 160) (setq i (- i 1)))
            (if (= i 0)
              (setq str1 "" pt2 pt0 )
              (setq str1 (substr str 1 i) pt2 (polar pt0 rr (car (cadr (textbox (emod ent 1 str1)))))))
            (setq str2 (substr str (1+ i)))
            (entmod (emod ent 1 (strcat str1 " " str2)))
            (entmod (emod ent2 10 pt2))
            (redraw name2 3))
          ((member (vl-list->string (cdr gr)) '("D" "d"))
            (setq i (1+ i))
            (if (> (ascii (substr str i 1)) 160) (setq i (1+ i)))
            (if (> i (strlen str)) (setq i 0 str1 "" pt2 pt0 )
              (setq str1 (substr str 1 i) pt2 (polar pt0 rr (car (cadr (textbox (emod ent 1 str1)))))))
            (setq str2 (substr str (1+ i)))
            (entmod (emod ent 1 (strcat str1 " " str2)))
            (entmod (emod ent2 10 pt2))
            (redraw name2 3))
          ((member (vl-list->string (cdr gr)) '("S" "s"))
            (insdcl))))
      ((= code 3)                       ; ×ó»÷
        (if (> (car data) (car (dxf name2 10)))
          (setq pt (list (- (car data) (car (cadr (textbox (emod ent 1 "¢ñ"))))) (cadr pt0)))
          (setq pt (list (car data) (cadr pt0))))
        (setq loop t  str1 "" i 0)
        (while loop
          (setq i (1+ i) j (car (cadr (textbox (emod ent 1 "¢ñ")))))
          (if (> (ascii (substr str i 1)) 160) (setq i (1+ i)  j (* 2 j)))
          (setq str1 (substr str 1 i) str2 (substr str (1+ i))
                pt2 (polar pt0 rr (car (cadr (textbox (emod ent 1 str1))))))
          (cond ((or (>= i (strlen str))(>= (+ (car pt2) j) (car pt))) (setq loop nil))))
        (if (< (car data) (car pt0)) (setq str1 "" pt2 pt0 i 0 ))
        (setq str2 (substr str (1+ i)))
        (entmod (emod ent 1 (strcat str1 " " str2)))
        (entmod (emod ent2 10 pt2))
        (redraw name2 3)
        (setq loop t) )
      ((member code '(11 25))               ; ÓÒ»÷
        (insdcl))))
  (setq *error* $orr)
  (command ".UNDO" "E")
  (princ)
)

xyp1964

http://bbs.mjtd.com/forum.php?mod=attachment&aid=MTEyMDY0fDRhOWUwYTI4MTQ2ZGQyNTNmYmU1YzdiMzNlYjVmYzAyfDE3NDc2NDQyMDU%3D&request=yes&_f=.png

ÒÀȻССÄñ

taoyi0727 ·¢±íÓÚ 2018-9-5 13:23
ºÃ¶«Î÷  Ñо¿ÏÂ

´óÉñÕæÊǺÃѧѽ  

819534890

Ì«ºÃÁË£¬ÕýÐèÒªÕâ¸ö

wzg356

¿ìÌø³öÀ´°É

lucas_3333

Ö§³ÖÀÉ´óʦ£¡

Сʦ¸µ

Ì«ºÃÁË£¬Ñ§Ï°Ò»ÏÂ

429014673

¿´¿´£¬»Ø¸´¿´¿´

vlisp2012

Ï£À°×ÖĸµÈÒ²¼ÓÈë°¡¡£

lz123456

лл£¬ÕýÐèÒªÕâ¸ö

qyming

»Ø¸´¿´Ìû£¬

×Ô¹±»ÆÃ÷Èå

ѧϰѧϰÔÙѧϰ