工具/Lisp查找特定仪器

liamdonnelly020 · 发表于 2022-7-5 15:16:12

大家好。

我想知道是否有人知道一个工具或方法，基本上，批量PDF多个视口或特定坐标内的纸张布局。我有一个A0图纸，其中我需要打印A0图纸，多个网格设置为A4，然后一个Jpeg显示完整的计划与网格上。我使用-plot命令设置了一个脚本，并为每个网格设置了坐标。但是，在多个图形上执行此操作有点缓慢和繁琐。有人知道通过脚本或lisp打开图形的方法吗。查找块或多段线的某些实例并打印（使用某些参数，例如包括网格边缘10mm的轮廓），当没有更多的块可搜索时，它会保存、关闭并打开下一个要搜索和打印的图形？

非常感谢您的帮助。

谢谢

BIGAL · 发表于 2022-7-5 15:28:57

这可以为模型或布局选项卡更改，并使用多个块作为位置在无打印图层上创建块图纸尺寸使用阵列等进行创建。

copy


; printing multiple sheets in model space automatically
; by Bigal 2011
(PROMPT ".....PRINTING DRAWING TO plotter....")
(setq oldsnap (getvar "osmode"))
(setvar "osmode" 0)
(setq ss2 (ssget "x" '((0 . "INSERT")(2 . "Your blockname here")(410 . "Model"))))
(setq n (sslength ss2))
(setq index 0)
(repeat n
   (setq en (ssname ss2 index))
   (setq el (entget en))
   (setq inspt (assoc 10 el)) ; insertion pt
  (setq xmin (- (cadr inspt) 6.0))
  (setq ymin (- (caddr inspt) 6.0))
  (setq xymin (strcat (rtos xmin 2 1) "," (rtos ymin 2 1)))
  (setq xmax (+ xmin 813.0)) ; hard coded for 813 wide 6mm offset
  (setq ymax (+ ymin 566.0)) ;hard code for 566 high
  (setq xymax (strcat (rtos xmax 2 1) "," (rtos ymax 2 1)))
 (COMMAND "-PLOT"  "Y"     "" "Design-5100"
       "A3" "M"     "LANDSCAPE"   "N"
       "W"   xymin   xymax "1=2"  "C"
       "y"   "Designlaser.ctb"      "Y"   "" "n"   "n"
       "y" 
   )
 (setq index (+ index 1))
)
(setvar "osmode" oldsnap)
(princ)

liamdonnelly020 · 发表于 2022-7-5 15:33:45

啊，太好了，谢谢。这样，我就可以打开一个绘图，搜索我命名的块，然后连续打印每个块（我可以推荐一个文件名？）到A4？我需要做什么改变才能让它工作？

我最近才试过Lisp和脚本等等，所以对这一切都还很陌生。

谢谢

BIGAL · 发表于 2022-7-5 15:42:28

明天将粘贴pdf代码链接，您需要执行类似pdf名称dwgname+view1的操作，然后是dwgname+view2，如果使用布局如此简单，可以使用布局名称+dwgname。对于这项任务，您需要非常容易地学习脚本。

目前错误的计算机正在构建新的1

liamdonnelly020 · 发表于 2022-7-5 15:54:27

比加尔。。。我能看到你要发送的新代码吗？

非常感谢

BIGAL · 发表于 2022-7-5 16:04:46

你能发布一个dwg吗？你已经要求了不同的方式来做网格视图标题栏？

hosyn · 发表于 2022-7-5 16:12:03

嗨bigal
我检查了此代码，并收到以下错误消息：

copy

Command: PLOTT
.....PRINTING DRAWING TO plotter....
error: bad argument type: lselsetp nil
Cannot invoke (command) from *error* without prior call to (*push-error-using-command*).
Converting (command) calls to (command-s) is recommended.
Command:

我想用这段代码直接绘制任何块。

maratovich · 发表于 2022-7-5 16:20:01

霍辛
也许这会帮助你：
https://www.kdmsoft.net/skleyka.html
或者：
https://www.kdmsoft.net/revers.html

[编程交流] 工具/Lisp查找特定仪器

发表回复

精选推荐