求教 如何让提取的坐标与原坐标点号一致

hkhbs

CASS上也一样 往往提取的坐标都是重新的编号  提取的坐标为 点号，X，Y,H  却无法与原点号对应起来 那个大神有此类插件  能框选坐标生成后与原坐标展点号一致  谢谢！！！！

蓝图测绘

读取该点的CASS扩展属性“NAME”作为点号即可

fanbinglong

q3_2006 发表于 2016-6-21 10:42
用原点号排序不就行了..这有什么难度

我有个方法可以解决用不到程序。EXL和一个程序插件就能完全解决。首先将原点号变成高程点，导出到EXL筛选以X坐标列筛选排序，在将重新提出的坐标以X坐标列筛选排序。剩下的就是复制粘贴了。另附插件一份。

yjycad

hkhbs 发表于 2016-7-7 09:29
代码不是我的啊  没版权  不敢拿出来共享  高手搞这个貌似很简单

希望能够分享一下！谢谢，这个很有用

hkhbs

订贴  顶贴  别沉了

q3_2006

用原点号排序不就行了..这有什么难度

hkhbs

不是你想的那样 展的点的顺序 和再重新提取的顺序编号有可能是不一样的  原点号也有可能是带字母的啊      而重新提取的是大都是数字编号   CASS 也可以弄 但好好多步骤 不能框选 所以很麻烦

hkhbs

别沉了麻烦

hkhbs

    ;;;;读取桩基的编号文本，将编号作为点号
    (defun c:TQWZZB()
       (princ "\n选择所需输出的点（point）:")
       (setq ss (ssget ));;选取坐标点
       (setq n (sslength ss ));计算坐标点数量
            (setq ff (open (getfiled "文件保存为" "f:/" "dat" 1) "w"));保存路径
       (setq i 0)
       (repeat n
      (setq spt (ssname ss i ))
        (setq ept (entget spt))
        (if (= (cdr (assoc 0 ept)) "TEXT")
         (progn
                                        (setq lxyz (cdr (assoc 10  ept)))
    setq sx (rtos (nth 1 lxyz)));将坐标值实数转换成字符
    (setq sX11 (rtos sx1 2 3))
           (setq sy (rtos (nth 0 lxyz)2 3))
           (setq sz (rtos (nth 2 lxyz)2 3))
                                            (setq i1 (+ i 1));计算点序号
                                            (setq sn (rtos i1 2 0));将序号实数转换成字符
    ;;获取文本内容（编号）做点号
    (setq ent (entget (ssname ss i)))
    (setq typeA (cdr (assoc 1 ent)))
    ;;;;
           (setq sxyz (strcat typeA"," sn ","  sy ","  sx  ","  sz))
           (write-line sxyz ff)
        )
        )
        (setq i (+ i 1))
       );repeat
    )
    (prompt "*只适合TEXT点 << 命令:TQWZZB >> *输出格式（点号,, Y，X，Z）**")
    (prin1)
这是skg123老师的源码  运行显示语法错误  提取的和实际的坐标不一致  麻烦蓝图老师看下 谢谢

ji3499222

其实CASS就可以手动逐个点取所有的桩位坐标并按点取顺序编号，自己可以试一下。

hkhbs

知道  只是读取的是 点号  X Y  没有高程  如要读取高程 需要再生成一遍再合起来 比较麻烦 而且不能随意选

陈进佳

781849579