用cass做地形图整饰，最大的工作量是移动高程点不压盖其他图元，求，高程点智能避让

awd37

llsheng_73 发表于 2013-4-1 01:08
先把这段时间忙过，把手里的事情了结一下，一定要弄个6楼那样的东东出来，还不信了，人家都在用了还真弄不 ...

期待  啊 ，完事了给我用一下呗，我也在忍受着.....

Believes_its

朋友工具在哪里下载？可分享一下吗

ds-limt

呵呵，这个我正在研发中，不久就出来了！

pmq

测量成图剖面计算(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 ppt1  ppt2  ppt3))
(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

dwjb

树櫴希德 发表于 2014-5-5 20:40
(defun c:gcdg()     
(command "undo" "be")
(command "zoom" "e")

不是我要的

王辉

学习一下  谢谢楼主

ji3499222

dwjb 发表于 2011-6-20 21:14
不知道那位老兄编的，转载哈，所有权不是我的

只要好用就行，不管是谁的所有权都得谢谢！

wu112031853

同求！！！！！！