配料

aeroCAD · 发表于 2022-7-6 10:45:43

大家好，
谁能帮我一个lisp程序，可以绑定，清除，审计和转换为pdf。我对如何创建lisp来实现我前面提到的功能知之甚少。期待您的回复和建议。。。。

谢谢：）

Tharwat · 发表于 2022-7-6 10:53:12

可以使用以下lisp从当前图形中清除所有不需要的项。

(defun c:qp ()
 (command "-purge" "all" "" "n")
(princ " CADTutor Forum.")
(princ))

当做

塔瓦特

MSasu · 发表于 2022-7-6 11:00:27

为了确保清除交叉链接项（即，线型仅在删除特定块定义后才会使用），建议运行3次清除。

当做

aeroCAD · 发表于 2022-7-6 11:05:26

早上好，先生们，
谢谢你的回答，只是另一个问题，如果我必须绑定，清除，审计，然后将所有内容转换为pdf，例如30张图纸，。。是否可以运行lisp来自动执行此操作，或者必须在我们的系统中进行设置。我通常在单独清除、绑定和审核cad图形后使用批打印，这需要花费很多时间，但如果有，可以使用lisp。我希望有意义。。。。

谢谢

Freerefill · 发表于 2022-7-6 11:14:24

你可以尝试在我的签名中使用批处理引擎。

aeroCAD · 发表于 2022-7-6 11:20:34

谢谢你，这是一个巨大的帮助。我还想问一下，您是否知道如何或是否有一个lisp可以实际绑定图形中的外部参照。。。

Freerefill · 发表于 2022-7-6 11:22:21

实际上，AeroCAD，这是一个已经编入最终闪电战的选项。如果您决定使用它，只需在提示您选择选项时键入“bind”（应该是第一个提示）。它实际运行的代码是：

（vl cmdf“-xref”“bind”“*”）

如果你想手动操作。

aeroCAD · 发表于 2022-7-6 11:28:45

嗨，Freerefill，
再次感谢您的更新，。。。

aeroCAD · 发表于 2022-7-6 11:35:13

免费充值，。。。。。。还有一个问题，。。。。例如，我将图形另存为drawingname_后缀。如何保存具有相同图形名称和指定后缀的单独绑定图形。

Freerefill · 发表于 2022-7-6 11:40:31

又快又脏，但它确实管用。如果要将其包括在批处理过程中，请选择“CMD”作为选项，然后在提示您输入visual LISP代码时，只需输入“（C:FSAVEAS）”（当然不带引号）。请记住，您可以执行多个批处理（只需在选项提示下键入“M”即可打开和关闭多个选项）。

将其保存到指定目录可能需要一些调整。

copy


(defun c:fsaveas( / a b)
 (vl-load-com)
 (setq a "_suffix"
   b (getvar "dwgprefix")
   c (vl-filename-base (getvar "dwgname"))
   )
 (setvar "cmdecho" 0)
 (setvar "filedia" 0)
 (vl-cmdf "saveas" "" (strcat b c a))
 (setvar "filedia" 1)
 )

[编程交流] 配料

发表回复

精选推荐