新手求一个简单画图程序，请高手不吝赐教。

wong_。

先根据已知的两个点测出马路的宽度，然后利用马路一条边上的测量点，pline成线，然后根据马路的宽度平移这条线，就能生成马路的图形。请问这个程序该怎么写？谢谢！

hb198075

1. ;;;  plst-马路一条边上的测量点，pt-马路另一边上的任一点
   
2. (defun drawRoad        (plst pt / oldos oldoffset)
   
3.   (setq        oldos          (getvar "OSMODE")
   
4.         oldoffset (getvar "OFFSETDIST")
   
5.   )
   
6.   (setvar "OSMODE" 0)
   
7.   (setvar "OFFSETDIST" -1.0)
   
8.   (command "_.pline")
   
9.   (mapcar 'command plst)
   
10.   (command "")
    
11.   (command "_.OFFSET" "" (entlast) pt "")
    
12.   (setvar "OSMODE" oldos)
    
13.   (setvar "OFFSETDIST" oldoffset)
    
14. )
    
15. 
    
16. ;;;测试程序
    
17. (defun c:tt1 (/ tmp rel pt)
    
18.   (setvar "CMDECHO" 0)
    
19.   (while (setq tmp (if tmp
    
20.                      (getpoint tmp "\n请输入路边的控制点:")
    
21.                      (getpoint "\n请输入路边的控制点:")
    
22.                    )
    
23.          )
    
24.     (setq rel (cons tmp rel))
    
25.     (if        (> (length rel) 1)
    
26.       (grdraw (car rel) (cadr rel) 1 1)
    
27.     )
    
28.   )
    
29.   (if (and (> (length rel) 1)
    
30.            (setq pt (getpoint "\n请输入偏移点:"))
    
31.       )
    
32.     (drawRoad rel pt)
    
33.   )
    
34.   (redraw)
    
35.   (princ)
    
36. )
    

;;;  plst-马路一条边上的测量点，pt-马路另一边上的任一点<br /> (defun drawRoad        (plst pt / oldos oldoffset)<br />   (setq        oldos          (getvar "OSMODE")<br />         oldoffset (getvar "OFFSETDIST")<br />   )<br />   (setvar "OSMODE" 0)<br />   (setvar "OFFSETDIST" -1.0)<br />   (command "_.pline")<br />   (mapcar 'command plst)<br />   (command "")<br />   (command "_.OFFSET" "" (entlast) pt "")<br />   (setvar "OSMODE" oldos)<br />   (setvar "OFFSETDIST" oldoffset)<br /> )<br /> <br /> ;;;测试程序<br /> (defun c:tt1 (/ tmp rel pt)<br />   (setvar "CMDECHO" 0)<br />   (while (setq tmp (if tmp<br />                      (getpoint tmp "\n请输入路边的控制点:")<br />                      (getpoint "\n请输入路边的控制点:")<br />                    )<br />          )<br />     (setq rel (cons tmp rel))<br />     (if        (> (length rel) 1)<br />       (grdraw (car rel) (cadr rel) 1 1)<br />     )<br />   )<br />   (if (and (> (length rel) 1)<br />            (setq pt (getpoint "\n请输入偏移点:"))<br />       )<br />     (drawRoad rel pt)<br />   )<br />   (redraw)<br />   (princ)<br /> )<br />

wong_。

hb198075 发表于 2012-5-17 09:17

我这个先要利用已知的txt数据文件生成一条边，txt格式就是：点号，Ｘ坐标，Ｙ坐标，高程忽略。数据开始是两个控制点。后面的就是一条边上的点，这个怎么和这个程序联系起来？

mjz521yy

后面的就是一条边上的点，这个怎么和这个程序联系起来？

piao1887

这个主要是读取文本
READ-LINE 函数看一下

hb198075

你没提供文本格式，不好写清楚。
我这个是按如下文本格式写的，每行表示一个点，第一个点和第2个点表示计算宽度的两点，从第三点开始才是道路边线，点采用加逗号的形式表示。
还有，建议采用中线坐标点来制作会更简单些，采用边线制作的话还需要指定道路偏移方向的。

1. (defun drawRoad        (plst / oldos oldoffset width lst pt)
   
2.   (if (> (length plst) 3)
   
3.     (progn
   
4.       (setq oldos     (getvar "OSMODE")
   
5.             oldoffset (getvar "OFFSETDIST")
   
6.       )
   
7.       (setq width (DISTANCE (car plst) (cadr plst))
   
8.             lst          (cddr plst)
   
9.       )
   
10.       (setvar "OSMODE" 0)
    
11.       (command "_.pline")
    
12.       (mapcar 'command lst)
    
13.       (command "")
    
14.       (redraw (entlast) 4)
    
15.       (if (setq pt (getpoint "\n请给出道路偏移方向:"))
    
16.         (command "_.OFFSET" width (entlast) pt "")
    
17.       )
    
18.       (redraw)
    
19.       (setvar "OSMODE" oldos)
    
20.       (setvar "OFFSETDIST" oldoffset)
    
21.     )
    
22.   )
    
23. )
    
24. 
    
25. ;;;测试程序
    
26. (defun c:tt2 (/ fpath f pttmp ptlst oldos)
    
27.   (setvar "OSMODE" 0)
    
28.   (defun stringToPoint (str / n ix iy rel)
    
29.     (if        (setq n (VL-STRING-SEARCH "," str))
    
30.       (setq ix        (substr str 1 n)
    
31.             iy        (substr str (+ n 2) (- (strlen str) n 1))
    
32.             rel        (list (atof ix) (atof iy))
    
33.       )
    
34.     )
    
35.   )
    
36.   (setvar "CMDECHO" 0)
    
37.   (and (setq fpath (getfiled "请选择道路坐标点文件:" "" "txt" 4))
    
38.        (setq f (open fpath "r"))
    
39.        (progn
    
40.          (while        (setq pttmp (read-line f))
    
41.            (if (setq pt (stringToPoint pttmp))
    
42.              (setq ptlst (cons pt ptlst))
    
43.            )
    
44.          )
    
45.          (close f)
    
46.        )
    
47.   )
    
48.   (drawroad (REVERSE ptlst))
    
49.   (princ)
    
50. )

(defun drawRoad        (plst / oldos oldoffset width lst pt)<br />   (if (> (length plst) 3)<br />     (progn<br />       (setq oldos     (getvar "OSMODE")<br />             oldoffset (getvar "OFFSETDIST")<br />       )<br />       (setq width (DISTANCE (car plst) (cadr plst))<br />             lst          (cddr plst)<br />       )<br />       (setvar "OSMODE" 0)<br />       (command "_.pline")<br />       (mapcar 'command lst)<br />       (command "")<br />       (redraw (entlast) 4)<br />       (if (setq pt (getpoint "\n请给出道路偏移方向:"))<br />         (command "_.OFFSET" width (entlast) pt "")<br />       )<br />       (redraw)<br />       (setvar "OSMODE" oldos)<br />       (setvar "OFFSETDIST" oldoffset)<br />     )<br />   )<br /> )<br /> <br /> ;;;测试程序 <br /> (defun c:tt2 (/ fpath f pttmp ptlst oldos)<br />   (setvar "OSMODE" 0)<br />   (defun stringToPoint (str / n ix iy rel)<br />     (if        (setq n (VL-STRING-SEARCH "," str))<br />       (setq ix        (substr str 1 n)<br />             iy        (substr str (+ n 2) (- (strlen str) n 1))<br />             rel        (list (atof ix) (atof iy))<br />       )<br />     )<br />   )<br />   (setvar "CMDECHO" 0)<br />   (and (setq fpath (getfiled "请选择道路坐标点文件:" "" "txt" 4))<br />        (setq f (open fpath "r"))<br />        (progn<br />          (while        (setq pttmp (read-line f))<br />            (if (setq pt (stringToPoint pttmp))<br />              (setq ptlst (cons pt ptlst))<br />            )<br />          )<br />          (close f)<br />        )<br />   )<br />   (drawroad (REVERSE ptlst))<br />   (princ)<br /> )