[下载]：！！！常青藤升级到1.70，支持AutoCAD2000及以上各个版本，包括表格处理、批

ychq

期待新版本

suruijie

很可惜我用的是98

jsrlb

老大，俺用啦一段时间啦，感觉非常不错，给个注册号吧。
俺的　本机序列号:8A013BAE
俺的邮箱：
jsrlb@sina.com
jsrlb@163.com
谢谢啊。

txc168

坐标标注的时候能不能增加形成表格呢？谢谢，这个工具非常好用

ivysoft

To txc168：目前不能，如果提出该建议的用户比较多，以后会加上
To jsrlb ：明天发送给你
To hao3ren：应该不会，但不保证

cq_qg

新版什么时候发布？等了好久了。

hsb-hy

楼主，好久没来了，什么时候升级啊？后天就六月了！

txzjtxzj

希望增加对属性块自动编号，附一个程序可参考
(Defun c:SB (/ ss sscnt slist sname blkattlist blkattval newval)
(setvar "cmdecho" 0)
(command ".undo" "BE")
(princ "\n批量修改属性块值自动编号")
(setq ss (ssget '((0 . "INSERT"))))
(setq sscnt (sslength ss) nno 0)
(setq pd1 (cdr (assoc 10 (entget (ssname ss 0)))))
(setq pd2 (cdr (assoc 10 (entget (ssname ss 1)))))
(setq ang_pd (angle pd1 pd2))

(cond ((= ang_pd (* pi 0.5)) (sort_nam_Y_mi_ma))
((= ang_pd (* pi 1.5)) (sort_nam_Y_mi_ma))
((or (/= ang_pd (* pi 0.5)) (/= ang_pd (* pi 1.5))) (sort_nam_X_mi_ma))
)
(setq attrib_val (getstring "\n输入起始值:"))
(setq ascii_val (ascii attrib_val))
(if (= attrib_val "") (progn (command ".undo" "E") (exit)))
(while (< nno sscnt)
(setq sname (nth nno list_ent))
(setq slist (entget sname))
(if (assoc 66 slist)
(progn
(setq blkattlist (entget (entnext sname)))
(setq newval
(cond
((< (atoi attrib_val) 3000) (itoa (+ (atoi attrib_val) nno)))
)
)

(setq blkattlist (subst (cons 1 newval) (assoc 1 blkattlist) blkattlist))
(entmod blkattlist)
(entupd sname)
);progn
);if
(setq nno (1+ nno))
);while
(command ".undo" "E")
(setvar "cmdecho" 1)
(princ)
)


;-----------------------------------------------
;;;;;;;;;根据X坐标从小到大将所选图元排序;;;;;;;;
;-----------------------------------------------
(defun sort_nam_X_mi_ma ()
(setq n (sslength ss))
(setq list_ent nil)
(setq m 0)
(while (< m n)
(setq list_ent (append list_ent (list (ssname ss m))))
(setq m (1+ m))
)
(setq l 0)
(setq m 1)
(while (< l n)
(setq b (nth l list_ent))
(while (< m n)
(setq c (nth m list_ent))
(if (< (nth 1 (assoc 10 (entget c))) (nth 1 (assoc 10 (entget b))))
(progn
(setq list_ent (subst 'aa (nth l list_ent) list_ent))
(setq list_ent (subst 'bb (nth m list_ent) list_ent))
(setq list_ent (subst c 'aa list_ent))
(setq list_ent (subst b 'bb list_ent))
(setq b c)   


)
)
(setq m (1+ m))
)
(setq l (1+ l))
(setq m (1+ l))
)
);end defun


;-----------------------------------------------
;;;;;;;;;根据Y坐标从小到大将所选图元排序;;;;;;;;
;-----------------------------------------------
(defun sort_nam_Y_mi_ma ()
(setq n (sslength ss))
(setq list_ent nil)
(setq m 0)
(while (< m n)
(setq list_ent (append list_ent (list (ssname ss m))))
(setq m (1+ m))
)
(setq l 0)
(setq m 1)
(while (< l n)
(setq b (entget (nth l list_ent)))
(while (< m n)
(setq c (entget (nth m list_ent)))
(if (< (nth 2 (assoc '10 c)) (nth 2 (assoc '10 b)))
(progn
(setq list_ent (subst 'aa (nth l list_ent) list_ent))
(setq list_ent (subst 'bb (nth m list_ent) list_ent))
(setq list_ent (subst c 'aa list_ent))
(setq list_ent (subst b 'bb list_ent))
(setq b c)
)
)
(setq m (1+ m))
)
(setq l (1+ l))
(setq m (1+ l))
)
);end defun

ivysoft

真心感谢大家的支持，升级定在6月2日早上，6月1日晚上停止下载。敬请关注！
To txzjtxzj：非常感谢，我将尽早实现你的建议

木子涛

听到楼主要升级的要求，真是万分的心喜，看到此消息的人都要来发表评论，要 让ivysoft 的帖子是最近最红的贴子。
大家顶呀！

nxwjb

非常支持,但不知道升级程序是什么样的,都有哪些变化?期待中.......另外,我的机子的硬盘号不知搞出来没,我现在还没注册,一个月马上就到了,让楼主费心了.5A3B3B22     nxwjb@sina.com

ychq

真是万分的心喜

zdz79

不错啊,期待新的

ivysoft

今天是6月1日，公布一下五月份的注册情况，如下：
一月份注册9个
二月份注册21个
三月份注册71个
四月份注册140个
五月份注册128个

cq_qg

太好了，明天就可以升级了，恭喜常青藤了，希望用户越来越多。期待新的版本新的功能。