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

创建s的单独图形

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

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

只需更换此行:
(foreach lay (layoutlist)
(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

或者,为了使其更便于用户使用,请使用以下选项:
(提示“\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
页: [1]
查看完整版本: 创建s的单独图形