xdrx_textstyle_make 有时发生异常

zhong2013

DBX下可以用设置视口的大小和角度，但不能进行视图操作，也就是我要设置图纸显示范围，怎么操作？
好像是所有要激活的功能都不能用

zhong2013

marting 发表于 2018-11-16 14:10
你想批量打印，你这样是做不到的
因为你用了 vla-open 实际打开了图，图形打开后，会回到你执行LISP的那 ...

DBX我不能修改图纸打印范围，还有发送到打印文件。

zhong2013

marting 发表于 2018-11-16 14:10
你想批量打印，你这样是做不到的
因为你用了 vla-open 实际打开了图，图形打开后，会回到你执行LISP的那 ...

(defun c:tt (/ dbxapp dir directory-dia height over pater pldy tklayout width)
        ;---------------------------------------------------------
        (defun Directory-Dia ( Message / sh folder folderobject result);;网络收集
    ;; By Tony Tanzillo
    ;; Modified by Tim Willey
    ;; 16 Will let you type in the path
    ;; 64 Will let you create a new folder
                (vl-load-com)
                (setq sh
                        (vla-getInterfaceObject
                                (vlax-get-acad-object)
                                "Shell.Application"
                        )
                )
                (setq folder
                        (vlax-invoke-method
                                sh
                                'BrowseForFolder
                                (vla-get-HWND (vlax-get-Acad-Object))
                                Message
                                0 ; This is the bit number to change.
                        )
                )
                (vlax-release-object sh)
                (if folder
                        (progn
                                (setq folderobject
                                        (vlax-get-property folder 'Self)
                                )
                                (setq result
                                        (vlax-get-property FolderObject 'Path)
                                )
                                (vlax-release-object folder)
                                (vlax-release-object FolderObject)
                                (if (/= (substr result (strlen result)) "\\")
                                        (setq result (strcat result "\\"))
                                        result
                                )
                        )
                )
        )
        (if (setq Dir (Directory-Dia "选择一个要操作的目录."))
                (progn
                        (setq dbxApp
                                (if (< (atoi (setq oVer (substr (getvar "acadver") 1 2))) 16)
                                        (vla-GetInterfaceObject (vlax-get-acad-object) "ObjectDBX.AxDbDocument")
                                        (vla-GetInterfaceObject (vlax-get-acad-object) (strcat "ObjectDBX.AxDbDocument." oVer))
                                )
                        )
                        (foreach file (mapcar (function (lambda (x) (strcat Dir x))) (vl-directory-files Dir "*.dwg" 1))
                                (if (vl-catch-all-error-p (vl-catch-all-apply 'vla-Open (list dbxApp file :vlax-false)))
                                        (prompt (strcat "\n 打开这个文件出错: " file))
                                        (progn
                                                (setq tklayout (vla-get-layouts dbxApp))
                                                (if (vl-catch-all-error-p (vl-catch-all-apply 'vla-item (list tklayout "批量打印")))
                                                        (vla-put-TabOrder (vla-Add tklayout "批量打印") 1)                                
                                                        (vla-put-TabOrder (vla-item tklayout "批量打印") 1)                                                
                                                )
                                                (setq pater (VLA-GET-PAPERSPACE dbxApp))
                                                (setq pldy (vla-Item pater 1)) ;;目前不能获得指定布局的视口，获得最后一次激活的布局
                                                (setq width 300)
                                                (setq height 200)
                                                (vla-put-Width pldy width)
                                                (vla-put-Height pldy height)
                                                (VLA-DISPLAY pldy :VLAX-TRUE)
                                                (VLA-PUT-TWISTANGLE pldy (* 0.25 pi));;
                                                (vlax-put-property pldy 'StandardScale2 '2);;比例1：1
                                                (vla-saveas dbxApp (vla-get-name dbxApp))
                                        )
                                )
                        )
                        (vlax-release-object dbxApp)
                )
        )
)

Lisphk

zhong2013 发表于 2018-11-21 15:54
DBX我不能修改图纸打印范围，还有发送到打印文件。

看不到图，你只是不能用鼠标
其他根据特征实体计算外框角点坐标还是能的
比如图框块的角点坐标，或者ZOOM E

很多离线打印的，不都可以选ZOOM到全图打印嘛