llsheng_73 发表于 2013-4-1 01:08 static/image/common/back.gif
先把这段时间忙过，把手里的事情了结一下，一定要弄个6楼那样的东东出来，还不信了，人家都在用了还真弄不 ...
期待啊 ，完事了给我用一下呗，我也在忍受着.....
朋友工具在哪里下载？可分享一下吗
呵呵，这个我正在研发中，不久就出来了！
测量成图剖面计算(CAD成图)
1、批量展点名称 点坐标 点序号 点高程或只展点位 Excel文件展点。
2、生成三角网 三角网保存和读取操作。
3、生成等高线 提取等高线生成数据文件
4、剖面计算 绘制剖面图 面积计算 方量计算
5、生成三维展点文件及图面生成表格、提取坐标到 Excel
6、交点计算 前方交会 后方交会 极坐标计算 坐标正反算
7、坐标标注 弧长标注 角度标注 分数线注记 距离方位角标注
8、图层操作
9、地形图等高线高程值修改 归零 等高线赋值 彩色区分高程
10、PC-E500测量常用程序
其它：
连接多段线 多段线续接 多义线增加顶点 多义线减少顶点 多义线抽稀顶点
文字处理，文字智能避让，绘文字外框
全站仪数据传输
数据转换
生成图框 方格网
绘铁路
设置系统变量
......
下载地址：http://pmq.ys168.com/
继续顶这个话题的现在高程点和等高线是做内业修饰的很棘手的问题 研究 期待吧大家努力了
(defun c:gcdg()
(command "undo" "be")
(command "zoom" "e")
(setvar "lwdisplay" 1)
(setq blc (getvar "userr1"))
(setq scmde (getvar "osmode"))
(setvar "osmode" 0)
(setq lay_name (getstring "\n检查高程点与等高线间点线矛盾 请输高程点所在图层<GCD>:"))
(if (= lay_name "") (setq lay_name "GCD"))
(setq pts0 (ssget (list (cons 0 "INSERT")(cons 8 lay_name))))
(command "layer" "off" "*" "y" "on" "DGX" "")
(setq count 0)
(while (< count (sslength pts0))
(setq pts (ssname pts0 count))
(setq pts1 (entget pts))
(while pts1
(if (= (caar pts1) 10)(setq pt (cdar pts1)))
(setq pts1 (cdr pts1))
);while
(setq h (nth 2 pt) xx (nth 0 pt) yy (nth 1 pt))
(setq xx0 (- xx 2) xx1 (+ xx 2)yy0 (- yy 2) yy1 (+ yy 2))
(setq p1 (list xx yy) ppt0 (list xx0 yy0) ppt1 (list xx1 yy0) ppt2 (list xx1 yy1) ppt3 (list xx0 yy1))
(setq LW (list ppt0 ppt1ppt2ppt3))
(setq gg nil)
(setq ggdgx (ssget "cp" LW '((8 . "DGX") (-4 . "<or")(0 . "POLYLINE")(0 . "LWPOLYLINE")(-4 . "or>"))))
(if (/= ggdgx nil)
(progn
(setq h1 0.0 h2 0.0)
(setq pt2 (osnap p1 "_nea"))
(setq h1 (nth 2 pt2))
(setq pt21 (polar p1 (angle pt2 p1) 2));如等高线太稀将2改大（如4）
(setq pt22 (osnap pt21 "_nea"))
(if pt22 (setq h2 (nth 2 pt22)))
(if (and (/= h1 h2) (< (abs (- h1 h2)) 5.1))
(progn
(if (> h1 h2) (setq hjh h2 h2 h1 h1 hjh))
(command "lweight" "2")
(if (or (< h h1) (> h h2)) (command "circle" pt "5"))
))));;;end of if
(setq count (1+ count))
);while
(command "clayer" "0")
(setvar "osmode" scmde)
(command "layer" "on" "*" "")
(command "undo" "e")
(command "lweight" "bylayer")
(princ)
);defun
树櫴希德 发表于 2014-5-5 20:40 static/image/common/back.gif
(defun c:gcdg()
(command "undo" "be")
(command "zoom" "e")
不是我要的
学习一下谢谢楼主
dwjb 发表于 2011-6-20 21:14 static/image/common/back.gif
不知道那位老兄编的，转载哈，所有权不是我的
只要好用就行，不管是谁的所有权都得谢谢！
同求！！！！！！