开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 图形图像 > CAD > 查看源码
TIAO中文等高调整.LSP
资源名称：cadlisp1.rar　[点击查看]
上传用户：sd555111
上传日期：2014-05-17
资源大小：31k
文件大小：2k
源码类别：

CAD

开发平台：

MathCAD

TIAO中文等高调整.LSP：源码内容
  1. ;        =============================
  2. ;        |    中英文等高调整软件     |
  3. ;        | Ver: 1.0  作者: 尉迟俊岭  |
  4. ;        =============================
  5. (defun *error*(st)
  6.   (princ (strcat "Error: " st))
  7.   (princ)
  8. )
  10. (defun unt(s$ old$ new$ / osl nsl si st)
  11.   (setq osl (strlen old$)
  12.         nsl (strlen new$)
  13.         si 1)
  14.   (while (= osl (strlen (setq st (substr s$ si osl))))
  15.     (if (= st old$)
  16.       (setq s$ (strcat (substr s$ 1 (1- si)) new$ (substr s$ (+ si osl)))
  17.             si (+ si nsl)
  18.       )
  19.       (setq si (1+ si))
  20.     )
  21.   )
  22.   (setq txt s$)
  23. )
  25. (defun C:tiao( / test test1 test2 ss len n s en1 a ent nn
  26.                  txt stxt post)
  27.   (setvar "CMDECHO" 0)
  28.   (setq test T nn 0)
  29.   (while test
  30.     (setq ss (ssadd))
  31.     (setq ss (ssget))
  32.     (if (= nil ss)
  33.       (setq test nil)
  34.       (progn
  35. (setq len (sslength ss))
  36. (setq n 1 s 1)
  37. (while (<= n len)
  38.   (setq en1 (ssname ss (1- n)))
  39.   (setq a (entget en1))
  40.           (if (= "TEXT" (cdr (assoc 0 a)))
  41.     (progn
  42.               (setq txt (cdr (assoc 1 a)))
  43.               (unt txt "%%165" "")
  44.               (unt txt "%%166" "")
  45.               (setq post 1 stxt nil txt1 "" test1 nil test2 1)
  46.               (while (/= stxt "")
  47.                 (setq stxt (substr txt post 1))
  48.                 (if (and (> (ascii stxt) 160) (= test2 1))
  49.                   (progn
  50.                     (setq txt1 (strcat txt1 "%%165"))
  51.                     (setq test2 nil)
  52.                     (setq test1 1)
  53.                   )
  54.                 )
  55.                 (if (and (<= (ascii stxt) 160) (= test1 1))
  56.                   (progn
  57.                     (setq txt1 (strcat txt1 "%%166"))
  58.                     (setq test1 nil)
  59.                     (setq test2 1)
  60.                   )
  61.                 )
  62.                 (setq txt1 (strcat txt1 stxt))
  63.                 (setq post (1+ post))
  64.               )
  65.               (setq ent (subst (cons 1 txt1) (assoc 1 a) a))
  66.               (entmod ent)
  67.               (setq nn (1+ nn))
  68.     )
  69.   )
  70.   (setq n (1+ n))
  71. )
  72.       )
  73.     )
  74.   )
  75.   (princ (strcat (itoa nn) " 变化数 !"))
  76.   (princ)
  77. )