.....................................

贱人

.....................................

xyp1964

[php]
(load "xyp_lib")                        ;加载通用函数
;|
如果已经下载xyp_lib并放到搜索路径下可以不再下载!
利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
1.在每个程序内增加(load"xyp_lib")
2.在acad.lsp中增加(load"xyp_lib")
3.在command下，输入(load"xyp_lib")
4.在菜单.mnl中增加(load"xyp_lib")
通用函数下载地址：http://www.xdcad.net/forum/showthread.php?s=&threadid=325268
|;

;;;文字改序列
(defun c:test ()
  (cmdla0)
  (setq        no1 (ureal 1 "" "\n初始值" no1)
        nv  (- no1 1)
  )
  (while (setq s1 (entsel "\n选择文本: "))
    (setq s1 (car s1)
          nv (+ nv 1)
          txt (rtos nv 2)
    )
    (sub_upd s1 1 txt)
  )
  (cmdla1)
)
[/php]

贱人

.....................................

xyp1964

[php]
;;;文字改序列
(defun c:test ()
  (setq        no1 (ureal 1 "" "\n初始值" no1)
        nv  (- no1 1))
  (while (setq s1 (entsel "\n选择文本: "))
    (setq s1  (car s1)
          nv  (+ nv 1)
          txt (rtos nv 2))
    (sub_upd s1 1 txt)))
(defun ureal (bit kwd msg def / inp)
  (if def
    (setq msg (strcat "\n" msg "<" (rtos def 2) ">: ")
          bit (* 2 (fix (/ bit 2))))
    (setq msg (strcat "\n" msg ": ")))
  (initget bit kwd)
  (setq inp (getreal msg))
  (if inp inp def))
(defun sub_upd (ename code new-value)
  (setq        cc (subst (cons code new-value)
                  (assoc code (entget ename))
                  (entget ename)))
  (entmod cc)
  (entupd ename))
[/php]

贱人

.....................................

xyp1964

[php]
;;;文字改序列
(defun c:test ()
  (setq no1 (ureal 1 "" "\n初始值" 1) nv (- no1 1))
  (while (setq s1 (entsel "\n选择文本<退出> : "))
    (if (or(= (dxf 0 (entget(car s1)))"TEXT")(= (dxf 0 (entget(car s1)))"MTEXT"))
        (progn (setq s1  (car s1)nv  (+ nv 1)txt (rtos nv 2))(sub_upd s1 1 txt)))))
(defun ureal (bit kwd msg def / inp)
  (if def
    (setq msg (strcat "\n" msg "<" (rtos def 2) ">: ")bit (* 2 (fix (/ bit 2))))
    (setq msg (strcat "\n" msg ": ")))
  (initget bit kwd)
  (setq inp (getreal msg))
  (if inp inp def))
(defun sub_upd (ename code new-value)
  (setq cc (subst (cons code new-value)(assoc code (entget ename))(entget ename)))
  (entmod cc)
  (entupd ename))
(defun dxf (code elist) (cdr (assoc code elist)))
[/php]