求大神编个图号的程序

疯球

哪位大神如果有时间，请帮编一个图号的程序，原来图号为：图号1，图号2，图号3，图号4，修改为：图号（1/4），图号（2/4），图号（3/4），图号（4/4）

里面图号是固定的，插号里面的2个数都是变动的，求代码，可付费,请大神操刀QQ515326583

叮咚

上个CAD图纸，作为参考
也不知道你是属性块中的，还是多行文字，或者其他

疯球

叮咚 发表于 2019-8-3 19:11
上个CAD图纸，作为参考
也不知道你是属性块中的，还是多行文字，或者其他

好的，已上传

叮咚

先说你这个帖子，
你发的CAD中，图框是明显炸开过的。图名前面是XXXX,是没有规律的。
接下来说一些其他的。




看了你发的所有帖子，都是求插件的。
很多人不想做，是觉得麻烦。
一切都不如给钱来的实在。




代做插件，付费的
1020952830


上个帖子，求加前后缀的

疯球

很感谢这个平台给提供了很多的方便

whhhx7450

楼主你看是不是这样就可以了
要先把你的图框转化为块，或者是图框文件才可以运行程序

Kye

2. [code=lisp](defun LM:editbox ( str / han )
   
3.     (and (< 0 (setq han (load_dialog "acad")))
   
4.          (new_dialog  "acad_txtedit" han)
   
5.          (set_tile    "text_edit"    str)
   
6.          (action_tile "text_edit" "(setq str $value)")
   
7.          (if (zerop (start_dialog)) (setq str nil))
   
8.     )
   
9.     (if (< 0 han) (unload_dialog han))
   
10.     str
    
11. )
    
12. 
    
13. (defun c:qe ( / ent enx str );_by LEE MAC
    
14.     (if (and (setq ent (car (nentsel)))
    
15.              (wcmatch  (cdr (assoc 0 (setq enx (entget ent)))) "*TEXT,ATTRIB")
    
16.              (setq str (LM:editbox  (cdr (assoc 1 enx))))
    
17.              (entmod (subst (cons 1 str) (assoc 1 enx) enx))
    
18.         )
    
19.         (entupd ent)
    
20.     )
    
21.     (princ)
    
22. )

[code=lisp](defun LM:editbox ( str / han )<br />     (and (< 0 (setq han (load_dialog "acad")))<br />          (new_dialog  "acad_txtedit" han)<br />          (set_tile    "text_edit"    str)<br />          (action_tile "text_edit" "(setq str $value)")<br />          (if (zerop (start_dialog)) (setq str nil))<br />     )<br />     (if (< 0 han) (unload_dialog han))<br />     str<br /> )<br /> <br /> (defun c:qe ( / ent enx str );_by LEE MAC<br />     (if (and (setq ent (car (nentsel)))<br />              (wcmatch  (cdr (assoc 0 (setq enx (entget ent)))) "*TEXT,ATTRIB")<br />              (setq str (LM:editbox  (cdr (assoc 1 enx))))<br />              (entmod (subst (cons 1 str) (assoc 1 enx) enx))<br />         )<br />         (entupd ent)<br />     )<br />     (princ)<br /> )

[/code]
楼主给的图纸,用这个程序就够了，手工改，多带劲-----------------
可参考这个 http://bbs.mjtd.com/forum.php?mod=viewthread&tid=111287稍微改下就可实现楼主的愿望,支持自己动手,昨天给的代码就撤了啊