[求助]编一个测量中绘制围墙的程序

meflying

你想想看，如果是一个封闭的墙，内墙的周长和外墙的周长是不同的，如果你给出一个周长（用鼠标点取也一样），那这个周长是内墙的长还是外墙的长？

lihongyu2467

其实测绘中的围墙不是这样复杂，也没有内墙和外墙之分，在成序中只用Pline线画出即可，只是要每隔10m进行等分，可我不会作。

meflying

怎么说你才明白？看图，如果给出整个周长为100，就有三种可能

同样给出的周长是100，却有三种可能，你让我画哪个呢？

lihongyu2467

不好意思，有些专业上的问题实在是很难沟通。测绘中画围墙时只有前进方向的左侧或右侧之分，我看就是上图中的外墙吧。打扰了这么久，很是不好意思。

meflying

看看行不行：

2. (defun c:Draw2( / pt
   
3.                  pt2
   
4.               i
   
5.               j
   
6.               n
   
7.               Le        ;剩余长度
   
8.               Long        ;每段长度
   
9.               Ang        ;每段角度
   
10.               Ang_W        ;分割线角度
    
11.               pt_W       
    
12.               pt_Ws       
    
13.               pt_O
    
14.               pt_N
    
15.               pt_WE
    
16.                os
    
17.               )
    
18.   (setvar "cmdecho" 0)
    
19.   (setq pt (getpoint "\n输入起点:"))
    
20.   (setq pt_N pt)
    
21.   (setq pt_O pt)
    
22.   (setq Le 0)
    
23.   (command "_.pline" pt_O)
    
24.   (while (setq pt_N (getpoint pt_N "\n输入下一点:"))
    
25.     (command pt_N)
    
26.     (setq Long (+ Le (distance pt_N pt_O)))
    
27.     (setq Ang (angle pt_O pt_N))
    
28.     (setq Ang_W (- Ang (/ pi 2)))
    
29.     (setq n (fix (/ Long 10)))
    
30.     (setq pt_W (polar pt_O Ang (- 10 Le)))
    
31.     (setq pt_WE (polar pt_W Ang_W 0.5))
    
32.     (setq pt_Ws (append pt_Ws (list (list pt_W pt_WE))))
    
33.     (setq Le (- Long (* n 10)))
    
34.     (setq j 1)
    
35.     (while (< j n)
    
36.       (setq pt_W (polar pt_W Ang 10))
    
37.       (setq pt_WE (polar pt_W Ang_W 0.5))
    
38.       ;(command "_.pline" pt_W pt_WE "")
    
39.       (setq pt_Ws (append pt_Ws (list (list pt_W pt_WE))))
    
40.       (setq j (1+ j))
    
41.     )
    
42.     (setq pt_O pt_N)
    
43.   )
    
44.   (command "")
    
45.   (setq os (getvar "osmode"))
    
46.   (setvar "osmode" 0)
    
47.   (setq ent (entlast))
    
48.   (command "_.offset" 0.5 ent pt_WE "")
    
49.   (mapcar '(lambda(lst) (command "_.pline" (car lst) (cadr lst) "")) pt_Ws)
    
50.   (setvar "osmode" os)
    
51.   (princ)
    
52. )
    
53.    

(defun c:Draw2( / pt<br />                  pt2<br />               i<br />               j<br />               n<br />               Le        ;剩余长度<br />               Long        ;每段长度<br />               Ang        ;每段角度<br />               Ang_W        ;分割线角度<br />               pt_W        <br />               pt_Ws        <br />               pt_O<br />               pt_N<br />               pt_WE<br />                os<br />               )<br />   (setvar "cmdecho" 0)<br />   (setq pt (getpoint "\n输入起点:"))<br />   (setq pt_N pt)<br />   (setq pt_O pt)<br />   (setq Le 0)<br />   (command "_.pline" pt_O)<br />   (while (setq pt_N (getpoint pt_N "\n输入下一点:"))<br />     (command pt_N)<br />     (setq Long (+ Le (distance pt_N pt_O)))<br />     (setq Ang (angle pt_O pt_N))<br />     (setq Ang_W (- Ang (/ pi 2)))<br />     (setq n (fix (/ Long 10)))<br />     (setq pt_W (polar pt_O Ang (- 10 Le)))<br />     (setq pt_WE (polar pt_W Ang_W 0.5))<br />     (setq pt_Ws (append pt_Ws (list (list pt_W pt_WE))))<br />     (setq Le (- Long (* n 10)))<br />     (setq j 1)<br />     (while (< j n)<br />       (setq pt_W (polar pt_W Ang 10))<br />       (setq pt_WE (polar pt_W Ang_W 0.5))<br />       ;(command "_.pline" pt_W pt_WE "")<br />       (setq pt_Ws (append pt_Ws (list (list pt_W pt_WE))))<br />       (setq j (1+ j))<br />     )<br />     (setq pt_O pt_N)<br />   )<br />   (command "")<br />   (setq os (getvar "osmode"))<br />   (setvar "osmode" 0)<br />   (setq ent (entlast))<br />   (command "_.offset" 0.5 ent pt_WE "")<br />   (mapcar '(lambda(lst) (command "_.pline" (car lst) (cadr lst) "")) pt_Ws)<br />   (setvar "osmode" os)<br />   (princ)<br /> )<br />    

lihongyu2467

多谢，我回去试试。

lihongyu2467

非常好，就是这样。可是目前如果将画出的围墙拟合会产生混乱，是否可以画出的围墙做成一个整体，以便拟合呢？
实在不好意思再打扰你了，如果简单，就解决一下。再次感谢。

gyxzzza

你可以用制作线形的办法试试（先制作形，再制作线形），这样就不需要编程了，在实际使用过程中你只需调整线形比例即可

lihongyu2467

这种办法我试过，采用制作线形的办法在转点处不好，精度不高。

lihongyu2467

这种办法我试过，采用制作线形的办法在转点处不好，精度不高。