批绘图Lisp？

CadTechJGC184 · 发表于 2022-7-5 23:54:34

我的新工作是2006年。我在上一次使用2008。工作那是大约8个月前。我被解雇了。无论如何。我记得在我的新工作中使用了很多他们没有的lisp。Batch plat就是其中之一。

我发现自己打开并绘制了每个cad文件。我更了解他们！

有什么建议吗？

MiGo · 发表于 2022-7-6 00:00:43

难道你不应该只使用“publish”命令吗？这将打开一个对话框，允许您添加图形、选择模型和/或布局选项卡、在执行dwf时进行其他修改，以及从下拉框中选择典型的页面设置。

CadTechJGC184 · 发表于 2022-7-6 00:02:16

米戈，

我会调查的！

MiGo · 发表于 2022-7-6 00:06:10

我不确定发布了什么cad版本，但它应该对每个人都可用。我已经用了很长时间了。如果你对函数有任何问题，尽管问。

Lee Mac · 发表于 2022-7-6 00:10:01

请参见此处查看命令列表：

http://www.hyperpics.com/commands/

Commandobill · 发表于 2022-7-6 00:13:25

这是我的1文件批处理图的完全通用版本。我知道这里可能有256个人可以写得“更好”，但它很有效，我每天都在使用它。。。

copy

(defun printz()
 ; Set up variables
 (setq tabNum 0)
 (setq whileDummy 1)
 ; Begin loop
 (while (= whileDummy 1)
   ; Check if tab exists
   (if (/= (nth tabNum (layoutlist)) nil)
     (progn
   (setvar "ctab" (nth tabNum (layoutlist)))    ; Switch to tab
   (command "-plot" "" "" "" "" "" "" "")
   (setq tabNum (+ tabNum 1))            ; Incriment tab number
   )
     (setq whileDummy 2)
     )
   )
 (princ "you're done")(princ)
 )

Lee Mac · 发表于 2022-7-6 00:16:26

可以重写：

copy


(defun printz  ()
 (foreach x  (layoutlist)
   (setvar "ctab" x)
   (command "-plot" "" "" "" "" "" "" ""))
 (princ "you're done")
 (princ))

Commandobill · 发表于 2022-7-6 00:19:10

很不错的。就像我说的，虽然它有效。我注意到，当我搜索“batch plot”时，我得到了131个点击率。。。在大约30年的时间里，我得到了很多好的信息。什么东西会粘在一起？

Lee Mac · 发表于 2022-7-6 00:21:38

对不起，我不太懂“粘性”？

Commandobill · 发表于 2022-7-6 00:24:33

粘性：当线是粘性的。

基本上，当一个线程停留在列表的顶部，而不是循环通过。。。

[编程交流] 批绘图Lisp？

发表回复

精选推荐