打印机设置lisp

denverado · 发表于 2022-7-5 23:20:40

你好

我创建了一个lisp例程，该例程删除了所有现有的打印样式，并添加了新的样式，然而，在工作的4台计算机中，它只能在2台上工作。
另两个得到这个错误“VLAX-get-ACAD-OBJECT error”。

(defun c:pms    (/)
 (vlax-map-collection
   (vla-get-Plotconfigurations
     (vla-get-ActiveDocument
   (vlax-get-Acad-Object)
     )
   )
   'vla-delete
 )
(command "._-PSETUPIN" "T:/CAD Library/LWA Lisp Routines/plotsetup.dwg" "*")
(prinC)
)

有人能帮忙吗？

Tharwat · 发表于 2022-7-6 00:19:45

添加以下函数以加载visual lisp代码库。

copy

(vl-load-com)

denverado · 发表于 2022-7-6 00:33:41

谢谢
我们决定走另一条路。

我对新的Lisp程序有问题。不允许我在打印机名称前添加双黑斜杠。
有人有办法吗？

copy

(defun c:p1 (/)
(command "-plot" "y" "" "[url="file://\\LWAFAPSVR01\Level"]\\LWAFAPSVR01\Level[/url] 1 Printer 1 PCL" "a3" 
"Millimeters" "Landscape" "n" "window" "-8.060648,5.971115" 
"811.939352,579.971115" "1:2" "center" "y" "LWA_A1 to A3_Plot.ctb" "y" 
"n" "n" "n" "n" "y" "y")
(prinC)
)

[编程交流] 打印机设置lisp

发表回复

精选推荐