[求助]：请高手帮我改一下这段程序——实现动态画线

david96007

不知道楼主想要达到一个什么样的效果？！
能否上示意图？！

sjylzf

在生成新物体之前，要删除已经画的物体，(entdel(entlast))

柔柔

没仔细看你的程序，用GRREAD应该能够达到的呀。

柔柔

我不太喜欢看别人的程序，太累。这样，我贴出我的程序，你参考一下吧。

2. 
   
3.   [FONT=courier new]
   
4. ;
   
5. ; LEVEL.LSP  建筑标高标注程序  CYN 2003.8.7
   
6. ; 最近一次修改: 2003.8.7
   
7. ; 全局变量: #dwg_scl_cyn     图纸比例因子
   
8. ;           #level_0_cyn     坐标值与标注值差
   
9. ;           #bg_strhigh_cyn  标注文字字高
   
10. ;;-----------------------------------------------------------------------------------------
    
11. (defun level_err(s)
    
12.       (if (/= s "Function cancelled")
    
13.         (princ (strcat "\nError: " s))
    
14.       )
    
15.       (setvar "OSMODE" os)
    
16.       (setvar "CMDECHO" cmd)
    
17.       (command "_.UNDO" "_E")
    
18. )
    
19. ;;-----------------------------------------------------------------------------------------
    
20. (defun c:level (/ os cmd temp xx ename move_pt pt0 pt1 pt2 pt3 pt4 pt5 pt6
    
21.                   p1 p2  ang a b c ang1 ang2 angstr levelbg_cyn str)
    
22.   (setq os (getvar "OSMODE"))
    
23.   (setq cmd (getvar "CMDECHO"))
    
24.   (setq *error* level_err)
    
25.   (setvar "CMDECHO" 0)
    
26.   (if (= #dwg_scl_cyn nil) (setq #dwg_scl_cyn (getvar "DIMSCALE")))
    
27.   (if (= #dwg_scl_cyn 0.0) (setq #dwg_scl_cyn 1.0))
    
28.   (if (= #bg_strhigh_cyn nil) (setq #bg_strhigh_cyn 2.5))
    
29.   (setq temp T)
    
30.   (while temp
    
31.      (prompt (strcat "\n文字字高 High = " (rtos #bg_strhigh_cyn)
    
32.                      ", 比例因子 Scale = " (rtos #dwg_scl_cyn)))
    
33.      (initget "High Scale")
    
34.      (setq pt0 (getpoint "\n指示标注位置或 [H/字高 S/比例因子] : "))
    
35.      (cond
    
36.        ((= pt0 "High")
    
37.           (setq xx (getreal (strcat "\n字体高度 <"(rtos #bg_strhigh_cyn)">:")))
    
38.           (if xx (setq #bg_strhigh_cyn xx))
    
39.        )
    
40.        ((= pt0 "Scale")
    
41.           (setq xx (getreal (strcat "\n比例因子 <"(rtos #dwg_scl_cyn)">:")))
    
42.           (if xx (setq #dwg_scl_cyn xx))
    
43.        )
    
44.        (T
    
45.          (setq temp nil)
    
46.        )
    
47.      )
    
48.    )
    
49.    (setvar "OSMODE" 0)
    
50.    (setq pt1 pt0)  
    
51.    (level_dwg 0.0 0.5 pi 0.0)
    
52. ;;-----------------------------------------------------------------------------------------
    
53.    (prompt "\n指示引出标注位置< 原地标注 >：")
    
54.    (setq temp T)
    
55.    (while temp
    
56.      (setq move_pt (grread T 4 0))
    
57.      (cond
    
58.        ((= 5 (car move_pt))
    
59.          (setq pt1 (cadr move_pt))
    
60.          (setq pt1 (polar pt1 (* pi 0.5) (* #dwg_scl_cyn 2.5)))
    
61.          (if (> (car pt1) (car pt0))
    
62.            (progn
    
63.               (level_dwg 0.0 0.5 pi 0.0)
    
64.               (setq p1 (polar pt1 pi (* #dwg_scl_cyn 3.0)))
    
65.               (setq p2 (polar p1 0.0 (* #dwg_scl_cyn 5.0)))
    
66.            )
    
67.            (progn
    
68.               (level_dwg 0.0 0.5 0.0 pi)
    
69.               (setq p1 (polar pt1 0.0 (* #dwg_scl_cyn 3.0)))
    
70.               (setq p2 (polar p1 pi (* #dwg_scl_cyn 5.0)))
    
71.            )
    
72.          )
    
73.          (redraw)
    
74.          (grdraw pt0 p1 3 1)
    
75.          (grdraw p1 p2 3 1)
    
76.        )
    
77.        ((= 3 (car move_pt))
    
78.          (setq pt1 (cadr move_pt))
    
79.          (setq pt1 (polar pt1 (* pi 0.5) (* #dwg_scl_cyn 2.5)))
    
80.          (redraw)
    
81.          (command "_pline" pt0 "w" "0.0" "" p1 p2 "")
    
82.          (setq temp nil)
    
83.          (setq ang 0.0)
    
84.        )
    
85.        ((or (= 12 (car move_pt)) (= 25 (car move_pt)))
    
86.           (redraw)
    
87.           (setq pt1 pt0)
    
88.           (level_dwg 0.0 0.5 pi 0.0)
    
89.           (setq temp nil)
    
90.        )
    
91.      )
    
92.    )
    
93. ;;-----------------------------------------------------------------------------------------
    
94.    (defun level_xz_cyn ()
    
95.       (prompt "\n指示旋转方向点< 正交 >：")
    
96.       (setq temp T)
    
97.       (while temp
    
98.         (setq move_pt (grread T 4 0))
    
99.         (cond
    
100.           ((= 5 (car move_pt))
     
101.             (setq move_pt (cadr move_pt))
     
102.             (redraw)
     
103.             (grdraw pt1 move_pt 5 1)
     
104.             (setq ang (angle pt1 move_pt))
     
105.             (level_dwg ang 0.5 pi 0.0)
     
106.           )
     
107.           ((= 3 (car move_pt)) (setq temp nil))
     
108.           ((or (= 12 (car move_pt)) (= 25 (car move_pt)))
     
109.             (cond
     
110.               ((equal ang 0.0 0.78)  (setq ang 0.0))
     
111.               ((equal ang (* pi 0.5) 0.78)  (setq ang (* pi 0.5)))
     
112.               ((equal ang pi 0.78)  (setq ang pi))
     
113.               ((equal ang (* pi 1.5) 0.78)  (setq ang (* pi 1.5)))
     
114.             )
     
115.             (level_dwg ang 0.5 pi 0.0)
     
116.             (setq temp nil)
     
117.           )
     
118.         )
     
119.       )
     
120.    )
     
121. ;;-----------------------------------------------------------------------------------------
     
122.    (if (= pt1 pt0) (level_xz_cyn))
     
123.    (prompt "\n指示标高标记方向：")
     
124.    (setq temp T)
     
125.    (while temp     
     
126.      (setq move_pt (grread T 4 0))
     
127.      (if (= 5 (car move_pt))
     
128.        (progn
     
129.           (setq move_pt (cadr move_pt))
     
130.           (redraw)
     
131.           (grdraw pt1 move_pt 2 1)
     
132.           (setq ang1 (angle pt1 move_pt))
     
133.           (setq ang2 (- ang1 ang))
     
134.            (cond
     
135.              ((and (< ang2 0.0) (> ang2 (* pi -0.5)))            (level_dwg ang 1.5 pi 0.0))
     
136.              ((and (< ang2 (* pi -0.5)) (> ang2 (* pi -1.0)))    (level_dwg ang 1.5 0.0 pi))
     
137.              ((and (< ang2  (* pi -1.0)) (> ang2 (* pi -1.5)))   (level_dwg ang 0.5 0.0 pi))
     
138.             ......             ((and (> ang2 (* pi 0.5)) (< ang2 pi))              (level_dwg ang 0.5 0.0 pi))
     
139.              ((and (> ang2  pi) (< ang2 (* pi 1.5)))             (level_dwg ang 1.5 0.0 pi))
     
140.              ((and (> ang2 (* pi 1.5)) (< ang2 (* pi 2.0)))      (level_dwg ang 1.5 pi 0.0))
     
141.           )
     
142.         )
     
143.         (setq temp nil)   
     
144.      )
     
145.    )
     
146.    (redraw)
     
147. ;;-----------------------------------------------------------------------------------------
     
148.    (if (= #level_0_cyn nil)
     
149.        (setq levelbg_cyn (/ (fix (cadr pt0)) 1000.0))
     
150.        (setq levelbg_cyn (/ (fix (- (cadr pt0) #level_0_cyn)) 1000.0))
     
151.    )
     
152. 
     
153.    (setq xx (getreal (strcat "\n标高值 <" (rtos levelbg_cyn 2 3) ">:")))
     
154.    (if xx
     
155.        (setq levelbg_cyn xx
     
156.              #level_0_cyn (- (cadr pt0) (* xx 1000.0))
     
157.        )
     
158.    )
     
159. 
     
160.    (if (= (fix levelbg_cyn) levelbg_cyn)
     
161. 。。。。。。
     
162.               )
     
163.             )
     
164.          )
     
165.       )
     
166.    )
     
167. 
     
168.    (if (= levelbg_cyn 0.0) (setq str "%%p0.000"))
     
169.    (if (and (> (angle pt2 pt5) 1.95) (<= (angle pt2 pt5) 4.85))        
     
170.         (setq angstr (/ (* (angle pt5 pt2) 180) pi))
     
171.         (setq angstr (/ (* (angle pt2 pt5) 180) pi))
     
172.    )
     
173.    (command "text" "_middle" pt6 (* #bg_strhigh_cyn #dwg_scl_cyn) angstr str)   
     
174.    (setvar "CMDECHO" cmd)
     
175.    (setvar "OSMODE" os)
     
176. )
     
177. ;;-----------------------------------------------------------------------------------------
     
178.    (defun level_dwg (ang a b c)
     
179.       (if ename (entdel ename))
     
180.       (setq pt2 (polar pt1 (+ ang (* pi a)) (* #dwg_scl_cyn 2.5))
     
181.             pt3 (polar pt2 (+ ang b) (* #dwg_scl_cyn 2.5))
     
182.             pt4 (polar pt3 (+ ang c) (* #dwg_scl_cyn 5.0))
     
183.             pt5 (polar pt3 (+ ang c) (* #dwg_scl_cyn 14.0))
     
184.             pt6 (polar pt2 (+ ang c) (* #dwg_scl_cyn 5.0))
     
185.             pt6 (polar pt6 (+ ang (* pi a)) (* #dwg_scl_cyn 2.5))
     
186.       )
     
187.       (command "_pline" pt4 "w" "0.0" "" pt1 pt3 pt5 "")
     
188.       (setq ename (entlast))
     
189.    )
     
190. ;;-----------------------------------------------------------------------------------------
     
191. 
     
192.   [/FONT]
     

<br />   [FONT=courier new]<br /> ;<br /> ; LEVEL.LSP  建筑标高标注程序  CYN 2003.8.7<br /> ; 最近一次修改: 2003.8.7<br /> ; 全局变量: #dwg_scl_cyn     图纸比例因子<br /> ;           #level_0_cyn     坐标值与标注值差<br /> ;           #bg_strhigh_cyn  标注文字字高<br /> ;;-----------------------------------------------------------------------------------------<br /> (defun level_err(s)<br />       (if (/= s "Function cancelled")<br />         (princ (strcat "\nError: " s))<br />       )<br />       (setvar "OSMODE" os)<br />       (setvar "CMDECHO" cmd)<br />       (command "_.UNDO" "_E")<br /> )<br /> ;;-----------------------------------------------------------------------------------------<br /> (defun c:level (/ os cmd temp xx ename move_pt pt0 pt1 pt2 pt3 pt4 pt5 pt6 <br />                   p1 p2  ang a b c ang1 ang2 angstr levelbg_cyn str)<br />   (setq os (getvar "OSMODE"))<br />   (setq cmd (getvar "CMDECHO"))<br />   (setq *error* level_err)<br />   (setvar "CMDECHO" 0)<br />   (if (= #dwg_scl_cyn nil) (setq #dwg_scl_cyn (getvar "DIMSCALE")))<br />   (if (= #dwg_scl_cyn 0.0) (setq #dwg_scl_cyn 1.0))<br />   (if (= #bg_strhigh_cyn nil) (setq #bg_strhigh_cyn 2.5)) <br />   (setq temp T)<br />   (while temp<br />      (prompt (strcat "\n文字字高 High = " (rtos #bg_strhigh_cyn)<br />                      ", 比例因子 Scale = " (rtos #dwg_scl_cyn)))<br />      (initget "High Scale") <br />      (setq pt0 (getpoint "\n指示标注位置或 [H/字高 S/比例因子] : "))<br />      (cond<br />        ((= pt0 "High")<br />           (setq xx (getreal (strcat "\n字体高度 <"(rtos #bg_strhigh_cyn)">:")))<br />           (if xx (setq #bg_strhigh_cyn xx))<br />        )<br />        ((= pt0 "Scale")<br />           (setq xx (getreal (strcat "\n比例因子 <"(rtos #dwg_scl_cyn)">:")))<br />           (if xx (setq #dwg_scl_cyn xx))<br />        )<br />        (T<br />          (setq temp nil)<br />        )<br />      )<br />    )<br />    (setvar "OSMODE" 0)<br />    (setq pt1 pt0)  <br />    (level_dwg 0.0 0.5 pi 0.0)<br /> ;;-----------------------------------------------------------------------------------------<br />    (prompt "\n指示引出标注位置< 原地标注 >：") <br />    (setq temp T)<br />    (while temp<br />      (setq move_pt (grread T 4 0))<br />      (cond<br />        ((= 5 (car move_pt))<br />          (setq pt1 (cadr move_pt))<br />          (setq pt1 (polar pt1 (* pi 0.5) (* #dwg_scl_cyn 2.5)))<br />          (if (> (car pt1) (car pt0))<br />            (progn<br />               (level_dwg 0.0 0.5 pi 0.0)<br />               (setq p1 (polar pt1 pi (* #dwg_scl_cyn 3.0)))<br />               (setq p2 (polar p1 0.0 (* #dwg_scl_cyn 5.0)))<br />            )<br />            (progn<br />               (level_dwg 0.0 0.5 0.0 pi)<br />               (setq p1 (polar pt1 0.0 (* #dwg_scl_cyn 3.0)))<br />               (setq p2 (polar p1 pi (* #dwg_scl_cyn 5.0)))<br />            )<br />          )<br />          (redraw) <br />          (grdraw pt0 p1 3 1)<br />          (grdraw p1 p2 3 1)<br />        )<br />        ((= 3 (car move_pt))<br />          (setq pt1 (cadr move_pt))<br />          (setq pt1 (polar pt1 (* pi 0.5) (* #dwg_scl_cyn 2.5)))<br />          (redraw)<br />          (command "_pline" pt0 "w" "0.0" "" p1 p2 "")<br />          (setq temp nil)<br />          (setq ang 0.0)<br />        )<br />        ((or (= 12 (car move_pt)) (= 25 (car move_pt)))<br />           (redraw)<br />           (setq pt1 pt0)<br />           (level_dwg 0.0 0.5 pi 0.0)<br />           (setq temp nil)<br />        )<br />      )<br />    )<br /> ;;-----------------------------------------------------------------------------------------<br />    (defun level_xz_cyn ()<br />       (prompt "\n指示旋转方向点< 正交 >：")<br />       (setq temp T)<br />       (while temp <br />         (setq move_pt (grread T 4 0))<br />         (cond<br />           ((= 5 (car move_pt)) <br />             (setq move_pt (cadr move_pt))<br />             (redraw)<br />             (grdraw pt1 move_pt 5 1)<br />             (setq ang (angle pt1 move_pt))<br />             (level_dwg ang 0.5 pi 0.0)<br />           )<br />           ((= 3 (car move_pt)) (setq temp nil))<br />           ((or (= 12 (car move_pt)) (= 25 (car move_pt)))<br />             (cond<br />               ((equal ang 0.0 0.78)  (setq ang 0.0))<br />               ((equal ang (* pi 0.5) 0.78)  (setq ang (* pi 0.5)))<br />               ((equal ang pi 0.78)  (setq ang pi))<br />               ((equal ang (* pi 1.5) 0.78)  (setq ang (* pi 1.5)))<br />             )<br />             (level_dwg ang 0.5 pi 0.0)<br />             (setq temp nil)<br />           )<br />         )<br />       )<br />    )<br /> ;;-----------------------------------------------------------------------------------------<br />    (if (= pt1 pt0) (level_xz_cyn))<br />    (prompt "\n指示标高标记方向：")<br />    (setq temp T)<br />    (while temp     <br />      (setq move_pt (grread T 4 0))<br />      (if (= 5 (car move_pt)) <br />        (progn<br />           (setq move_pt (cadr move_pt))<br />           (redraw)<br />           (grdraw pt1 move_pt 2 1)<br />           (setq ang1 (angle pt1 move_pt))<br />           (setq ang2 (- ang1 ang))<br />            (cond<br />              ((and (< ang2 0.0) (> ang2 (* pi -0.5)))            (level_dwg ang 1.5 pi 0.0))<br />              ((and (< ang2 (* pi -0.5)) (> ang2 (* pi -1.0)))    (level_dwg ang 1.5 0.0 pi))<br />              ((and (< ang2  (* pi -1.0)) (> ang2 (* pi -1.5)))   (level_dwg ang 0.5 0.0 pi))<br />             ......             ((and (> ang2 (* pi 0.5)) (< ang2 pi))              (level_dwg ang 0.5 0.0 pi))<br />              ((and (> ang2  pi) (< ang2 (* pi 1.5)))             (level_dwg ang 1.5 0.0 pi))<br />              ((and (> ang2 (* pi 1.5)) (< ang2 (* pi 2.0)))      (level_dwg ang 1.5 pi 0.0))<br />           )<br />         )<br />         (setq temp nil)   <br />      )<br />    )<br />    (redraw)<br /> ;;-----------------------------------------------------------------------------------------<br />    (if (= #level_0_cyn nil) <br />        (setq levelbg_cyn (/ (fix (cadr pt0)) 1000.0))<br />        (setq levelbg_cyn (/ (fix (- (cadr pt0) #level_0_cyn)) 1000.0))<br />    )<br /> <br />    (setq xx (getreal (strcat "\n标高值 <" (rtos levelbg_cyn 2 3) ">:")))<br />    (if xx<br />        (setq levelbg_cyn xx <br />              #level_0_cyn (- (cadr pt0) (* xx 1000.0))<br />        )<br />    )<br /> <br />    (if (= (fix levelbg_cyn) levelbg_cyn)<br /> 。。。。。。<br />               )<br />             )<br />          )<br />       )<br />    )<br /> <br />    (if (= levelbg_cyn 0.0) (setq str "%%p0.000"))<br />    (if (and (> (angle pt2 pt5) 1.95) (<= (angle pt2 pt5) 4.85))        <br />         (setq angstr (/ (* (angle pt5 pt2) 180) pi))<br />         (setq angstr (/ (* (angle pt2 pt5) 180) pi))<br />    )<br />    (command "text" "_middle" pt6 (* #bg_strhigh_cyn #dwg_scl_cyn) angstr str)   <br />    (setvar "CMDECHO" cmd)<br />    (setvar "OSMODE" os)<br /> )<br /> ;;-----------------------------------------------------------------------------------------<br />    (defun level_dwg (ang a b c)<br />       (if ename (entdel ename))<br />       (setq pt2 (polar pt1 (+ ang (* pi a)) (* #dwg_scl_cyn 2.5))<br />             pt3 (polar pt2 (+ ang b) (* #dwg_scl_cyn 2.5))<br />             pt4 (polar pt3 (+ ang c) (* #dwg_scl_cyn 5.0))<br />             pt5 (polar pt3 (+ ang c) (* #dwg_scl_cyn 14.0))<br />             pt6 (polar pt2 (+ ang c) (* #dwg_scl_cyn 5.0))<br />             pt6 (polar pt6 (+ ang (* pi a)) (* #dwg_scl_cyn 2.5))<br />       )<br />       (command "_pline" pt4 "w" "0.0" "" pt1 pt3 pt5 "")<br />       (setq ename (entlast))<br />    )<br /> ;;-----------------------------------------------------------------------------------------<br /> <br />   [/FONT]<br />

程序中间去掉了几句，不能运行的。
原因：看不惯某些人把从网上收集的别人的程序到处乱贴。去掉的几句对你来说不存在任何问题，自己添加一下吧。

狂刀

揉揉兄的方法不错阿

线路板

实现动态画线