为每个层生成dwg

MastroLube · 发表于 2022-7-5 15:17:11

你好，你能帮我修复这个代码吗？它工作不太好。。。

我有一个5层的源dwg，我想用“BORDO”和其中一个生成4个dwg。
例子：
1.BORDO+ARMAT\u INF\u DIR\u X
2.BORDO+ARMAT\u INF\u DIR\u Y
3.BORDO+ARMAT\u SUP\u DIR\u X
4.BORDO+ARMAT\u SUP\u DIR\u Y

这是代码：

copy

(defun c:test    (/ continue first name next_lay lay_name objects bordo)
 (setq    continue t
   first     t
   name     (getvar "dwgname")
   name     (substr name 1 (- (strlen name) 4))
   name     (strcat (getvar "dwgprefix") name)
 )
 
(setq bordo (ssget "X" (list (cons 8 "BORDO"))))
 (while continue
   (setq next_lay (tblnext "LAYER" first)
     first       nil
     objects nil
   )
   (setq lay_name (cdr (assoc 2 next_lay)))
   
   (if    (not next_lay)
     (setq continue nil)
     (progn
   (setq objects (ssget "X" (list (cons 8 lay_name))))
   (if (and objects (/= lay_name "BORDO"))
     (progn
       (setq lay_name (cdr (assoc 2 next_lay)))
       (setq objects (ssgetunion objects bordo))
       (command "-wblock")
       (command (strcat name "_" lay_name))
       (command "" (list 0 0 0))
       (command objects "")
       (command "oops")
     )
     
   )
     )
   )
 )
 (princ)
)
 (defun ssgetunion (sel2 sel1 /)
 (if sel1
   (if sel2
     (progn
       (setq ct 0)
       (repeat (sslength sel2)
         (ssadd (ssname sel2 ct) sel1)
         (setq ct (1+ ct))
       )
     )
     sel1
   )
   (princ "\nNIL.")
 )
 sel1
)

看起来最后一个文件包含所有层。我每个周期都将对象设置为“nil”，所以我不理解原因。。。

非常感谢。
丹尼斯

臂图纸

Lee Mac · 发表于 2022-7-5 15:25:23

考虑以下代码：
我已经在谷歌上搜索了这个函数”（vla wblock.）但我什么也没找到。

谢谢

MastroLube · 发表于 2022-7-5 15:39:31

是-更改：

copy

至：
如果愿意，请删除LM:uniquefilename函数的函数定义，因为它不再使用。

我可能错了，但我不确定在不以新格式保存图形的情况下是否可以实现这一点。

Lee Mac · 发表于 2022-7-5 15:40:33

MastroLube · 发表于 2022-7-5 15:48:52

Oh nice you're very kind!

If I had your skills I would work half a day ahah

Thank you again, see you soon )

Grrr · 发表于 2022-7-5 15:55:10

But you would code on the other half...

And GJ Lee!

Lee Mac · 发表于 2022-7-5 16:05:07

Thanks!

MastroLube · 发表于 2022-7-5 16:17:07

ahah indeed!!

May I ask something else?

I'm looking at the code and I have few questions..
1) Is it possible to overwrite the file instead of generate another with a different name with this function "LM:uniquefilename"?

2) Is it possible to change the file format output of write block to, for example, autocad 2009?

copy

(vla-wblock doc (LM:uniquefilename (strcat dwg "_" (vla-get-name lay) ".dwg")) sso)

I've googled for this function "(vla-wblock .." but I dind't find anything.

Thanks

Lee Mac · 发表于 2022-7-5 16:19:56

Yes - change:

copy

(vla-wblock doc (LM:uniquefilename (strcat dwg "_" (vla-get-name lay) ".dwg")) sso)

To:

copy

(vla-wblock doc (strcat dwg "_" (vla-get-name lay) ".dwg") sso)

And remove the function definition for my LM:uniquefilename function if you wish, as this is no longer used.

I may be wrong, but I'm not sure that this is possible to achieve without subsequently saving the drawing in a new format.

[编程交流] 为每个层生成dwg

发表回复

精选推荐