社区 › Auto Lisp › 布局2 dwg（按范围）

pmxcad 发表于 2022-7-5 22:12:34

布局2 dwg（按范围）

你好
 
有没有办法把这两个口吃结合起来？（附件）
 
我正在寻找一个lisp的出口布局到dwg的范围。我喜欢lisp“LayoutsToDwgs.lsp”，但我想选择（按范围）要导出的布局，就像lisp“按范围打印CTAB.lsp”
 
是否也可以将“LayoutsToDwgs.lsp”中的前缀选项更改为后缀？
 
谢谢
 
PmxCAD
布局图。lsp
按范围CTAB绘图。LSP

BIGAL 发表于 2022-7-5 22:33:25

非常确定（layoutlist）函数需要用我在plot by range原始代码中使用的方法替换是的，我是Alan H，我现在时间有点紧，有几篇帖子要赶。只需要计算Wblock位。
 
替换绘图范围中的绘图位。lsp未测试！

(COMMAND "-PLOT" "Y" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" name "" "" )

with this but you need to supply a file name maybe

(setq fname (strcat (getvar "DWGPREFIX") (getvar "dwgname") (vla-get-name lay)))
(command "_.-wblock" fname "*") ; for civ 3d you may want a "N" to not include map info.

pmxcad 发表于 2022-7-5 22:42:57

对不起，阿兰，它坏了。给出错误：错误：错误参数类型：VLA-OBJECT nil
 
这是目前为止的Lisp程序吗？
 
;
;Plots layouts by range
; By Alan H Feb 2014
;
;
(defun AH:pltlays ( / lay numlay numend)

(setq numlay (getint "\nEnter Start tab number"))
(setq numend (getint "\nEnter last tab number"))

(setq len (+ (- numend numlay) 1))

(repeat len
(vlax-for lay (vla-get-Layouts (vla-get-activedocument (vlax-get-acad-object)))
(if (= numlay (vla-get-taborder lay))
(setvar "ctab" (vla-get-name lay))
) ; if
(princ (getvar "ctab"))
) ; for
(setq lay nil)
;
;
;
;
;
(setq fname (strcat (getvar "DWGPREFIX") (getvar "dwgname") (vla-get-name lay)))
(command "_.-wblock" fname "*") ; for civ 3d you may want a "N" to not include map info.

(setq numlay (+ numlay 1))
) ; end repeat
) ; defun

(AH:pltlays)
 
 
 
 
谢谢
PmxCAD

BIGAL 发表于 2022-7-5 22:59:49

试试这个
 

;
;Plots layouts by range
; By Alan H Feb 2014
;
;
(defun AH:pltlays ( / lay numlay numend)
(setq numlay (getint "\nEnter Start tab number"))
(setq numend (getint "\nEnter last tab number"))
(setq len (+ (- numend numlay) 1))
(repeat len
(vlax-for lay (vla-get-Layouts (vla-get-activedocument (vlax-get-acad-object)))
(setq fname (strcat (getvar "DWGPREFIX") (getvar "dwgname") (vla-get-name lay)))
(if (= numlay (vla-get-taborder lay))
(setvar "ctab" (vla-get-name lay))
) ; if
(princ (getvar "ctab"))
) ; for
(setq lay nil)
(command "pspace")
(command "_.-wblock" fname "*" ) ; for civ 3d you may want a "N" to not include map info.
(setq numlay (+ numlay 1))
) ; end repeat
) ; defun
(AH:pltlays)

pmxcad 发表于 2022-7-5 23:07:28

不，对不起，艾伦。
没有后缀或前缀，因此它会自动覆盖。已创建的图形具有奇怪的文件名en，但仍包含所有布局。我更喜欢为文件名选择后缀。
已创建：1640BOSR6UED-ELH19000001。dwgR6UED MMX。图纸。1640BOSR6UED-ELH19000001。dwg是文件名en R6UED MMX是布局名称。
 
PmxCAD

pmxcad 发表于 2022-7-5 23:21:59

其他人有主意吗？

查看完整版本: 布局2 dwg（按范围）