配料
大家好，谁能帮我一个lisp程序，可以绑定，清除，审计和转换为pdf。我对如何创建lisp来实现我前面提到的功能知之甚少。期待您的回复和建议。。。。
谢谢：） 可以使用以下lisp从当前图形中清除所有不需要的项。
(defun c:qp ()
(command "-purge" "all" "" "n")
(princ " CADTutor Forum.")
(princ))
当做
塔瓦特 为了确保清除交叉链接项（即，线型仅在删除特定块定义后才会使用），建议运行3次清除。
当做 早上好，先生们，
谢谢你的回答，只是另一个问题，如果我必须绑定，清除，审计，然后将所有内容转换为pdf，例如30张图纸，。。是否可以运行lisp来自动执行此操作，或者必须在我们的系统中进行设置。我通常在单独清除、绑定和审核cad图形后使用批打印，这需要花费很多时间，但如果有，可以使用lisp。我希望有意义。。。。
谢谢 你可以尝试在我的签名中使用批处理引擎。 谢谢你，这是一个巨大的帮助。我还想问一下，您是否知道如何或是否有一个lisp可以实际绑定图形中的外部参照。。。 实际上，AeroCAD，这是一个已经编入最终闪电战的选项。如果您决定使用它，只需在提示您选择选项时键入“bind”（应该是第一个提示）。它实际运行的代码是：
（vl cmdf“-xref”“bind”“*”）
如果你想手动操作。 嗨，Freerefill，
再次感谢您的更新，。。。 免费充值，。。。。。。还有一个问题，。。。。例如，我将图形另存为drawingname_后缀。如何保存具有相同图形名称和指定后缀的单独绑定图形。 又快又脏，但它确实管用。如果要将其包括在批处理过程中，请选择“CMD”作为选项，然后在提示您输入visual LISP代码时，只需输入“（C:FSAVEAS）”（当然不带引号）。请记住，您可以执行多个批处理（只需在选项提示下键入“M”即可打开和关闭多个选项）。
将其保存到指定目录可能需要一些调整。
(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)
)
页:
[1]
2