社区 › Auto Lisp › 批绘图Lisp？

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

批绘图Lisp？

我的新工作是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个人可以写得“更好”，但它很有效，我每天都在使用它。。。
 
(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

可以重写：
 

(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？