麻烦大家帮我看看这个程序怎么修改?

svikiyong

(defun c:read (/ h x y z p)
  (setq h(findfile "高程点.txt"))
  (setq g(open h "r"))
  (setq q(read-line g))
  (while (/= q  nil)
    (setq x(substr q 3 10))
    (setq y(substr q 16 10))
    (setq z(substr q 29))
    (setq p(strcat """" x "," y "," z """"))
    (command "point" p);在图上展点
    (setq q(read-line g))
  );while
  (close g)
)

我编写了一个上面的程序,用来把数据文件中的点展到图上

现在有两个问题:

1.如果把数据文件从CAD系统路径中换到其他地方,就找不到文件,程序无法继续了,请问应该怎么办?

2.为什么展上的点看不到?应该不是点样式的问题,是不是图形边界设置的问题?怎么设置?

麻烦大家帮我看看,在此多谢了~~

 

 

 

rainbows1999

你能把这个程序的用途再详细说一遍吗? 我有点不太明白? 还有你把文件放在放在那格目录下了?

ZZXXQQ

3. (defun c:read (/ h x y z p)
4.   (setq h "高程点")
5.   (setq h(getfiled "选择展点文件" h "txt" 2))
6.   (if h(progn
7.    (setvar "pdmode" 2)
8.    (setvar "pdsize" -2)
9.    (setq g(open h "r"))
10.    (while (setq q(read-line g))
11.     (setq x(substr q 3 10))
12.     (setq y(substr q 16 10))
13.     (setq z(substr q 29))
14.     (setq p(strcat """" x "," y "," z """"))
15.     (command "point" p);在图上展点
16.    );while
17.    (close g)
18.   ))
19.   (princ)
20. )

(defun c:read (/ h x y z p)   (setq h "高程点")   (setq h(getfiled "选择展点文件" h "txt" 2))   (if h(progn    (setvar "pdmode" 2)    (setvar "pdsize" -2)    (setq g(open h "r"))    (while (setq q(read-line g))     (setq x(substr q 3 10))     (setq y(substr q 16 10))     (setq z(substr q 29))     (setq p(strcat """" x "," y "," z """"))     (command "point" p);在图上展点    );while    (close g)   ))   (princ) )

77077

想求楼上的给修改一下楼上的程序！  
使得它能读取我的文件  
要求读取GIS文件内的点，然后根据出图比例生成一定宽度的PLING线并闭合！

;---------------------------------------------------------------
;功能 : 读取文本GIS文件，生成自定义的PL线。
;GIS文件内容形式为:   
; Y1;X1
; Y2;X2 
; Y3;X3   
; ……
; Yn;Xn
(defun c:GIS2PL (/ h x y z p)
  (setq gisname(getfiled "请选择GIS坐标数据文件" "" "GIS" 2))
  (if gisname(progn
   (setvar "pdmode" 2)
   (setvar "pdsize" -2)
   (setq gis(open gisname "r"))
   (while (setq q(read-line gis))
    (setq x(substr q 1 10))
    (setq y(substr q 12 10))
    (setq point(strcat """" y "," x """"))
    (command "pline" point);在图上画出pl线
   )
   (close gis)
  ))
  (princ)
)
;----------------------------------------------- 

zml84

;|;==============================================================
功能 : 读取文本坐标文件，生成PL线。
       文本坐标文件内容格式为:   
 Y1;X1
 Y2;X2 
 Y3;X3   
 ……
 Yn;Xn
 |;
;;;日期：zml84 于 2007-05-12
(defun
		c:GIS2PL	(/
		gisname
		gis
		str
		lst
		tmp
		x
		y
		point)

		(if	(setq
		gisname
		(getfiled
		"请选择GIS坐标数据文件"
		""
		"GIS"
		2))
	(progn
	    (setvar
		"pdmode"
		2)
	    (setvar
		"pdsize"
		-2)
	    (setq
		gis
		(open
		gisname
		"r"))
	    ;;设置多段线宽度
	    (setvar
		"PLINEWID"
		3.5)
	    ;;开始绘制多段线
	    (command
		"_.pline")
	    (while
		(and	(setq
		str
		(read-line
		gis))
			(wcmatch
		str
		"*;*")
		   )
		;;初始化
		(setq
		lst
		'()
		      tmp
		""
		      i	  1
		)
		;;判断分割符 ; 的位置并切割
		(while
		(/=
		(setq
		stri
		(substr
		str
		i
		1))
		"")
		    (if	(=
		stri
		";")
			(setq
		lst
		(cons
		tmp
		lst)
			      tmp
		""
			)
			(setq
		tmp
		(strcat
		tmp
		stri))
		    )
		    (setq
		i
		(1+
		i))
		)
		(setq
		lst
		(reverse
		(cons
		tmp
		lst)))

		;;形成点位坐标
		(if
		(>=
		(length
		lst)
		2)
		    (progn
		(setq
		x
		(atof
		(nth
		0
		lst))
				 y
		(atof
		(nth
		1
		lst))
				 point
		(list
		x
		y)
			   )
			   (command
		"non"
		point)
		    )
		)
	    )
	    ;;结束绘制
	    (command
		"c")
	    (close
		gis)
	)

		)

		(princ)
)

77077

谢谢楼上，不过就是有点乱了！

zml84

这里格式是好的：http://zml84.blog.sohu.com/45783535.html