[求助]：怎样在Lisp提取"nXP"中的"n"

David Li

写Lisp程序时
我想得到浮动视窗相对于图纸空间的比例，即提取"nXP"中的"n"
请大虾支招

LUCAS

;;Autolisp
請注意 ZOOM XP 係數是以下列公式運算得出的：group_41 / 2nd_group_1040 （或 pspace_height / mspace_height)。



;;;;;;;;;;;;
VLISP
;;;;;;;;;;;;
Viewport有CustomScale性質

lsjjm

(defun c:test ()
  (vl-load-com)
  (setq a (car (entsel "\nSelect Layout: ")))
  (setq b (vlax-ename->vla-object a))
  (vla-get-customscale b)
)

David Li

谢谢您们热心的帮助

我刚学Lisp
我在图纸空间打印图纸，我有标准的图框，每个布局中只有一个视窗（viewport)
当我在Model中建好模后，切到图纸空间：
运行 PSC (print scale)

(defun C:psc ( / scn sc scget n rsc sc1 scale)
  (setvar "cmdecho" 0)
  (command "mspace")
  (command "zoom" "e")
  (command "zoom" "0.95x")
接下来我需要知道浮动视窗（只有一个）相对于图纸空间的比例，即提取"nXP"中的"n"
然后把n整合为习惯比例，再运行 zoom nXP
我想要程序运行到(command "zoom" "0.95x")后，自动得到"nXP"中的"n"，没有任何选择
或输入。我不知道怎样自动Get 那个 Viewport，然后提取属性，或者有其他方法？
（我现在用手工输入n,由于事先不知道n大约是多少，往往要试几次才得到满意的比例）
谢谢！

lsjjm

那改成这样:
(defun getnxp (layoutname)
  (setq lays (vla-get-layouts (vla-get-activedocument (vlax-get-acad-object))))
  (setq obj (vla-item lays layoutname))
  (vla-get-customscale obj)
)

LUCAS

最初由 lsjjm 发布
[B]那改成这样:
(defun getnxp (layoutname)
  (setq lays (vla-get-layouts (vla-get-activedocument (vlax-get-acad-object))))
  (setq obj (vla-item lays layoutname))
  (vla-get-customscale obj)
) [/B]

;;;;;;;;;;;;
VLISP
;;;;;;;;;;;;
Viewport有CustomScale性質(LAYOUT沒有)

lsjjm

不好意思, COPY错了.
将 (vla-get-layouts... 改为 (vla-get-viewports...
将 layoutname 改为 viewportname.

LUCAS

2. 
   
3. ;;VLISP
   
4. ;;更正:PViewport 才有CustomScale
   
5. Specifies the custom scale factor for the viewport.
   
6. 
   
7. Signature
   
8. 
   
9. object.CustomScale
   
10. 
    
11. object        PViewport
    
12. The object or objects this property applies to.
    
13. 
    
14. CustomScale        Double; read-write
    
15. The custom scale factor for the viewport.
    
16. 
    
17. Remarks
    
18. 
    
19. To set the viewport to a custom scale, first set the StandardScale property to acVpCustomScale, then use this property to define the custom scale value.
    
20. 
    
21. ;;BY LUCAS
    
22.    ;;每個佈局中只有一個視窗(viewport)
    
23.   ;;切到圖紙空間
    
24.   ;;(command "PSPACE")
    
25.   (setq        XP (vla-get-customscale
    
26.              (vlax-ename->vla-object
    
27.                (ssname (ssget "X"
    
28.                               (list '(-4 . "< AND")
    
29.                                     '(0 . "VIEWPORT")
    
30.                                     (cons 410 (getvar "CTAB"))
    
31.                                     '(-4 . "< not")
    
32.                                     '(69 . 1)
    
33.                                     '(-4 . "not >")
    
34.                                     '(-4 . "AND >")
    
35.                               )
    
36. 
    
37.                        )
    
38.                        0
    
39.                )
    
40.              )
    
41.            )
    
42.   )
    
43.   ;;-------------------------------------------
    
44. 
    
45. 
    
46. ;; '(-4 . "< AND");;;把空格去除
    
47. 
    
48. ;;lsjjm 兄
    
49. ;;把程序想清楚,VIEWPORTNAME是甚么?
    

<br /> ;;VLISP<br /> ;;更正:PViewport 才有CustomScale<br /> Specifies the custom scale factor for the viewport. <br /> <br /> Signature<br /> <br /> object.CustomScale<br /> <br /> object        PViewport<br /> The object or objects this property applies to.<br /> <br /> CustomScale        Double; read-write<br /> The custom scale factor for the viewport.<br /> <br /> Remarks<br /> <br /> To set the viewport to a custom scale, first set the StandardScale property to acVpCustomScale, then use this property to define the custom scale value.<br /> <br /> ;;BY LUCAS<br />    ;;每個佈局中只有一個視窗(viewport)<br />   ;;切到圖紙空間<br />   ;;(command "PSPACE")<br />   (setq        XP (vla-get-customscale<br />              (vlax-ename->vla-object<br />                (ssname (ssget "X"<br />                               (list '(-4 . "< AND")<br />                                     '(0 . "VIEWPORT")<br />                                     (cons 410 (getvar "CTAB"))<br />                                     '(-4 . "< not")<br />                                     '(69 . 1)<br />                                     '(-4 . "not >")<br />                                     '(-4 . "AND >")<br />                               )<br /> <br />                        )<br />                        0<br />                )<br />              )<br />            )<br />   )<br />   ;;-------------------------------------------<br /> <br /> <br /> ;; '(-4 . "< AND");;;把空格去除<br /> <br /> ;;lsjjm 兄 <br /> ;;把程序想清楚,VIEWPORTNAME是甚么?<br />

David Li

I'm sorry that I know nothing about ActiveX funtions. I tried your sub-program, but
it did not work and returned an error of "too few arguments". Would you please fix it
for me? Tks!
David

(defun C:getnxp ( / XP)
(setq XP (vla-get-customscale
             (vlax-ename->vla-object
               (ssname (ssget "X"
                              (list '(-4 . "< AND")
                                    '(0 . "VIEWPORT")
                                    (cons 410 (getvar "CTAB"))
                                    '(-4 . "< not")
                                    '(69 . 1)
                                    '(-4 . "not >")
                                    '(-4 . "AND >")
                              )
                       )
               )
             )
           )
)
)

LUCAS

2. 
   
3. ;;BY LUCAS
   
4. ;;LISP總會了吧!
   
5. ;;(find_xp (car (entsel "\nSelect Viewport: ")))
   
6. (defun FIND_XP (ENAME / XP)
   
7.   (if ENAME
   
8.     (setq XP (cdadr (assoc -3 (entget ENAME '("ACAD"))))
   
9.           XP (/        (cdr (assoc 41 (entget ENAME)))
   
10.                 (cdr (assoc 1040 (cdr (member (assoc 1040 XP) XP)))
    
11.                 )
    
12.              )
    
13.     )
    
14.   )
    
15. )
    

<br /> ;;BY LUCAS<br /> ;;LISP總會了吧!<br /> ;;(find_xp (car (entsel "\nSelect Viewport: ")))<br /> (defun FIND_XP (ENAME / XP)<br />   (if ENAME<br />     (setq XP (cdadr (assoc -3 (entget ENAME '("ACAD"))))<br />           XP (/        (cdr (assoc 41 (entget ENAME)))<br />                 (cdr (assoc 1040 (cdr (member (assoc 1040 XP) XP)))<br />                 )<br />              )<br />     )<br />   )<br /> )<br />

David Li

如果我不想让程序停下来让我去选择那个唯一的视窗呢？

aeo

上下两贴组合一下不就行了吗?
把:
(car (entsel "\nSelect Viewport: "))

换成:
(ssname (ssget "X"
                              (list '(-4 . "< AND")
                                    '(0 . "VIEWPORT")
                                    (cons 410 (getvar "CTAB"))
                                    '(-4 . "< not")
                                    '(69 . 1)
                                    '(-4 . "not >")
                                    '(-4 . "AND >")
                              )

                       )
                       0
               )

David Li

大哥, 我刚学不久，请为我写一个可以直接加载的完整的程序（返回n）好吗？
谢谢！