织梦电影网站模板下载,易语言如何建设网站,怎样制作免费网页,新手如何做网站的教程工程|标签#xff1a;|字号大中小订阅;该程序主要用于CAD点(point)三维坐标提取#xff0c;并将数据输出为CASS软件中使用的数据格式;输出格式#xff1a;点号,,测量Y值#xff0c;测量X值#xff0c;测量Z值例#xff1a;1,,100.3244,1232,433,25;2010-05-17;命令#…工程|标签|字号大中小订阅;该程序主要用于CAD点(point)三维坐标提取并将数据输出为CASS软件中使用的数据格式;输出格式点号,,测量Y值测量X值测量Z值例1,,100.3244,1232,433,25;2010-05-17;命令plzbsc(defun c:plzbsc()(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)) POINT)(progn(setq lxyz (cdr (assoc 10ept)))(setq sx (rtos (nth 1 lxyz)));将坐标值实数转换成字符(setq sy (rtos (nth 0 lxyz)))(setq sz (rtos (nth 2 lxyz)))(setq i1 ( i 1));计算点序号(setq sn (rtos i1 2 0));将序号实数转换成字符(setq sxyz (strcat sn,,sy ,sx,sz))(write-line sxyz ff)))(setq i ( i 1)));repeat)(prompt * 命令:plzbsc *输出格式(点号,, YXZ)**)(prin1)地形图上提取碎步点(高程点)坐标并输出到文本2010-05-18 08:50:38|分类
