从多个图形文件中提取坐标时不能更新选择集问题

GTJ116600 · 发表于 2013-7-15 17:21:21

本帖最后由 newer 于 2021-2-4 05:32 编辑

我做一个批量提取坐标文件，中间涉及到从从多个图形文件中提取坐标问题，顺次打开每个图形建立选择集时，选择集中实体不能更新（还是原实体名称），选择集名称能更新，不知是什么原因，求大神帮助解决？
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;错误处理函数;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun zyj-silenceexit( / *error*)
   (t (setq *error* strcat))
)
;;;;;;;;;;;;;;;;;;;;;;三、选择集转化为表;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun zyj-ss->enlist(ss / en i lst)
(setq lst '())
(repeat (setq i (sslength ss))
   (setq en (ssname ss (setq i (1- i))))
   (setq lst (cons en lst))
)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;一、得到多段线顶点的点表;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun zyj-getplpt(en / a)
(mapcar 'cdr
   (vl-remove-if '(lambda(a) (/= (car a) 10) )
      (entget en)
   )
)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;把坐标表文件输入到TXT文本中;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun outtxt(datalist fn)
(setq num (length datalist))
(repeat num
   (setq txt (car datalist))
   (princ txt fn)
   (princ "\n")
   (setq datalist (cdr datalist))
)
fn
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;主程序;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:putdata( / ffn ph fn i n n1 fn1 fn2 fn3 str int len lst)
(setq Vcmdecho (getvar "cmdecho") Vosmode (getvar "osmode"))
(setvar "cmdecho" 0)
(setvar "osmode" 0)
(setq fffn (getfiled " 打开文件 "  "" "dwg" 2))
(or fffn (zyj-silenceexit))
(setq ph (vl-filename-directory fffn))
(setq fn (vl-directory-files ph "*.dwg" 1))  ;返还指定目录下所有dwg文件名称
(princ fn)
(setq i -1)
(repeat (length fn)
   (setq n1 (nth (setq i (1+ i)) fn)
         fn1 (strcat (vl-string-subst "/" "\\" ph) "/" n1) ;得到第一图形名称
         fn2 (strcat "d:/" (itoa (1+ i)) ".txt")
   )
   (princ fn1)
   (setq fn3 (open fn1 "r"))
   (setq ss (ssget "x" '((0 . "*POLYLINE"))))
   (close fn3)                               ;读取图形数据结束
   (or ss (zyj-silenceexit))
   (princ ss)
   (princ (sslength ss))
   (princ "\n")
   (setq enlist (zyj-ss->enlist ss))       ;将选择集转换为实体表
   (princ enlist)
   (princ (length enlist))
)
)

st788796 · 发表于 2013-7-15 17:21:22

GTJ116600 发表于 2013-7-17 14:39
谢谢热心帮助，搜了，一无所获

怎么可能没有收获?!当然没有现成的，有方法啊！

(defun c:tt (/ *acad* dbxdoc fl)
(setq *acad* (vlax-get-acad-object)
DBXDoc (vla-GetInterfaceObject
*acad*
(if (< (setq acVer (atoi (getvar "ACADVER"))) 16)
"ObjectDBX.AxDbDocument"
(strcat "ObjectDBX.AxDbDocument." (itoa acVer))
)
)
)
(if (setq fl (getfiled "" "" "dwg" 4))
(vla-open DBXDoc fl)
(vlax-for obj dbxdoc
(if (wcmatch (vla-get-objectname obj) "*POLYLINE")
(progn
(setq pts (vlax-get obj 'Coordinates))
)
.....
)
)
)
(princ)
)

GTJ116600 · 发表于 2013-7-15 17:40:46

自己先顶一个。
这是不正常提示：
Command: putdata
(1.dwg 4.dwg 2.dwg 3.dwg)

D:/exedwg/1.dwg<Selection set: 37>1  (<Entity name: 7ef5ae88>)1

D:/exedwg/4.dwg<Selection set: 39>1 (<Entity name: 7ef5ae88>)1

D:/exedwg/2.dwg<Selection set: 3b>1  (<Entity name: 7ef5ae88>)1

D:/exedwg/3.dwg<Selection set: 3d>1  (<Entity name: 7ef5ae88>)1

虽然选择集名称不同，但实体名称相同，选择集长度也项目。
正常应该是选择集名称不同，实体名称也不同，选择集长度根据实体多少确定

newer · 发表于 2013-7-15 19:27:14

你用 FOPEN 读DWG图？那是读文本文件的。

GTJ116600 · 发表于 2013-7-15 20:25:13

本帖最后由 GTJ116600 于 2013-7-15 20:39 编辑

newer 发表于 2013-7-15 19:27
你用 FOPEN 读DWG图？那是读文本文件的。

谢谢指点。那怎样能实现批量读取图形文件呢？

Free-Lancer · 发表于 2013-7-15 20:57:32

读文件要用DBX方法来自: Android客户端

newer · 发表于 2013-7-15 20:58:22

GTJ116600 发表于 2013-7-15 20:25
谢谢指点。那怎样能实现批量读取图形文件呢？

用读取外部DWG 做关键字搜索论坛，很多讨论。

GTJ116600 · 发表于 2013-7-17 11:14:32

Free-Lancer 发表于 2013-7-15 20:57
读文件要用DBX方法

麻烦Free-Lancer能给个链接么。找了，没有找到

st788796 · 发表于 2013-7-17 13:18:11

GTJ116600 发表于 2013-7-17 11:14
麻烦Free-Lancer能给个链接么。找了，没有找到

搜另类purgr，G版写的是DBX方式

GTJ116600 · 发表于 2013-7-17 14:39:52

st788796 发表于 2013-7-17 13:18
搜另类purgr，G版写的是DBX方式

谢谢热心帮助，搜了，一无所获

aeo · 发表于 2013-10-14 21:53:25

比较土一点的办法就是插入到图里面，取了所有信息后再删除或undo,再插入下一张。

当然要注意每张图的 insbase要设置对

XDSoft · 发表于 2013-10-14 22:06:34

aeo 发表于 2013-10-14 21:53
比较土一点的办法就是插入到图里面，取了所有信息后再删除或undo,再插入下一张。

当然要注意每张图的 i ...

对少量图可以，大量图，很快会耗尽内存。

womrli · 发表于 2021-1-3 10:01:14

参考学习一下

账号		自动登录	找回密码
密码			立即注册

[已解决] 从多个图形文件中提取坐标时不能更新选择集问题

最佳答案

评分

点评

点评

点评

点评

点评

点评

点评

点评