编指定点生成数据

liuyonghui

能不能编一个跟CASS一样，指定点生成点号，坐标，高程的插件？

newer

不是每个人都用CASS的，你把要求详细的截图说明下吧。

liuyonghui

如图，生成指定点编码，坐标，高程到*.dat文件，且格式如图所示，在CAD图上标示所制定的点，指定点标示文字大小，样式可以调整。

newer

liuyonghui 发表于 2016-10-25 08:42

X坐标、Y坐标用反过来不？

有个写到EXCEL文件的，http://bbs.xdcad.net/thread-676646-1-1.html  去看下。

newer

楼主，从什么点生成DAT文件？ 点是从哪个实体得到的？ 就是POINT实体还是多段线的端点什么的？为节省时间，详细说下，把倾听你的人当是你专业的小白，你要告诉明白他你想做什么，从什么得到什么。还有你上传一个你专业的图纸，把数据实体和软件生成的数据都传上来。

Lispboy

给你一个把多段线顶点写到文件的代码

(defun c:tt ()
  (if (and
        (setq e (car (xdrx_entsel "\n拾取多段线<退出>:" '((0 . "*POLYLINE")))))
        (setq fn (xdrx_system_selectFiles "文件名" "" "dat" 1))
      )
    (progn
      (xdrx_begin)
      (xdrx_sysvar_push '("dimzin" 0))
      (setq i 0)
      (setq lst (mapcar
                  '(lambda (x)
                     (strcat (itoa (setq i (1+ i)))
                           "\t" (rtos (car x) 2 4)
                           "\t" (rtos (cadr x) 2 4)
                           "\t"
                           (rtos (caddr x) 2 4)
                     )
                   )
                  (xdrx_getpropertyvalue e "vertices")
                )
      )
      (xd::list:tofile (car fn) lst)
      (xdrx_sysvar_pop)
      (xdrx_end)
    )
  )
  (princ)
)