创建s的单独图形

pmxcad · 发表于 2022-7-6 07:43:55

你好
我发现了一个lisp“LayoutsToDwgs.lsp”。是一个很好的lisp，但我喜欢有一个我可以选择布局创建dwg的。
有人能帮我吗？

谢谢
PmxCAD
布局图。lsp

MSasu · 发表于 2022-7-6 08:19:28

只需更换此行：

(foreach lay (layoutlist)

copy

(if (not (and (setq lay (getstring "\nIndicate layout to export: "))
             (member (strcase lay) (mapcar 'STRCASE (layoutlist)))))
(exit)
)
(progn

MSasu · 发表于 2022-7-6 08:33:54

或者，为了使其更便于用户使用，请使用以下选项：
[code]（提示“\n\n指示要导出的布局索引”）（textcr）（setq index 0 listlaways（layoutlist））（对于每个布局列表布局（提示（strcat“）（itoa（setq index（1+index）））”=“theLayout）））（if（not）（和（setq indexLayout（getint”\n布局索引：）（

pmxcad · 发表于 2022-7-6 09:02:02

好的，米尔恰，效果很好。是否也可以同时选择更多布局？

PmxCAD

[编程交流] 创建s的单独图形

发表回复

精选推荐