求大神编个图号的程序
本帖最后由 疯球 于 2019-8-5 20:26 编辑哪位大神如果有时间，请帮编一个图号的程序，原来图号为：图号1，图号2，图号3，图号4，修改为：图号（1/4），图号（2/4），图号（3/4），图号（4/4）
里面图号是固定的，插号里面的2个数都是变动的，求代码，可付费,请大神操刀QQ515326583
上个CAD图纸，作为参考
也不知道你是属性块中的，还是多行文字，或者其他 叮咚 发表于 2019-8-3 19:11
上个CAD图纸，作为参考
也不知道你是属性块中的，还是多行文字，或者其他
好的，已上传 本帖最后由 叮咚 于 2019-8-4 08:23 编辑
先说你这个帖子，
你发的CAD中，图框是明显炸开过的。图名前面是XXXX,是没有规律的。
接下来说一些其他的。
static/image/hrline/1.gif
看了你发的所有帖子，都是求插件的。
很多人不想做，是觉得麻烦。
一切都不如给钱来的实在。
static/image/hrline/5.gif
代做插件，付费的
1020952830
static/image/hrline/5.gif
上个帖子，求加前后缀的
很感谢这个平台给提供了很多的方便 楼主你看是不是这样就可以了
要先把你的图框转化为块，或者是图框文件才可以运行程序
本帖最后由 Kye 于 2019-10-1 16:17 编辑
(defun LM:editbox ( str / han )
(and (< 0 (setq han (load_dialog "acad")))
(new_dialog"acad_txtedit" han)
(set_tile "text_edit" str)
(action_tile "text_edit" "(setq str $value)")
(if (zerop (start_dialog)) (setq str nil))
)
(if (< 0 han) (unload_dialog han))
str
)
(defun c:qe ( / ent enx str );_by LEE MAC
(if (and (setq ent (car (nentsel)))
(wcmatch(cdr (assoc 0 (setq enx (entget ent)))) "*TEXT,ATTRIB")
(setq str (LM:editbox(cdr (assoc 1 enx))))
(entmod (subst (cons 1 str) (assoc 1 enx) enx))
)
(entupd ent)
)
(princ)
)
楼主给的图纸,用这个程序就够了，手工改，多带劲:lol-----------------
可参考这个 http://bbs.mjtd.com/forum.php?mod=viewthread&tid=111287稍微改下就可实现楼主的愿望,支持自己动手,昨天给的代码就撤了啊{:1_1:}
页:
[1]