怎么对线状地形图进行按线路走向分幅

染潇尘扬

我现在的分幅方法是：1、先把A3矩形框沿线路套到地形图上，因为线路不是直的，所以套的矩形框一般都是倾斜的。
2、对每个矩形框进行 命名视图 。
现在问题来了，我发现命名视图的时候只能框选水平或垂直的矩形框，所以对于倾斜的矩形框我都会为它专门建立一个直角坐标系，然后进入新建立的坐标系下面框选，这样来做工作量就挺大了。所以在请教各路大神支招，有什么方法能够让我在命名视图的时候可以框选倾斜的矩形框。或者还有什么其他更好的分幅方法赐教一下。

Atsai

代码的主要构思是从下面的三个部分组成的，里面的副程式请自己到黄大侠、高飞版主的个别帖子找！
偶而花花时间去翻帖子也是不错的。

最小包围核代码是 自贡黄明儒:http://bbs.mjtd.com/thread-107647-1-1.html
                         及 highflybir:http://bbs.mjtd.com/thread-99926-1-1.html
视埠旋转的想法是 自贡黄明儒:http://bbs.mjtd.com/thread-111691-1-1.html

下面是其他拼拼凑凑的代码如果不合用就自己再改改吧！

2. 
   
3. 
   
4. ;;最小包围核代码是 自贡黄明儒:http://bbs.mjtd.com/thread-107647-1-1.html]http://bbs.mjtd.com/thread-107647-1-1.html
   
5. ;;                            及 highflybir:http://bbs.mjtd.com/thread-99926-1-1.html]http://bbs.mjtd.com/thread-99926-1-1.html
   
6. ;;视埠旋转的想法是 自贡黄明儒:http://bbs.mjtd.com/thread-111691-1-1.html]http://bbs.mjtd.com/thread-111691-1-1.html
   
7. 
   
8. (princ
   
9.   "\n===================================================="
   
10. )
    
11. (princ "\n命令：rv")
    
12. (princ "\n说明：批次依“模型”内图框于“配置”产生视埠")
    
13. (princ "\n说明：可适用于有旋转角的图框")
    
14. (princ "\nby Atsai 2015.03.12")
    
15. (princ
    
16.   "\n===================================================="
    
17. )
    
18. 
    
19. (defun c:rv (/ cp cl cs vpl os vplyes l0 svpc ptlst ssvp)
    
20.   (vl-load-com)
    
21.   (setvar "cmdecho" 0) ; Turn off command line echoing
    
22.   (setq cp (getvar "ctab")) ; Store current tab name
    
23.   (setq cl (getvar "clayer")) ; Store current layer name
    
24.   (setq cs (getvar "osmode")) ; Store current osnap mode
    
25.   (setq vpl "视埠") ; ==>> Assume using Viewport layer for viewport frames, change code value here if needed <<==
    
26.   (setq os (getvar "osmode")) ;读取锁点原设定
    
27.   (setvar "osmode" 0)
    
28. 
    
29.   (setq        nselect
    
30.          (getstring
    
31.            "\n选择排序方式,(1)自选顺序(2)左->右(3)右->左(4)上->下(5)下->上：预设(1)"
    
32.          )
    
33.   )
    
34. 
    
35.   (if (= nselect "")
    
36.     (setq nselect "1")
    
37.   )
    
38. 
    
39.   (if (/= cp "Model") ; Must be started from a layout tab to establish destination, quit quietly if on Model tab
    
40.     (progn
    
41.       (setq vplyes 0) ; Assume viewport doesn't exist
    
42.       (setq l0 (tblnext "LAYER" 1)) ; Get past 0 layer in layer list
    
43.       (while (setq layers (tblnext "LAYER"))
    
44.         ;; Loop through layer list collection
    
45.         (setq ln (cdr (assoc 2 layers))) ; Extract layer name from list
    
46.         (if (= (strcase ln) (strcase vpl))
    
47.           (setq vplyes 1)
    
48.         ) ; Check if viewport layer exists
    
49.       )
    
50.       (if (= vplyes 0)
    
51.         (command "layer" "NEW" vpl "COLOR" "RED" vpl "")
    
52.       ) ; Make viewport layer and assign color to magenta if doesn't exist
    
53.       (setvar "clayer" vpl) ; Change to viewport layer
    
54.       (command "layer"
    
55.                "ON"
    
56.                (strcat "0," vpl)
    
57.                "UNLOCK"
    
58.                (strcat "0," vpl)
    
59.                ""
    
60.       ) ; Turn on and unlock viewport and 0 layer
    
61.       (command "zoom" "ALL") ; View entire layout tab
    
62.       (setvar "ctab" "Model") ; Activate Model tab
    
63.       (command "zoom" "E") ; View entire Model Space area
    
64.       (setq ss nil)
    
65.       (if (setq ss (ssget '((0 . "INSERT"))))
    
66.         (progn
    
67.           (setq        l (sslength ss)
    
68.                 i 0
    
69.           )
    
70. 
    
71.           (setq ent_lst nil)
    
72.           (repeat (sslength ss)
    
73.             (setq ent_lst (append ent_lst (list (ssname ss i)))
    
74.                   i          (1+ i)
    
75.             )
    
76.           )
    
77. 
    
78.           (princ "\n") ; Clean up command line
    
79.           (setvar "ctab" cp) ; Return to layout tab program was started from
    
80.           (command "pspace") ; Switch to Paper Space of layout tab
    
81. 
    
82.           (setq ptlst nil)
    
83.           (setq ptlst (HH:Ent4pt (nth 0 ent_lst) T))
    
84.           (setq vpc1 (nth 0 ptlst))
    
85.           (setq vpc2 (nth 1 ptlst))
    
86.           (setq vpc3 (nth 2 ptlst))
    
87.           (setq vpc4 (nth 3 ptlst))
    
88.           (setq sf 1.0)
    
89.           (setq vpyd (* sf (distance vpc2 vpc3)))
    
90. 
    
91. 
    
92.           (defun viewpnts (/ a b c d x)
    
93.             (setq b (getvar "viewsize")
    
94.                   c (car (getvar "screensize"))
    
95.                   d (cadr (getvar "screensize"))
    
96.                   a (* b (/ c d))
    
97.                   x (setq x (getvar "viewctr"))
    
98.                   x (trans x 1 2)
    
99.                   c (list (- (car x) (/ a 2.0)) (- (cadr x) (/ b 2.0)) 0.0)
    
100.                   d (list (+ (car x) (/ a 2.0)) (+ (cadr x) (/ b 2.0)) 0.0)
     
101.                   c (trans c 2 1)
     
102.                   d (trans d 2 1)
     
103.             )
     
104.             (list c d)
     
105.           )
     
106. 
     
107.           (setq c (nth 0 (viewpnts)))
     
108.           (setq d (nth 1 (viewpnts)))
     
109. 
     
110.           (setq mvpc (list (/ (+ (car c) (car d)) 2.0) (/ (+ (cadr c) (cadr d)) 2.0) 0.0))
     
111.           (command "zoom" "C" mvpc (rtos (* (* 2 l) vpyd)))
     
112. 
     
113. 
     
114.           (setq        svpc
     
115.                  (getpoint
     
116.                    "\n选择插入点："
     
117.                  )
     
118.           ) ; Can't change layout tabs manually here
     
119. 
     
120. 
     
121.           (cond
     
122.             ((= nselect "1")
     
123.              (setq ent_lst ent_lst)
     
124.             )
     
125. 
     
126.             ((= nselect "2")
     
127.              (progn
     
128.                ;;按X座标排序
     
129.                (setq
     
130.                  ent_lst (vl-sort ent_lst
     
131.                                   '(lambda (e1 e2)
     
132.                                      (<        (cadr (assoc 10 (entget e1)))
     
133.                                         (cadr (assoc 10 (entget e2)))
     
134.                                      )
     
135.                                    )
     
136.                          )
     
137.                )
     
138.                ;;按X座标排序
     
139.              )
     
140.             )
     
141. 
     
142.             ((= nselect "3")
     
143.              (progn
     
144.                ;;按X座标排序
     
145.                (setq
     
146.                  ent_lst (vl-sort ent_lst
     
147.                                   '(lambda (e1 e2)
     
148.                                      (>        (cadr (assoc 10 (entget e1)))
     
149.                                         (cadr (assoc 10 (entget e2)))
     
150.                                      )
     
151.                                    )
     
152.                          )
     
153.                )
     
154.                ;;按X座标排序
     
155.              )
     
156.             )
     
157. 
     
158.             ((= nselect "4")
     
159.              (progn
     
160.                ;;按Y座标排序
     
161.                (setq
     
162.                  ent_lst (vl-sort ent_lst
     
163.                                   '(lambda (e1 e2)
     
164.                                      (>        (caddr (assoc 10 (entget e1)))
     
165.                                         (caddr (assoc 10 (entget e2)))
     
166.                                      )
     
167.                                    )
     
168.                          )
     
169.                )
     
170.                ;;按Y座标排序
     
171.              )
     
172.             )
     
173. 
     
174.             ((= nselect "5")
     
175.              (progn
     
176.                ;;按Y座标排序
     
177.                (setq
     
178.                  ent_lst (vl-sort ent_lst
     
179.                                   '(lambda (e1 e2)
     
180.                                      (<        (caddr (assoc 10 (entget e1)))
     
181.                                         (caddr (assoc 10 (entget e2)))
     
182.                                      )
     
183.                                    )
     
184.                          )
     
185.                )
     
186.                ;;按Y座标排序
     
187.              )
     
188.             )
     
189.           )
     
190. 
     
191.           (mapcar
     
192.             '(lambda (ssn)
     
193.                (setq ptlst nil)
     
194.                (setq ptlst (HH:Ent4pt ssn T))
     
195.                (setq vpc1 (nth 0 ptlst))
     
196.                (setq vpc2 (nth 1 ptlst))
     
197.                (setq vpc3 (nth 2 ptlst))
     
198.                (setq vpc4 (nth 3 ptlst))
     
199. 
     
200.                (setq sf 1.0)
     
201.                (setq vpxd (* sf (distance vpc1 vpc2)))
     
202.                ;; Determine horizontal length of selected window
     
203.                (setq vpyd (* sf (distance vpc2 vpc3)))
     
204.                ;; Determine vertical height of selected window
     
205.                (setq
     
206.                  vpc
     
207.                   (list        (/ (+ (car vpc1) (car vpc3)) 2.0)
     
208.                         (/ (+ (cadr vpc1) (cadr vpc3)) 2.0)
     
209.                         0.0
     
210.                   )
     
211.                )
     
212.                ;; Determine center point of selected model window
     
213. 
     
214.                (command        "mview"
     
215.                         (list (car svpc) (cadr svpc))
     
216.                         (strcat "@" (rtos vpxd) "," (rtos vpyd))
     
217.                )
     
218.                ;; Create Paper Space viewport
     
219. 
     
220.                (setq ssvp nil)
     
221. 
     
222.                (setq ssvp (ssget "L"))
     
223.                ;; Start selection set with last viewport frame
     
224. 
     
225. 
     
226.                (command        "zoom"
     
227.                         "w"
     
228.                         (list (car svpc) (cadr svpc))
     
229.                         (strcat "@" (rtos vpxd) "," (rtos vpyd))
     
230.                )
     
231. 
     
232.                
     
233.                (command "mspace")
     
234.                ;; Open viewport window to Model Space
     
235. 
     
236.                (command "ucsicon" "ON")
     
237.                ;; Turn on UCS icon for viewport
     
238. 
     
239.                (command "ucs" "Z" "non" vpc1 "non" vpc2)
     
240. 
     
241.                (command "Plan" "")
     
242. 
     
243.                (command "ucs" "WORLD") ; Reset UCS to WCS
     
244. 
     
245.                (command "zoom" "C" vpc (rtos vpyd))
     
246.                ;; Center view of viewport window using determined point
     
247.                (command "zoom" "SCALE" (strcat (rtos sf) "XP"))
     
248.                ;; Set zoom scale of viewport window
     
249. 
     
250.                (command "vports" "LOCK" "ON" ssvp "")
     
251.                ;; Lock scale and position of model in viewport
     
252.                (command "pspace")
     
253.                ;; Close viewport window
     
254. 
     
255.                (setq w (distance vpc1 vpc2))
     
256.                (setq svpc (polar svpc 0 (* 1.5 w)))
     
257. 
     
258.              )
     
259.             ent_lst
     
260.           )
     
261.         )
     
262.       )
     
263.     )
     
264.     (princ "\n这个LISP程式只能在Layout使用！")
     
265.     ;; Need to start on a layout tab so program knows where to create the new viewports
     
266.   )
     
267.   (command "zoom" "all")
     
268.   (setvar "ctab" cp) ; Reset to stored tab name
     
269.   (setvar "clayer" cl) ; Reset to stored layer name
     
270.   (setvar "osmode" os) ;回复锁点原设定
     
271.   (princ)
     
272. )

<br /> <br /> ;;最小包围核代码是 自贡黄明儒:http://bbs.mjtd.com/thread-107647-1-1.html]http://bbs.mjtd.com/thread-107647-1-1.html<br /> ;;                            及 highflybir:http://bbs.mjtd.com/thread-99926-1-1.html]http://bbs.mjtd.com/thread-99926-1-1.html<br /> ;;视埠旋转的想法是 自贡黄明儒:http://bbs.mjtd.com/thread-111691-1-1.html]http://bbs.mjtd.com/thread-111691-1-1.html<br /> <br /> (princ<br />   "\n===================================================="<br /> )<br /> (princ "\n命令：rv")<br /> (princ "\n说明：批次依“模型”内图框于“配置”产生视埠")<br /> (princ "\n说明：可适用于有旋转角的图框")<br /> (princ "\nby Atsai 2015.03.12")<br /> (princ<br />   "\n===================================================="<br /> )<br /> <br /> (defun c:rv (/ cp cl cs vpl os vplyes l0 svpc ptlst ssvp)<br />   (vl-load-com)<br />   (setvar "cmdecho" 0) ; Turn off command line echoing<br />   (setq cp (getvar "ctab")) ; Store current tab name<br />   (setq cl (getvar "clayer")) ; Store current layer name<br />   (setq cs (getvar "osmode")) ; Store current osnap mode<br />   (setq vpl "视埠") ; ==>> Assume using Viewport layer for viewport frames, change code value here if needed <<==<br />   (setq os (getvar "osmode")) ;读取锁点原设定<br />   (setvar "osmode" 0)<br /> <br />   (setq        nselect<br />          (getstring<br />            "\n选择排序方式,(1)自选顺序(2)左->右(3)右->左(4)上->下(5)下->上：预设(1)"<br />          )<br />   )<br /> <br />   (if (= nselect "")<br />     (setq nselect "1")<br />   )<br /> <br />   (if (/= cp "Model") ; Must be started from a layout tab to establish destination, quit quietly if on Model tab<br />     (progn<br />       (setq vplyes 0) ; Assume viewport doesn't exist<br />       (setq l0 (tblnext "LAYER" 1)) ; Get past 0 layer in layer list<br />       (while (setq layers (tblnext "LAYER"))<br />         ;; Loop through layer list collection<br />         (setq ln (cdr (assoc 2 layers))) ; Extract layer name from list<br />         (if (= (strcase ln) (strcase vpl))<br />           (setq vplyes 1)<br />         ) ; Check if viewport layer exists<br />       )<br />       (if (= vplyes 0)<br />         (command "layer" "NEW" vpl "COLOR" "RED" vpl "")<br />       ) ; Make viewport layer and assign color to magenta if doesn't exist<br />       (setvar "clayer" vpl) ; Change to viewport layer<br />       (command "layer"<br />                "ON"<br />                (strcat "0," vpl)<br />                "UNLOCK"<br />                (strcat "0," vpl)<br />                ""<br />       ) ; Turn on and unlock viewport and 0 layer<br />       (command "zoom" "ALL") ; View entire layout tab<br />       (setvar "ctab" "Model") ; Activate Model tab<br />       (command "zoom" "E") ; View entire Model Space area<br />       (setq ss nil)<br />       (if (setq ss (ssget '((0 . "INSERT"))))<br />         (progn<br />           (setq        l (sslength ss)<br />                 i 0<br />           )<br /> <br />           (setq ent_lst nil)<br />           (repeat (sslength ss)<br />             (setq ent_lst (append ent_lst (list (ssname ss i)))<br />                   i          (1+ i)<br />             )<br />           )<br /> <br />           (princ "\n") ; Clean up command line<br />           (setvar "ctab" cp) ; Return to layout tab program was started from<br />           (command "pspace") ; Switch to Paper Space of layout tab<br /> <br />           (setq ptlst nil)<br />           (setq ptlst (HH:Ent4pt (nth 0 ent_lst) T))<br />           (setq vpc1 (nth 0 ptlst))<br />           (setq vpc2 (nth 1 ptlst))<br />           (setq vpc3 (nth 2 ptlst))<br />           (setq vpc4 (nth 3 ptlst))<br />           (setq sf 1.0)<br />           (setq vpyd (* sf (distance vpc2 vpc3)))<br /> <br /> <br />           (defun viewpnts (/ a b c d x)<br />             (setq b (getvar "viewsize")<br />                   c (car (getvar "screensize"))<br />                   d (cadr (getvar "screensize"))<br />                   a (* b (/ c d))<br />                   x (setq x (getvar "viewctr"))<br />                   x (trans x 1 2)<br />                   c (list (- (car x) (/ a 2.0)) (- (cadr x) (/ b 2.0)) 0.0)<br />                   d (list (+ (car x) (/ a 2.0)) (+ (cadr x) (/ b 2.0)) 0.0)<br />                   c (trans c 2 1)<br />                   d (trans d 2 1)<br />             )<br />             (list c d)<br />           )<br /> <br />           (setq c (nth 0 (viewpnts)))<br />           (setq d (nth 1 (viewpnts)))<br /> <br />           (setq mvpc (list (/ (+ (car c) (car d)) 2.0) (/ (+ (cadr c) (cadr d)) 2.0) 0.0))<br />           (command "zoom" "C" mvpc (rtos (* (* 2 l) vpyd)))<br /> <br /> <br />           (setq        svpc<br />                  (getpoint<br />                    "\n选择插入点："<br />                  )<br />           ) ; Can't change layout tabs manually here<br /> <br /> <br />           (cond<br />             ((= nselect "1")<br />              (setq ent_lst ent_lst)<br />             )<br /> <br />             ((= nselect "2")<br />              (progn<br />                ;;按X座标排序<br />                (setq<br />                  ent_lst (vl-sort ent_lst<br />                                   '(lambda (e1 e2)<br />                                      (<        (cadr (assoc 10 (entget e1)))<br />                                         (cadr (assoc 10 (entget e2)))<br />                                      )<br />                                    )<br />                          )<br />                )<br />                ;;按X座标排序<br />              )<br />             )<br /> <br />             ((= nselect "3")<br />              (progn<br />                ;;按X座标排序<br />                (setq<br />                  ent_lst (vl-sort ent_lst<br />                                   '(lambda (e1 e2)<br />                                      (>        (cadr (assoc 10 (entget e1)))<br />                                         (cadr (assoc 10 (entget e2)))<br />                                      )<br />                                    )<br />                          )<br />                )<br />                ;;按X座标排序<br />              )<br />             )<br /> <br />             ((= nselect "4")<br />              (progn<br />                ;;按Y座标排序<br />                (setq<br />                  ent_lst (vl-sort ent_lst<br />                                   '(lambda (e1 e2)<br />                                      (>        (caddr (assoc 10 (entget e1)))<br />                                         (caddr (assoc 10 (entget e2)))<br />                                      )<br />                                    )<br />                          )<br />                )<br />                ;;按Y座标排序<br />              )<br />             )<br /> <br />             ((= nselect "5")<br />              (progn<br />                ;;按Y座标排序<br />                (setq<br />                  ent_lst (vl-sort ent_lst<br />                                   '(lambda (e1 e2)<br />                                      (<        (caddr (assoc 10 (entget e1)))<br />                                         (caddr (assoc 10 (entget e2)))<br />                                      )<br />                                    )<br />                          )<br />                )<br />                ;;按Y座标排序<br />              )<br />             )<br />           )<br /> <br />           (mapcar<br />             '(lambda (ssn)<br />                (setq ptlst nil)<br />                (setq ptlst (HH:Ent4pt ssn T))<br />                (setq vpc1 (nth 0 ptlst))<br />                (setq vpc2 (nth 1 ptlst))<br />                (setq vpc3 (nth 2 ptlst))<br />                (setq vpc4 (nth 3 ptlst))<br /> <br />                (setq sf 1.0)<br />                (setq vpxd (* sf (distance vpc1 vpc2)))<br />                ;; Determine horizontal length of selected window<br />                (setq vpyd (* sf (distance vpc2 vpc3)))<br />                ;; Determine vertical height of selected window<br />                (setq<br />                  vpc<br />                   (list        (/ (+ (car vpc1) (car vpc3)) 2.0)<br />                         (/ (+ (cadr vpc1) (cadr vpc3)) 2.0)<br />                         0.0<br />                   )<br />                )<br />                ;; Determine center point of selected model window<br /> <br />                (command        "mview"<br />                         (list (car svpc) (cadr svpc))<br />                         (strcat "@" (rtos vpxd) "," (rtos vpyd))<br />                )<br />                ;; Create Paper Space viewport<br /> <br />                (setq ssvp nil)<br /> <br />                (setq ssvp (ssget "L"))<br />                ;; Start selection set with last viewport frame<br /> <br /> <br />                (command        "zoom"<br />                         "w"<br />                         (list (car svpc) (cadr svpc))<br />                         (strcat "@" (rtos vpxd) "," (rtos vpyd))<br />                )<br /> <br />                <br />                (command "mspace")<br />                ;; Open viewport window to Model Space<br /> <br />                (command "ucsicon" "ON")<br />                ;; Turn on UCS icon for viewport<br /> <br />                (command "ucs" "Z" "non" vpc1 "non" vpc2)<br /> <br />                (command "Plan" "")<br /> <br />                (command "ucs" "WORLD") ; Reset UCS to WCS<br /> <br />                (command "zoom" "C" vpc (rtos vpyd))<br />                ;; Center view of viewport window using determined point<br />                (command "zoom" "SCALE" (strcat (rtos sf) "XP"))<br />                ;; Set zoom scale of viewport window<br /> <br />                (command "vports" "LOCK" "ON" ssvp "")<br />                ;; Lock scale and position of model in viewport<br />                (command "pspace")<br />                ;; Close viewport window<br /> <br />                (setq w (distance vpc1 vpc2))<br />                (setq svpc (polar svpc 0 (* 1.5 w)))<br /> <br />              )<br />             ent_lst<br />           )<br />         )<br />       )<br />     )<br />     (princ "\n这个LISP程式只能在Layout使用！")<br />     ;; Need to start on a layout tab so program knows where to create the new viewports<br />   )<br />   (command "zoom" "all")<br />   (setvar "ctab" cp) ; Reset to stored tab name<br />   (setvar "clayer" cl) ; Reset to stored layer name<br />   (setvar "osmode" os) ;回复锁点原设定<br />   (princ)<br /> )

Atsai

楼主要的是这种吧！
源码及参考的函数连结放在13楼，主要是参考
自贡黄儒明、高飞鸟二位前辈的函数自己拼拼凑凑完成的。

杜阳

Atsai 发表于 2015-4-3 17:20
代码的主要构思是从下面的三个部分组成的，里面的副程式请自己到黄大侠、高飞版主的个别帖子找！
偶而花花 ...

怎么  使用必须在layout空间里吗     

lisp注册

cass有个带状图分副！

xujinhua

同问啊.CASS自带的只能直的,

liujing95

最好的带状分幅是用纬地

004

关注，请用维地做个演示

llsheng_73

可以考虑自己按需要画分幅内图框，给他内图框的CASS编码，让CASS自动分幅，不过它会分为一个个的图形文件
当然它不会把图框旋转到水平方向，并不方便，所以最好是自己写程序来实现，关键是根据多边形裁剪部分比较难写，也不好直接调用CASS的命令。。。

如果确实裁剪部分难度过大，可以变通一下：直接用CASS分幅，然后另写一个根据图框进行旋转的以便于打印，这个难度最小

tfyyf

送你个我做的小软件for CAD2012试试:http://bbs.mjtd.com/thread-25126-11-1.html

shiyan001

用外部参照的方式，然后旋转+移动+裁剪不就可以了吗，只不过带状图过大的话，打开文件会慢一些。

NetBee

liujing95 发表于 2014-8-29 15:37
最好的带状分幅是用纬地

对，纬地专门针对带状。非常棒!