难题求教！碰到一个无法被复制的视口

xiaocainiao

遇到一个奇怪的情况、就是被裁剪后的视口、无法用代码复制了、
以下是我的代码、求教各位大神有没有其他方法复制这个视口、

附件中已上传样图、感谢大家

2. (defun c:tt ()
   
3.   (setq ss (ssget '((0 . "VIEWPORT"))))
   
4.   (setq pct (getpoint "\n指定第一点:"))
   
5.   (setq pct3 (getpoint pct"\n指定第二点:"))
   
6.   (command-s "copy" ss "" pct pct3)
   
7. )
   
8. (princ)

(defun c:tt ()<br />   (setq ss (ssget '((0 . "VIEWPORT"))))<br />   (setq pct (getpoint "\n指定第一点:"))<br />   (setq pct3 (getpoint pct"\n指定第二点:"))<br />   (command-s "copy" ss "" pct pct3)<br /> )<br /> (princ)

注：使用这个代码复制普通视口是没问题的

xiaocainiao

自己已经解决