求大神写一个像天正的定义视口那样的插件····

windowns456 · 发表于 2014-3-21 13:04:45

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

st788796 · 发表于 2014-3-21 13:10:28

那就用这个，为什么还要重复劳动？

windowns456 · 发表于 2014-3-21 14:05:47

st788796 发表于 2014-3-21 13:10
那就用这个，为什么还要重复劳动？

因为我不用天正

st788796 · 发表于 2014-3-21 14:24:51

windowns456 发表于 2014-3-21 14:05
因为我不用天正

;|------------ Viewport Creator ----------------
q_|_|| _\|| q_|| _\|
- Select area
- ask for viewport scale
- Go to last layout (first at right)
- Ask for center point of viewport
- Create a viewport
- view the selected area with the viewport
Create stations for Prestresed tendon
------------------------------------------------
Author: Hasan M. Asous, 2010
ALL RIGHT RESERVED TO ALL
Contact: HasanCAD @ TheSwamp.org,
asos2000 @ CADTutor.net
HasanCAD@gmail.com
------------------------------------------------
Version: 1 2012 07 01
________________________________________________
|;
; q_|_|| _\|| q_|| _\| ;
; Mainroutine Start ;
(defun c:NV (/ doc p1 p2 temp mp
scl SC cd:DWG_LayoutsList res
a b vpp vpdoc vp
)
(vl-load-com)
(setq Doc (vla-get-ActiveDocument (vlax-get-Acad-Object)))
(setq p1 (getpoint "\Select objects to view:"))
(setq p2 (getcorner p1))
(if
(< (car (trans p2 1 0)) (car (trans p1 1 0)))
(setq tmp p1
p1 p2
p2 tmp
)
T
)
(setq mp (list (/ (+ (car p1) (car p2)) 2)
(/ (+ (cadr p1) (cadr p2)) 2)
0.0
)
)
(setq sc (cond ((getint (strcat "\nWhat is Viewport Scale 1: <"
(itoa (setq sc (cond (sc)
(50)
)
)
)
">: "
)
)
)
(sc)
)
)
(setq cd:DWG_LayoutsList
(vlax-for % (vla-get-layouts Doc)
(setq res (cons (list (vla-get-name %)
(vla-get-TabOrder %)
%
)
res
)
)
)
)
(setvar "CTab"
(caar (vl-sort cd:DWG_LayoutsList
'(lambda (a b) (> (cadr a) (cadr b)))
)
)
)
(setq VPDoc (vla-get-PaperSpace doc))
(setq VPp (vlax-3D-point (getpoint "\nSelect Point for Viewport")))
(setq VP (vla-AddPViewport
VPDoc
VPp
(/ (- (car p2) (car p1)) sc)
(/ (- (cadr p2) (cadr p1)) sc)
)
)
(vla-display VP :vlax-true)
(vla-put-mspace doc :vlax-true)
(vla-put-activepviewport Doc VP)
(vla-zoomcenter
(vlax-get-acad-object)
(vlax-3d-point mp)
1.0
)
(vl-cmdf "_.zoom" (strcat (RTOS (/ 1.0 SC)) "xp"))
(vla-regen (vla-get-activedocument (vlax-get-acad-object))
acActiveViewport
)
(vla-put-mspace doc :vlax-FALSE)
(VLA-PUT-DisplayLocked VP :vlax-true)
)
(princ "\n Type NV to Invoke")
(princ)

;|------------ Viewport Creator ---------------- 
            q_|_|| _\|| q_|| _\|                
                                                 
  - Select area                                        
  - ask for viewport scale                         
  - Go to last layout (first at right)                
  - Ask for center point of viewport                
  - Create a viewport                                 
  - view the selected area with the viewport         
  Create stations for Prestresed tendon                
                                                 
------------------------------------------------ 
  Author: Hasan M. Asous, 2010                         
        ALL RIGHT RESERVED TO ALL                
  Contact: HasanCAD @ TheSwamp.org,                
           asos2000 @ CADTutor.net                
           <a href=\"mailto:HasanCAD@gmail.com\" target=\"_blank\">HasanCAD@gmail.com</a>                         
------------------------------------------------ 
  Version: 1      2012 07 01                         
________________________________________________ 
                                              |; 
        ;     q_|_|| _\|| q_|| _\|     ; 
        ;       Mainroutine Start      ; 
(defun c:NV (/              doc      p1        p2         temp          mp 
             scl      SC       cd:DWG_LayoutsList          res 
             a              b               vpp        vpdoc         vp 
            ) 
  (vl-load-com) 
  (setq Doc (vla-get-ActiveDocument (vlax-get-Acad-Object))) 
  (setq p1 (getpoint "\Select objects to view:")) 
  (setq p2 (getcorner p1)) 
  (if 
    (< (car (trans p2 1 0)) (car (trans p1 1 0))) 
     (setq tmp p1 
           p1  p2 
           p2  tmp 
     ) 
     T 
  ) 
  (setq        mp (list (/ (+ (car p1) (car p2)) 2) 
                 (/ (+ (cadr p1) (cadr p2)) 2) 
                 0.0 
           ) 
  ) 
  (setq        sc (cond ((getint (strcat "\nWhat is Viewport Scale 1: <" 
                                  (itoa        (setq sc (cond (sc) 
                                                       (50) 
                                                 ) 
                                        ) 
                                  ) 
                                  ">: " 
                          ) 
                  ) 
                 ) 
                 (sc) 
           ) 
  ) 
  (setq        cd:DWG_LayoutsList 
         (vlax-for % (vla-get-layouts Doc) 
           (setq res (cons (list (vla-get-name %) 
                                 (vla-get-TabOrder %) 
                                 % 
                           ) 
                           res 
                     ) 
           ) 
         ) 
  ) 
  (setvar "CTab" 
          (caar        (vl-sort cd:DWG_LayoutsList 
                         '(lambda (a b) (> (cadr a) (cadr b))) 
                ) 
          ) 
  ) 
  (setq VPDoc (vla-get-PaperSpace doc)) 
  (setq VPp (vlax-3D-point (getpoint "\nSelect Point for Viewport"))) 
  (setq        VP (vla-AddPViewport 
             VPDoc 
             VPp 
             (/ (- (car p2) (car p1)) sc) 
             (/ (- (cadr p2) (cadr p1)) sc) 
           ) 
  ) 
  (vla-display VP :vlax-true) 
  (vla-put-mspace doc :vlax-true) 
  (vla-put-activepviewport Doc VP) 
  (vla-zoomcenter 
    (vlax-get-acad-object) 
    (vlax-3d-point mp) 
    1.0 
  ) 
  (vl-cmdf "_.zoom" (strcat (RTOS (/ 1.0 SC)) "xp")) 
  (vla-regen (vla-get-activedocument (vlax-get-acad-object)) 
             acActiveViewport 
  ) 
  (vla-put-mspace doc :vlax-FALSE) 
  (VLA-PUT-DisplayLocked VP :vlax-true) 
) 
(princ "\n Type  NV  to Invoke") 
(princ)

windowns456 · 发表于 2014-3-21 15:39:13

st788796 发表于 2014-3-21 14:24

谢谢你···我加载上了，可用不了···

windowns456 · 发表于 2014-3-21 15:50:14

st788796 发表于 2014-3-21 14:24

天正的话，是在布局1或布局2中用定义视口命令自动跳转到模型中，框选要创建的图纸，再输入比例，自动转回到布局1或布局2指定位置放置那个视口！

st788796 · 发表于 2014-3-21 16:18:26

在模型中用

windowns456 · 发表于 2014-3-21 19:39:18

st788796 发表于 2014-3-21 16:18
在模型中用

谢谢你······

tianyi1230 · 发表于 2014-3-22 21:51:54

看来楼主的插件还要用金山汉化一下啊！

windowns456 · 发表于 2014-3-24 14:46:22

tianyi1230 发表于 2014-3-22 21:51
看来楼主的插件还要用金山汉化一下啊！

Select Point for Viewport; 错误: Automation 错误。参数 Height (位于 AddPViewport method
中) 无效
这是什么错误啊···

windowns456 · 发表于 2014-3-24 14:46:54

st788796 发表于 2014-3-21 16:18
在模型中用

Select Point for Viewport; 错误: Automation 错误。参数 Height (位于 AddPViewport method
中) 无效

chen7560152 · 发表于 2019-11-6 13:46:43

Select Point for Viewport; 错误: Automation 错误。参数 Height (位于 AddPViewport method
中) 无效
这个错误该怎么解决的

qq1254582201 · 发表于 2020-3-3 15:07:14

chen7560152 发表于 2019-11-6 13:46
Select Point for Viewport; 错误: Automation 错误。参数 Height (位于 AddPViewport method
中) 无效
...

坐标顺序是左下右上，左下的角点的坐标要都小于右上的

zteykmgscqh · 发表于 2021-7-20 01:47:58

这个好用，不知道以上的问题解决了吗？试一下

账号		自动登录	找回密码
密码			立即注册

[编程申请] 求大神写一个像天正的定义视口那样的插件····

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评

点评

点评

点评

点评