发个小程序，设置两点，快速同步【模型·双视口】~~~【20211227尝试修复BUG】

masterlong

程序在编制时有疏漏
现尝试修复BUG
因为没有时间测试
暂将修复后的lisp放在35楼
供有兴趣的同学试用
若反映没有问题了再放到顶楼

;;-----------------------------------------------------------------------------------以下代码有bug，见上说明

绘图或者校审过程
经常需要利用双视口
来对照两个平面的同一个区域

;;QG```````模型中直接指定两个点，记录相对坐标后再切分为双视口
;;GG```````根据相对坐标，“同步”两个视口


;;GG```````根据相对坐标，“同步”两个视口
(defun c:gg()
(princ "\nQG```模型中指定两点，记录相对坐标后切分为双视口\nGG```根据相对坐标，“同步”两个视口")
(setq *acad* (vlax-get-acad-object))

(if (null gg#viewlist)
  (c:qg)
  (if (= (strcase (getvar "ctab")) "MODEL")
   (if (= 2 (length (vports)))
    (progn
     (command "undo" "g")
     (setq 0cvid  (getvar "cvport"))
     (setq 0cvctr   (u2w (getvar "viewctr")))
     (setq 0cvsize  (getvar "viewsize"))
     
     (setq ggbiao (cdr (assoc 0cvid gg#viewlist)))
     (setq 9pt (vlax-3d-point (w2u (mapcar '+ 0cvctr (cadr ggbiao)))))
     (setvar "cvport" (car ggbiao))
        
        ;;【下面代码3选1】
        ;;(vla-ZoomCenter *acad* 9pt (caddr ggbiao))       ;;按记录默认值显示视窗高度
        ;;(vla-ZoomCenter *acad* 9pt (* 0cvsize (cadddr ggbiao)))  ;;按相对比例显示视窗高度
        (vla-ZoomCenter *acad* 9pt 0cvsize)          ;;按第1视口高度设置第2视口高度（手感比较好）
     
     (setvar "cvport" 0cvid)
     (princ "\n已根据记录“同步”两个视口")
     (command "undo" "e")
    )
    (princ "\n本命令用于在【模型·双视口】时，按相对位置快速同步两个视口。\n模型空间非双视口，不能执行本命令")
   )
   (princ "\n本命令用于在【模型·双视口】时，按相对位置快速同步两个视口。\n当前空间非模型，不能执行本命令")
  )
)
(princ)
)

;;QG```````模型中直接指定两个点，记录相对坐标后再切分为双视口
(defun c:qg()
(princ "\nQG```模型中指定两点，记录相对坐标后切分为双视口\nGG```根据相对坐标，“同步”两个视口")
(setq *acad* (vlax-get-acad-object))

(if (= (strcase (getvar "ctab")) "MODEL")
  (if (and
     (setq 0pt (getpoint "\n指定第1视口的中心点 : "))
     (setq 1pt (getpoint 0pt "\n指定第2视口的中心点 : "))
   )
   (progn
     (setq 9cvsize  (getvar "viewsize"))
     (cond
      ((< 2 (length (vports))) (command "-vports" "si" "-vports" "2" "v"))
      ((= 1 (length (vports))) (command "-vports" "2" "v"))
     )
     (setq 0cvid (getvar "cvport"))
     (vla-ZoomCenter *acad* (vlax-3d-point 0pt) 9cvsize)
     (setvar "cvport" (car (car (reverse (vports)))))
     (vla-ZoomCenter *acad* (vlax-3d-point 1pt) 9cvsize)
     (setvar "cvport" 0cvid)
     (gq_save)
   )
   (princ "未指定两点。程序退出")
  )
  (progn
   (princ "\n当前空间为布局，本命令只能用于模型，现在切换至模型")
   (setvar "ctab" "model")
   (c:qg)
  )
)
(princ)
)
(defun gq_save()
  ;;(princ "符合【模型·双视口】条件")
  (setq 0cvid  (getvar "cvport"))    ;;获取当前模型视口的id````模型双视口时，这个值一般为2或3
  (setq 0cvctr   (u2w (getvar "viewctr")))  ;;获取当前模型视口的中心坐标，转换为世界坐标系
  (setq 0cvsize  (getvar "viewsize"))    ;;获取当前模型视口的高
  (setvar "cvport" (car (car (reverse (vports))))) ;;切换至另一个视口
  (setq 1cvid  (getvar "cvport"))    ;;获取第2视口的id
  (setq 1cvctr   (u2w (getvar "viewctr")))  ;;获取第2视口的中心坐标，转换为世界坐标系
  (setq 1cvsize  (getvar "viewsize"))    ;;获取第2视口的高
  (setq 01dist (mapcar '- 1cvctr 0cvctr))  ;;计算0~1视口中心相对坐标
  (setq 10dist (mapcar '- 0cvctr 1cvctr))  ;;计算1~0视口中心相对坐标
  ;;按规则记录`````````````````第4、5个参数备用（根据实际使用手感决定如何调整视窗大小）
  (setq gg#viewlist
    (list
      (list 0cvid 1cvid 01dist 1cvsize (/ 0cvsize 1cvsize 1.0))
      (list 1cvid 0cvid 10dist 0cvsize (/ 1cvsize 0cvsize 1.0))
    )
  )
     ;;设置所有打开文件共享此列表
     ;;(vl-propagate 'gg#viewlist)
  
  (setvar "cvport" 0cvid)        ;;恢复原始视口
  (princ "\n相对坐标已记录。此后可使用【gg】命令快速“同步”")
(princ)
)

;999坐标WCS=>UCS
(defun w2u( pt )
(trans pt 0 1)
)

;999坐标UCS=>WCS
(defun u2w( pt )
(trans pt 1 0)
)

cghdy

是不是可以增加反应器，达到不需要输入命令自动同步的效果

masterlong

尝试修复BUG
不过没时间测试
先放这里供有兴趣的同学试用
若没有问题
再更新到顶楼

附件传不上来
代码格式又不玩不溜 ------ IE的问题？用google chrome就可以了
就这样吧

1. ;;QG```````模型中指定两点，记录相对坐标后切分为左右双视口````根据两点位置关系自动对应视口
   
2. ;;GG```````根据相对坐标，“同步”两个视口
   
3. ;;CCV``````提取以上相对坐标为基点终点，选择对象既完成视口间复制````自动以当前视口向另一视口进行复制
   
4. 
   
5. 
   
6. ;|
   
7. 【关于CCV】
   
8. 这个程序后期我可能会再做一些调整
   
9. 若当前模型非“左右均分双视口”时
   
10. 执行CCV仅将模型设为“左右均分双视口”
    
11. 也就是相当于GG命令的功能
    
12. 再调用CCV时才允许选择图元执行双向复制
    
13. 这样应该不容易出现误操作
    
14. |;
    
15. 
    
16. ;000`````````GG```````根据相对坐标，“同步”两个视口
    
17. (defun c:gg()
    
18. (c:gg_main)
    
19. )
    
20. (defun c:gg_main()
    
21. (princ "\nQG```模型中指定两点，记录相对坐标后切分为双视口\nGG```根据相对坐标，“同步”两个视口")
    
22. (setq *acad* (vlax-get-acad-object))
    
23. 
    
24. (if (null gg#viewlist)
    
25.   (c:qg)
    
26.   (if (= (strcase (getvar "ctab")) "MODEL")
    
27.    ;;改为只要是模型，一律改为左右均分双视口。不管原来是单独视口还是多视口，或者双视口（双视口也可能是上下或不等分视口）
    
28.    (progn
    
29.     (command "undo" "g")
    
30.      
    
31.     ;;(set2vp_lr)  ;;设定模型为左右均分双视口
    
32.     (if (= 2 (length (vports)))
    
33.      (progn
    
34.       (setq afw (cdr (car (vports))))
    
35.       (if (not (or (equal afw '((0.0 0.0) (0.5 1.0))) (equal afw '((0.5 0.0) (1.0 1.0)))))
    
36.        (command "-vports" "si" "-vports" "2" "v")
    
37.       )
    
38.      )
    
39.      (command "-vports" "si" "-vports" "2" "v")
    
40.     )
    
41.    
    
42.     ;;根据(vports)特征值，判断当前视口在左还是右
    
43.     (setq 999cvid (getvar "cvport"))
    
44.     (setq 999vdat (cdr (assoc 999cvid (vports))))
    
45.     (setq 999jjj  (apply '+ (car 999vdat)))
    
46.     ;;当前为右视口时，ggbiao = gg#viewlist；当前为左视口时，ggbiao = (mapcar '- gg#viewlist)
    
47.     (if (= 999jjj 0)
    
48.      (setq ggbiao gg#viewlist)
    
49.      (setq ggbiao (mapcar '- gg#viewlist))
    
50.     )
    
51.       
    
52.     (setq 0cvid  (getvar "cvport"))
    
53.     (setq 0cvctr   (u2w (getvar "viewctr")))
    
54.     (setq 0cvsize  (getvar "viewsize"))
    
55.     (setq 9pt (vlax-3d-point (w2u (mapcar '+ 0cvctr ggbiao))))
    
56.     (setvar "cvport" (car (car (reverse (vports)))))
    
57.     (vla-ZoomCenter *acad* 9pt 0cvsize)
    
58.     (princ "\n已根据记录“同步”两个视口")
    
59.      
    
60.     (command "undo" "e")
    
61.    )
    
62.    (princ "\n本命令用于在【模型·双视口】时，按相对位置快速同步两个视口。\n当前空间非模型，不能执行本命令")
    
63.   )
    
64. )
    
65. (princ)
    
66. )
    
67. 
    
68. ;000`````````QG```````模型中指定两点，记录相对坐标后切分为左右双视口````根据两点位置关系自动对应视口
    
69. (defun c:QG()
    
70. (c:QG_main)
    
71. )
    
72. (defun c:QG_main()
    
73. (princ "\nQG```模型中指定两点，记录相对坐标后切分为左右双视口\nGG```根据相对坐标，“同步”两个视口")
    
74. (setq *acad* (vlax-get-acad-object))
    
75.          
    
76. ;;此代码提至前面————加强程序体验：指定点时，可能视窗面积较大
    
77. (setq 9cvsize  (getvar "viewsize"))
    
78. (if (= (strcase (getvar "ctab")) "MODEL")
    
79.   (if (and
    
80.      (setq apt (getpoint "\n指定第1视口的中心点 : "))
    
81.      (setvar "orthomode" 1)
    
82.      (setq bpt (getpoint apt "\n指定第2视口的中心点 : "))
    
83.    )
    
84.    (progn
    
85.      ;;根据两点坐标比较，确定0pt（始终左视口）1pt（始终右视口）
    
86.      (setq apt (u2w apt)
    
87.        bpt (u2w bpt)
    
88.      )   
    
89.      (if (= (car apt) (car bpt))
    
90.       (if (> (cadr apt) (cadr bpt))
    
91.        (setq 0pt apt   1pt bpt)
    
92.        (setq 0pt bpt   1pt apt)
    
93.       )
    
94.       (if (< (car apt) (car bpt))
    
95.        (setq 0pt apt   1pt bpt)
    
96.        (setq 0pt bpt   1pt apt)
    
97.       )
    
98.      )
    
99.      
    
100.      ;;(set2vp_lr)  ;;设定模型为左右均分双视口
     
101.      (if (= 2 (length (vports)))
     
102.       (progn
     
103.        (setq afw (cdr (car (vports))))
     
104.        (if (not (or (equal afw '((0.0 0.0) (0.5 1.0))) (equal afw '((0.5 0.0) (1.0 1.0)))))
     
105.         (command "-vports" "si" "-vports" "2" "v")
     
106.        )
     
107.       )
     
108.       (command "-vports" "si" "-vports" "2" "v")
     
109.      )
     
110.      
     
111.      ;;根据(vports)特征值，判断当前视口在左还是右
     
112.      (setq 999cvid (getvar "cvport"))
     
113.      (setq 999vdat (cdr (assoc 999cvid (vports))))
     
114.      (setq 999jjj  (apply '+ (car 999vdat)))
     
115.      ;;当前为左视口时，切换到右视口
     
116.      (if (/= 999jjj 0)
     
117.       (setvar "cvport" (car (car (reverse (vports)))))
     
118.      )
     
119.      
     
120.      ;;左右视口分别按0pt、1pt缩放窗口
     
121.      (vla-ZoomCenter *acad* (vlax-3d-point 0pt) 9cvsize)
     
122.      (setvar "cvport" (car (car (reverse (vports)))))
     
123.      (vla-ZoomCenter *acad* (vlax-3d-point 1pt) 9cvsize)
     
124.      (gq_save)
     
125.    )
     
126.    (princ "未指定两点。程序退出")
     
127.   )
     
128.   (progn
     
129.    (princ "\n当前空间为布局，本命令只能用于模型，现在切换至模型")
     
130.    (setvar "ctab" "model")
     
131.    (c:qg)
     
132.   )
     
133. )
     
134. (princ)
     
135. )
     
136. (defun gq_save()
     
137. (setq gg#viewlist (mapcar '- 1pt 0pt))
     
138. 
     
139.      ;;可屏蔽代码`````设置所有打开文档共享此列表
     
140.      (vl-propagate 'gg#viewlist)
     
141. )
     
142. 
     
143. ;000`````````CCV``````提取以上相对坐标为基点终点，选择对象既完成视口间复制````自动以当前视口向另一视口进行复制
     
144. (defun c:ccv()
     
145. (c:ccv_main)
     
146. )
     
147. (defun c:ccv_main()
     
148. (princ "\nccv```视口同步复制————————两个视口“同步”以后，以相对坐标进行复制")
     
149. (setq *acad* (vlax-get-acad-object))
     
150. 
     
151. (if (null gg#viewlist)
     
152.   (progn
     
153.    (princ "\n要使用本命令，必须首先指定双视口的相对坐标")
     
154.    (c:qg)
     
155.   )
     
156.   (progn
     
157.    (command "undo" "g")
     
158.    
     
159.    ;;(set2vp_lr)  ;;设定模型为左右均分双视口
     
160.    (if (= 2 (length (vports)))
     
161.     (progn
     
162.      (setq afw (cdr (car (vports))))
     
163.      (if (not (or (equal afw '((0.0 0.0) (0.5 1.0))) (equal afw '((0.5 0.0) (1.0 1.0)))))
     
164.       (command "-vports" "si" "-vports" "2" "v")
     
165.      )
     
166.     )
     
167.     (command "-vports" "si" "-vports" "2" "v")
     
168.    )
     
169.    (if (setq ss (ssget))
     
170.     (progn
     
171.      ;;根据(vports)特征值，判断当前视口在左还是右
     
172.      (setq 999cvid (getvar "cvport"))
     
173.      (setq 999vdat (cdr (assoc 999cvid (vports))))
     
174.      (setq 999jjj  (apply '+ (car 999vdat)))
     
175.      ;;当前为右视口时，ggbiao = gg#viewlist；当前为左视口时，ggbiao = (mapcar '- gg#viewlist)
     
176.      (if (= 999jjj 0)
     
177.       (setq ggbiao gg#viewlist)
     
178.       (setq ggbiao (mapcar '- gg#viewlist))
     
179.      )
     
180.      
     
181.      (setq ent (entlast))
     
182.      (command "copy" ss "" "non" '(0 0)  "non" ggbiao)
     
183.      (princ "\n预设点快速复制已完成")
     
184.      (setq newss (entbackss ent))
     
185.      
     
186.        ;;以下为个人使用习惯，可屏蔽-----复制后对象形成“上一选择集”
     
187.        (oldss2act newss)
     
188.        ;;以下代码可屏蔽，将取消复制以后视口“同步”的效果
     
189.        (progn
     
190.         (setq 0cvid  (getvar "cvport"))
     
191.         (setq 0cvctr   (u2w (getvar "viewctr")))
     
192.         (setq 0cvsize  (getvar "viewsize"))
     
193.         (setq 9pt (vlax-3d-point (w2u (mapcar '+ 0cvctr ggbiao))))
     
194.         (setvar "cvport" (car (car (reverse (vports)))))
     
195.         (vla-ZoomCenter *acad* 9pt 0cvsize)
     
196.        )
     
197.        ;;以下代码可屏蔽，将取消选择集复制后的亮显
     
198.        (ssdraw ss 3)
     
199.        (ssdraw newss 3)
     
200.      
     
201.      (setvar "cvport" 999cvid)
     
202.     )
     
203.    )
     
204.      
     
205.    (command "undo" "e")
     
206.   )
     
207. )
     
208. (princ)
     
209. )
     
210. 
     
211. 
     
212. 
     
213. 
     
214. 
     
215. 
     
216. 
     
217. 
     
218. 
     
219. ;999公共函数
     
220. ;;坐标WCS=>UCS
     
221. (defun w2u( pt )
     
222. (trans pt 0 1)
     
223. )
     
224. ;999公共函数
     
225. ;;坐标UCS=>WCS
     
226. (defun u2w( pt )
     
227. (trans pt 1 0)
     
228. )
     
229. ;999公共函数
     
230. ;;一个已存在的选择集，设置成当前选择集
     
231. (defun oldss2act( oldss )
     
232. (sssetfirst Nil oldss)  ;;将选择集设为夹点显示模式
     
233. (ssget "i")
     
234. (sssetfirst nil nil)  
     
235. )
     
236. ;999公共函数
     
237. ;;按指定的模式重画一个选择集的全部物体<改模式时，需要先反绘。1-2 3-4.(1->4=1->2->4)>    【支持模型多视口，支持布局中视口】
     
238. ;;  1:显示  2:消隐  3:高亮  4:低亮
     
239. (defun ssdraw( ss mode / i ent )
     
240. (if (= (strcase (getvar "ctab")) "MODEL")
     
241.   (if (member mode '(1 2 3 4))
     
242.    (foreach vp (reverse (vports))
     
243.     (setvar "cvport" (car vp))
     
244.     (cond
     
245.      ((= (type ss) 'PICKSET)
     
246.       (foreach ent (ss2list ss)
     
247.        (redraw ent mode)
     
248.       )
     
249.      )
     
250.      ((= (type ss) 'list)
     
251.       (foreach ent ss
     
252.        (redraw ent mode)
     
253.       )
     
254.      )
     
255.      ((= (type ss) 'ename)
     
256.       (redraw ss mode)
     
257.      )
     
258.     )
     
259.    )
     
260.   )
     
261.   (cond
     
262.    ((= (type ss) 'PICKSET)
     
263.     (foreach ent (ss2list ss)
     
264.      (redraw ent mode)
     
265.     )
     
266.    )
     
267.    ((= (type ss) 'list)
     
268.     (foreach ent ss
     
269.      (redraw ent mode)
     
270.     )
     
271.    )
     
272.    ((= (type ss) 'ename)
     
273.     (redraw ss mode)
     
274.    )
     
275.   )
     
276. )
     
277. (princ)
     
278. )
     
279. ;999```公共函数
     
280. ;;获取在图元 ent 之后产生的图元的选择集 ，ent不存在时返回nil
     
281. (defun entbackss ( ent / backss)
     
282. (if (and ent (vlax-Ename->Vla-Object ent))
     
283.   (progn
     
284.    (setq backss (ssadd))
     
285.    (while (setq ent (entnext ent))
     
286.     (if (not (member (cdr (assoc 0 (entget ent))) '("ATTRIB" "VERTEX" "SEQEND")))
     
287.      (setq backss (ssadd ent backss))
     
288.     )
     
289.    )
     
290.    (if (zerop (sslength backss))
     
291.     (setq backss NIL)
     
292.    )
     
293.    backss
     
294.   )
     
295. )
     
296. )
     

;;QG```````模型中指定两点，记录相对坐标后切分为左右双视口````根据两点位置关系自动对应视口<br /> ;;GG```````根据相对坐标，“同步”两个视口<br /> ;;CCV``````提取以上相对坐标为基点终点，选择对象既完成视口间复制````自动以当前视口向另一视口进行复制<br /> <br /> <br /> ;|<br /> 【关于CCV】<br /> 这个程序后期我可能会再做一些调整<br /> 若当前模型非“左右均分双视口”时<br /> 执行CCV仅将模型设为“左右均分双视口”<br /> 也就是相当于GG命令的功能<br /> 再调用CCV时才允许选择图元执行双向复制<br /> 这样应该不容易出现误操作<br /> |;<br /> <br /> ;000`````````GG```````根据相对坐标，“同步”两个视口<br /> (defun c:gg()<br /> (c:gg_main)<br /> )<br /> (defun c:gg_main()<br /> (princ "\nQG```模型中指定两点，记录相对坐标后切分为双视口\nGG```根据相对坐标，“同步”两个视口")<br /> (setq *acad* (vlax-get-acad-object))<br /> <br /> (if (null gg#viewlist)<br />   (c:qg)<br />   (if (= (strcase (getvar "ctab")) "MODEL")<br />    ;;改为只要是模型，一律改为左右均分双视口。不管原来是单独视口还是多视口，或者双视口（双视口也可能是上下或不等分视口）<br />    (progn<br />     (command "undo" "g")<br />      <br />     ;;(set2vp_lr)  ;;设定模型为左右均分双视口<br />     (if (= 2 (length (vports)))<br />      (progn<br />       (setq afw (cdr (car (vports))))<br />       (if (not (or (equal afw '((0.0 0.0) (0.5 1.0))) (equal afw '((0.5 0.0) (1.0 1.0)))))<br />        (command "-vports" "si" "-vports" "2" "v")<br />       )<br />      )<br />      (command "-vports" "si" "-vports" "2" "v")<br />     )<br />     <br />     ;;根据(vports)特征值，判断当前视口在左还是右<br />     (setq 999cvid (getvar "cvport"))<br />     (setq 999vdat (cdr (assoc 999cvid (vports))))<br />     (setq 999jjj  (apply '+ (car 999vdat)))<br />     ;;当前为右视口时，ggbiao = gg#viewlist；当前为左视口时，ggbiao = (mapcar '- gg#viewlist)<br />     (if (= 999jjj 0)<br />      (setq ggbiao gg#viewlist)<br />      (setq ggbiao (mapcar '- gg#viewlist))<br />     )<br />       <br />     (setq 0cvid  (getvar "cvport"))<br />     (setq 0cvctr   (u2w (getvar "viewctr")))<br />     (setq 0cvsize  (getvar "viewsize"))<br />     (setq 9pt (vlax-3d-point (w2u (mapcar '+ 0cvctr ggbiao))))<br />     (setvar "cvport" (car (car (reverse (vports)))))<br />     (vla-ZoomCenter *acad* 9pt 0cvsize)<br />     (princ "\n已根据记录“同步”两个视口")<br />      <br />     (command "undo" "e")<br />    )<br />    (princ "\n本命令用于在【模型·双视口】时，按相对位置快速同步两个视口。\n当前空间非模型，不能执行本命令")<br />   )<br /> )<br /> (princ)<br /> )<br /> <br /> ;000`````````QG```````模型中指定两点，记录相对坐标后切分为左右双视口````根据两点位置关系自动对应视口<br /> (defun c:QG()<br /> (c:QG_main)<br /> )<br /> (defun c:QG_main()<br /> (princ "\nQG```模型中指定两点，记录相对坐标后切分为左右双视口\nGG```根据相对坐标，“同步”两个视口")<br /> (setq *acad* (vlax-get-acad-object))<br />           <br /> ;;此代码提至前面————加强程序体验：指定点时，可能视窗面积较大<br /> (setq 9cvsize  (getvar "viewsize"))<br /> (if (= (strcase (getvar "ctab")) "MODEL")<br />   (if (and<br />      (setq apt (getpoint "\n指定第1视口的中心点 : "))<br />      (setvar "orthomode" 1)<br />      (setq bpt (getpoint apt "\n指定第2视口的中心点 : "))<br />    )<br />    (progn<br />      ;;根据两点坐标比较，确定0pt（始终左视口）1pt（始终右视口）<br />      (setq apt (u2w apt)<br />        bpt (u2w bpt)<br />      )    <br />      (if (= (car apt) (car bpt))<br />       (if (> (cadr apt) (cadr bpt))<br />        (setq 0pt apt   1pt bpt)<br />        (setq 0pt bpt   1pt apt)<br />       )<br />       (if (< (car apt) (car bpt))<br />        (setq 0pt apt   1pt bpt)<br />        (setq 0pt bpt   1pt apt)<br />       )<br />      )<br />      <br />      ;;(set2vp_lr)  ;;设定模型为左右均分双视口<br />      (if (= 2 (length (vports)))<br />       (progn<br />        (setq afw (cdr (car (vports))))<br />        (if (not (or (equal afw '((0.0 0.0) (0.5 1.0))) (equal afw '((0.5 0.0) (1.0 1.0)))))<br />         (command "-vports" "si" "-vports" "2" "v")<br />        )<br />       )<br />       (command "-vports" "si" "-vports" "2" "v")<br />      )<br />      <br />      ;;根据(vports)特征值，判断当前视口在左还是右<br />      (setq 999cvid (getvar "cvport"))<br />      (setq 999vdat (cdr (assoc 999cvid (vports))))<br />      (setq 999jjj  (apply '+ (car 999vdat)))<br />      ;;当前为左视口时，切换到右视口<br />      (if (/= 999jjj 0)<br />       (setvar "cvport" (car (car (reverse (vports)))))<br />      )<br />      <br />      ;;左右视口分别按0pt、1pt缩放窗口<br />      (vla-ZoomCenter *acad* (vlax-3d-point 0pt) 9cvsize)<br />      (setvar "cvport" (car (car (reverse (vports)))))<br />      (vla-ZoomCenter *acad* (vlax-3d-point 1pt) 9cvsize)<br />      (gq_save)<br />    ) <br />    (princ "未指定两点。程序退出")<br />   )<br />   (progn<br />    (princ "\n当前空间为布局，本命令只能用于模型，现在切换至模型")<br />    (setvar "ctab" "model")<br />    (c:qg)<br />   )<br /> )<br /> (princ) <br /> )<br /> (defun gq_save()<br /> (setq gg#viewlist (mapcar '- 1pt 0pt))<br /> <br />      ;;可屏蔽代码`````设置所有打开文档共享此列表<br />      (vl-propagate 'gg#viewlist)<br /> )<br /> <br /> ;000`````````CCV``````提取以上相对坐标为基点终点，选择对象既完成视口间复制````自动以当前视口向另一视口进行复制<br /> (defun c:ccv()<br /> (c:ccv_main)<br /> )<br /> (defun c:ccv_main()<br /> (princ "\nccv```视口同步复制————————两个视口“同步”以后，以相对坐标进行复制")<br /> (setq *acad* (vlax-get-acad-object))<br /> <br /> (if (null gg#viewlist)<br />   (progn<br />    (princ "\n要使用本命令，必须首先指定双视口的相对坐标")<br />    (c:qg)<br />   )<br />   (progn<br />    (command "undo" "g")<br />    <br />    ;;(set2vp_lr)  ;;设定模型为左右均分双视口<br />    (if (= 2 (length (vports)))<br />     (progn<br />      (setq afw (cdr (car (vports))))<br />      (if (not (or (equal afw '((0.0 0.0) (0.5 1.0))) (equal afw '((0.5 0.0) (1.0 1.0)))))<br />       (command "-vports" "si" "-vports" "2" "v")<br />      )<br />     )<br />     (command "-vports" "si" "-vports" "2" "v")<br />    )<br />    (if (setq ss (ssget))<br />     (progn<br />      ;;根据(vports)特征值，判断当前视口在左还是右<br />      (setq 999cvid (getvar "cvport"))<br />      (setq 999vdat (cdr (assoc 999cvid (vports))))<br />      (setq 999jjj  (apply '+ (car 999vdat)))<br />      ;;当前为右视口时，ggbiao = gg#viewlist；当前为左视口时，ggbiao = (mapcar '- gg#viewlist)<br />      (if (= 999jjj 0)<br />       (setq ggbiao gg#viewlist)<br />       (setq ggbiao (mapcar '- gg#viewlist))<br />      )<br />      <br />      (setq ent (entlast))<br />      (command "copy" ss "" "non" '(0 0)  "non" ggbiao)<br />      (princ "\n预设点快速复制已完成")<br />      (setq newss (entbackss ent))<br />      <br />        ;;以下为个人使用习惯，可屏蔽-----复制后对象形成“上一选择集”<br />        (oldss2act newss)<br />        ;;以下代码可屏蔽，将取消复制以后视口“同步”的效果<br />        (progn<br />         (setq 0cvid  (getvar "cvport"))<br />         (setq 0cvctr   (u2w (getvar "viewctr")))<br />         (setq 0cvsize  (getvar "viewsize"))<br />         (setq 9pt (vlax-3d-point (w2u (mapcar '+ 0cvctr ggbiao))))<br />         (setvar "cvport" (car (car (reverse (vports)))))<br />         (vla-ZoomCenter *acad* 9pt 0cvsize)<br />        )<br />        ;;以下代码可屏蔽，将取消选择集复制后的亮显<br />        (ssdraw ss 3)<br />        (ssdraw newss 3)<br />      <br />      (setvar "cvport" 999cvid)<br />     )<br />    )<br />      <br />    (command "undo" "e")<br />   )<br /> )<br /> (princ)<br /> )<br /> <br /> <br /> <br /> <br /> <br /> <br /> <br /> <br /> <br /> ;999公共函数<br /> ;;坐标WCS=>UCS<br /> (defun w2u( pt )<br /> (trans pt 0 1)<br /> )<br /> ;999公共函数<br /> ;;坐标UCS=>WCS<br /> (defun u2w( pt )<br /> (trans pt 1 0)<br /> )<br /> ;999公共函数<br /> ;;一个已存在的选择集，设置成当前选择集<br /> (defun oldss2act( oldss )<br /> (sssetfirst Nil oldss)  ;;将选择集设为夹点显示模式<br /> (ssget "i")<br /> (sssetfirst nil nil)  <br /> )<br /> ;999公共函数<br /> ;;按指定的模式重画一个选择集的全部物体<改模式时，需要先反绘。1-2 3-4.(1->4=1->2->4)>    【支持模型多视口，支持布局中视口】<br /> ;;  1:显示  2:消隐  3:高亮  4:低亮<br /> (defun ssdraw( ss mode / i ent )<br /> (if (= (strcase (getvar "ctab")) "MODEL")<br />   (if (member mode '(1 2 3 4))<br />    (foreach vp (reverse (vports))<br />     (setvar "cvport" (car vp))<br />     (cond <br />      ((= (type ss) 'PICKSET)<br />       (foreach ent (ss2list ss)<br />        (redraw ent mode)<br />       )<br />      )<br />      ((= (type ss) 'list)<br />       (foreach ent ss<br />        (redraw ent mode)<br />       )<br />      )<br />      ((= (type ss) 'ename)<br />       (redraw ss mode)<br />      )<br />     )<br />    )<br />   )<br />   (cond <br />    ((= (type ss) 'PICKSET)<br />     (foreach ent (ss2list ss)<br />      (redraw ent mode)<br />     )<br />    )<br />    ((= (type ss) 'list)<br />     (foreach ent ss<br />      (redraw ent mode)<br />     )<br />    )<br />    ((= (type ss) 'ename)<br />     (redraw ss mode)<br />    )<br />   )<br /> )<br /> (princ)<br /> )<br /> ;999```公共函数<br /> ;;获取在图元 ent 之后产生的图元的选择集 ，ent不存在时返回nil<br /> (defun entbackss ( ent / backss)<br /> (if (and ent (vlax-Ename->Vla-Object ent))<br />   (progn<br />    (setq backss (ssadd))<br />    (while (setq ent (entnext ent))<br />     (if (not (member (cdr (assoc 0 (entget ent))) '("ATTRIB" "VERTEX" "SEQEND")))<br />      (setq backss (ssadd ent backss))<br />     )<br />    )<br />    (if (zerop (sslength backss))<br />     (setq backss NIL)<br />    )<br />    backss<br />   )<br /> )<br /> )<br />

masterlong

简单说说这个程序的使用方法

如果你有两个平面需要对照
【QG】命令设置两点
第1点设置在平面A的1轴-A轴交点
第2点设置在平面B的1轴-A轴交点
接下来你就可以使用【GG】命令
在两个平面的任意位置进行同一区域的“同步”

如果你面对的是一个多层建筑
当你的工作习惯良好时
这个程序就能最大化发挥出它的作用
很简单
只要各上下层的1-A交点间距完全一致
那么【QG】设置一次以后
你就可以在任意一层平面实现上下层的“同步”

前几天我发布过另一个小程序
先预设基点与终点
再选择对象直接完成复制
其实那个程序就是和这个程序配套的
稍微改一改
将预设基点与终点改为直接提取本程序的相对坐标
就可以实现任意上下平面同一区域的双向复制

;;;;;--------------------------------------------------------------------------------2011227说明

顶楼的QG、QQ程序在编制时有疏漏
现已将修复后程序放到了35楼
欢迎有兴趣的同学试用并反馈
若没有问题了
再更新到顶楼

masterlong

编程初期的想法和最后的成品
有一定的差距
所以代码有些凌乱
不影响使用就懒得优化了

Bao_lai

明天试试效果，龙大师。

yoyoho

好东西哇,非常感谢!!!!

lingduwx

顶一个这个非常实用

lingduwx

不知道是不是我操作问题，我用不了同步啊，当在其中一个视口内放大缩小显示，另外一个视口没有同步显示

masterlong

本程序的同步并非“实时”
反应器应该可以实现实时同步
但如果真这么做的话
估计会哭死吧

magicheno

大佬真给力！