使用特定部分保存

isutheparambil · 发表于 2022-7-5 16:05:01

你好

我正在尝试一种方法，从多个具有不同文件名的相同图形（我有1000个文件）中保存，其中仅包含整个图形中的特定部分，该部分需要包含命名部分作为图形编号。
此图形中没有块或任何属性。

例如，请参阅附件

我需要保存名为630的绘图，该绘图与绘图编号相同。

如果绘图编号为631，则需要删除除631以外的所有其他绘图。
现在我正在做的是从每个图形中删除不需要的绘图，并分别保存每个图形。

我希望你能得到我的要求。

任何人有解决这个问题的想法，请与我分享。。

提前感谢……：）：）

630.dwg

maratovich · 发表于 2022-7-5 16:09:56

如果满足以下条件，则可以这样做（但时间很长）：
-所有文件都像一个示例
-单独图层上的多段线，此图层上没有其他元素
-在单独的层上编号，此层上没有其他元素
-等等。
您需要查看完整文件。

BIGAL · 发表于 2022-7-5 16:13:24

您可以找到文本插入点，然后使用（命令“bpoly”pt“”）创建绘图的新pline，获取坐标，然后编写一个脚本文件，其中所有绘图的开头都是new，最后是saveas绘图编号。角点也需要移动吗？输出是否保存在dwg模板中？或者使用open而不是new，它需要一个缩放因子，但使用extmin和extmax也很容易。明显的东西，如层等

copy


new
pline
x,y x,y x,y x,y c
text plotmum....
saveas
plotnum
close
new
pline
x,y x,y x,y x,y c
text plotnum ......
saveas
plotnum
saveas
close

也许是Lisp程序的脚本

copy


(do_lots 621 pt1 pt2 pt3 pt4)
(do_lots 622 pt1 pt2 pt3 pt4)

devitg · 发表于 2022-7-5 16:16:03

为什么631图是唯一的开放多边形？

BIGAL · 发表于 2022-7-5 16:20:03

试试这个，它被设置为一个测试，需要一点用户修改，我已经将重复功能设置为3进行测试，它创建了3个新的dwg。它是为了寻找一个c:\temp目录进行测试，所以在那里写下了新的。我把一个空白的dwg版本叫做PLOTS保存到c:\temp中，当我打开它，把新的绘图放在这个dwg中，这样图层或任何其他东西仍然存在。

重要的一点是，它不会检查现有的dwg，因此如果它已经存在，则会出错。它需要知道输出的位置等，但这可以添加。

试着让我知道。

进行3个绘图

copy


; pline co-ords example
; By Alan H
(defun getcoords (ent)
(vlax-safearray->list
(vlax-variant-value
(vlax-get-property
(vlax-ename->vla-object ent)
"Coordinates"
)
)
)
)
; program starts here
; writes out a bpoly of a plot and the label for that plot
; to a brand new file of just that plot
(defun do_lots ( / ss x y fn)
(setq oldsnap (getvar 'osmode))
(setvar 'osmode 0)
(setq ss (ssget "X" (list (cons 0 "*text")(cons 8 "Villa Numbers"))))
(setq fn (open "C:\\temp\\plots.scr" "W"))
(setq x 0) ; rem this out for all plots
(repeat 3  ; for testing
;(repeat (sslength ss) for all
(setq txt (vlax-ename->vla-object (ssname ss x)))
(setq txtstr (vla-get-textstring txt))
(setq txtins (vlax-safearray->list (vlax-variant-value (vla-get-insertionpoint txt))))
(command "bpoly" txtins "")
(setq co-ords (getcoords (entlast)))
(command "erase" "l" "")
(write-line "open C:/Temp/Plots.dwg" fn)
(write-line "clayer" fn)
(write-line (strcat """ "Villa Plot Limits" """) fn)
(write-line "Pline" fn)
(setq y 0)
(repeat (/ (length co-ords) 2)
(write-line (strcat (rtos  (nth y co-ords) 2 3 ) "," (rtos (nth (+ y 1) co-ords) 2 3)) fn)
(setq y (+ y 2))
)
(write-line "c" fn)
(write-line "zoom extents" fn)
(write-line "Text" fn)
(write-line (strcat (rtos (nth 0 txtins) 2 3) "," (rtos (nth 1 txtins) 2 3 )) fn)
(write-line  "2.0" fn)
(write-line "0" fn)
(write-line txtstr fn)
(write-line "filedia" fn)
(write-line "0" fn)
(write-line "saveas" fn)
(write-line "2013" fn)
(write-line (strcat "C:/temp/" txtstr) fn)
(write-line "close" fn)
(setq x (+ x 1))
)
(close fn)
(setvar 'osmode oldsnap)
)
(do_lots)
(command "script" "c:\\temp\\plots")