视口 "cvport" 出错

caoyin

你两个视口重合在一起(其中一个隐藏，一个显示被关闭)

龙龙仔

3. (defun C:TT (/ N SS W69)
4.   (setq SS (ssget "x"
5.     (list '(0 . "VIEWPORT") (cons 410 (getvar "CTAB")))
6.     )
7.   )
8.   (command ".MSPACE")
9.   (setq N 0)
10.   (repeat (sslength SS)
11.     (setq W69 (cdr (assoc 69 (entget (ssname SS N)))))
12.     (if (and (/= W69 1) (/= W69 0))
13.       (setvar "CVPORT" W69)
14.     )
15.     (setq N (1+ N))
16.   )
17.   (princ)
18. )

(defun C:TT (/ N SS W69)   (setq SS (ssget "x"     (list '(0 . "VIEWPORT") (cons 410 (getvar "CTAB")))     )   )   (command ".MSPACE")   (setq N 0)   (repeat (sslength SS)     (setq W69 (cdr (assoc 69 (entget (ssname SS N)))))     (if (and (/= W69 1) (/= W69 0))       (setvar "CVPORT" W69)     )     (setq N (1+ N))   )   (princ) )

janson78

中秋放假了....

先祝各位节日快乐!

TO caoyin:  请问你一下,你用哪个命令看到两个视口重合的呢? 我只看到一个隐藏的视口的层.

TO 龙龙仔: 你的命令我试了一下，好象还是不行啊, 当前的 w69=14, 你的判断是 (and(/= W69 1) (/= W69 0)))

           满足你的判断,但是  (setvar "CVPORT" W69);   也就是 (setvar "CVPORT" 14)  还是显示出错啊
          

 能帮我再看看么...

  多谢了!!

caoyin

你的视口上有3个对象

1个是多段线

2个是视口，在隐藏的图层 Defpoints 上，其中一个视口显示被关闭

caoyin

将龙版的代码修改如下

(defun C:TT (/ N SS ENT W68 W69)
   (setq SS (ssget "x" (list '(0 . "VIEWPORT") (cons 410 (getvar "CTAB")))))
   (command ".MSPACE")
   (setq N 0)
   (repeat (sslength SS)
     (setq ENT (entget (ssname SS N)))
     (setq W68 (cdr (assoc 68 ENT)))
     (setq W69 (cdr (assoc 69 ENT)))
     (if (and (> W68 0) (/= W69 1) (/= W69 0));;判断视口是否打开，楼主最好再自己添加一个是否锁定判断
       (setvar "CVPORT" W69)
     )
     (setq N (1+ N))
   )
   (princ)
)

janson78

十分感谢,问题好象已经解决了,程序运行正常

我再理解一下W68的涵义

再次感谢caoyin和龙龙仔