选取属性和起始数字，更新属性实体添加后缀并+1

newer · 发表于 2016-9-30 14:14:36

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

选取属性和起始数字，连续更新属性实体添加后缀并+1

(defun c:qs (/ ans st nw oerr e1 e2 natt)
(setq oerr *error*)
(defun *error* (msg)
(princ "\n ERROR!")
(setq *error* oerr)
(command)
(princ)
)
(if ns
(princ (strcat "\n 上次的文本 = " ns (itoa stt)))
)
(if ns
(setq ans (getstring "\n 保留以前的文本? [ENTER = yes]: "))
)
(if (= ans "")
()
(setq ns nil
st nil
)
)
(if ns
()
(setq ns (getstring t "\n Type in new text: "))
)
(if stt
()
(setq stt 1)
)
(princ "\n 起始数字 < ")
(princ stt)
(princ " >?: ")
(setq st (getint))
(if (= st nil)
(setq st stt)
(setq stt st)
)
(setq e1 (nentsel "\n 选择属性实体: "))
(while e1
(cond
((< st 10)
(setq nw (strcat ns "" (itoa st)))
)
((< 9 st 100)
(setq nw (strcat ns "0" (itoa st)))
)
((> st 99)
(setq nw (strcat ns (itoa st)))
)
(t
nil
)
)
(setq e2 (entget (setq natt (car e1))))
(entmod (subst
(cons 1 nw)
(assoc 1 e2)
e2
)
)
(entupd natt)
(if (eq (cdr (assoc 0 e2)) "ATTRIB")
(setq st (+ 1 st))
(princ "\n You missed! ")
)
(if st
(setq nw (strcat ns (itoa st))
stt st
)
)
(setq e1 (nentsel "\n 选择下一个属性实体或回车退出: "))
)
(princ)
)

(defun c:qs (/ ans st nw oerr e1 e2 natt) 
  (setq oerr *error*) 
  (defun *error* (msg) 
    (princ "\n ERROR!") 
    (setq *error* oerr) 
    (command) 
    (princ) 
  ) 
  (if ns 
    (princ (strcat "\n 上次的文本 = " ns (itoa stt))) 
  ) 
  (if ns 
    (setq ans (getstring "\n 保留以前的文本? [ENTER = yes]: ")) 
  ) 
  (if (= ans "") 
    () 
    (setq ns nil 
    st nil 
    ) 
  ) 
  (if ns 
    () 
    (setq ns (getstring t "\n Type in new text: ")) 
  ) 
  (if stt 
    () 
    (setq stt 1) 
  ) 
  (princ "\n 起始数字 < ") 
  (princ stt) 
  (princ " >?: ") 
  (setq st (getint)) 
  (if (= st nil) 
    (setq st stt) 
    (setq stt st) 
  ) 
  (setq e1 (nentsel "\n 选择属性实体: ")) 
  (while e1 
    (cond 
      ((< st 10) 
  (setq nw (strcat ns "" (itoa st))) 
      ) 
      ((< 9 st 100) 
  (setq nw (strcat ns "0" (itoa st))) 
      ) 
      ((> st 99) 
  (setq nw (strcat ns (itoa st))) 
      ) 
      (t 
  nil 
      ) 
    ) 
    (setq e2 (entget (setq natt (car e1)))) 
    (entmod (subst 
        (cons 1 nw) 
        (assoc 1 e2) 
        e2 
      ) 
    ) 
    (entupd natt) 
    (if (eq (cdr (assoc 0 e2)) "ATTRIB") 
      (setq st (+ 1 st)) 
      (princ "\n You missed! ") 
    ) 
    (if st 
      (setq nw (strcat ns (itoa st)) 
      stt st 
      ) 
    ) 
    (setq e1 (nentsel "\n 选择下一个属性实体或回车退出: ")) 
  ) 
  (princ) 
)

游客，如果您要查看本帖隐藏内容请回复

HLCAD · 发表于 2016-9-30 15:24:59

向版主学习程序，感谢版主！！！

qqqincccken · 发表于 2016-9-30 19:09:31

谢谢提供,学习了!!!!!!!!!

lj524917100 · 发表于 2016-9-30 21:48:57

谢谢提供,学习了!!

tmwall · 发表于 2016-9-30 22:57:01

感谢分享。。。。。。。。。。。。

Lispboy · 发表于 2016-10-1 01:09:15

向N版学习！

longer1000 · 发表于 2016-10-1 08:45:20

向版主学习程序，感谢版主！！！

sh_h · 发表于 2016-10-1 14:25:59

感谢分享！

yoyoho · 发表于 2016-10-5 14:14:11

向 N版学习程序，感谢您!!!!!

lxaly672261 · 发表于 2016-11-18 14:46:02

正好需要呀！！！

xc3324689 · 发表于 2016-11-30 11:28:19

感谢版主！！！

春天里的蛋蛋 · 发表于 2016-12-4 14:04:32

楼主辛苦了，看看好东西。

ray7891 · 发表于 2016-12-4 15:05:31

向版主学习。。

363026899 · 发表于 2017-9-15 15:11:18

学习。。。。。。。。。。。。。。。。。。。。。。。。。。。。。

fangzheng158 · 发表于 2017-9-17 09:41:22

向版主学习程序，感谢版主！！！

账号		自动登录	找回密码
密码			立即注册

[每日一码] 选取属性和起始数字，更新属性实体添加后缀并+1

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

评分