[求助]：那位高手能编出这样的一个lsp?

he520930

1.批量插入DWG文件的程序，现在将多张CAD图纸导入到一个CAD文件中常使用拖入的办法，可是图纸太多重复劳动，哪个高手能编个程序将一个固定文件夹中的CAD文件全部导入CAD中，并在CAD文件中规则排列！如我的文件夹中有DWG文件名为：M1，M2，M3，M4，M5，M6，M7，M8....等等 我指想用该程序插入,M2,M5,M7,M8的图(随我输入,如我不输入时侧全部插入文件夹中的DWG), 不知可否?
不知那位高手可以做到?
2.想问一下,在CAD中能不能打开,TXT文件?例如:我的C盘中有一个文件为111.TXT文件路径为:C:/HE/111.TXT.我想在CAD中打开来编辑.不知可否,谢谢各位
请高手发到我的邮箱:he520930@qq.com
或QQ;407029182
谢谢了

sfjlx

应该行!不过我不会!
本坛里曾经有人编了一个可以插如计算结果的程序,与你所说差不多!

he520930

我的意思是插入DWG文件的图，我有一个是可以做，但还不能达到我的要求，你等下，我把原程序发上来，请大家帮忙修改一下,这个是只能把所有DWG图插入来，我想加个过滤，就是我想要的图纸才可以插入，如我只要M2，M3，M5，M6，名称随我输入，最好能一次输入，不是一个个名称输入，你们理解我的意思了吗？还有在CAD中打开TXT文件如何弄？谢谢各位!!能做出请联系我或发到我的邮箱中:E-mail:he520930@qq.com
QQ:407029182谢了

zxq0220

在CAD中打开TXT文件,可以这样：
1、NOTEPAD
      <FILENAME.TXT>
2、(STARTAPP "NOTEPAD" "FILENAME.TXT")

he520930

好的,第2个问题我解决到了,谢谢<zxq0220 >兄的回复,现在是最主要是第一个问题,这个对我来说是最重要的,大哥继续阿,谢谢你的回复
(最好第一个问题这样:我在CAD中先中文字来识别插入图,也就是说我在CAD中选中了文字M1,M2,M3,然后回车就能插入M1,M2,M3的图纸进来,最好手动也可以,两种方式都能就是最好不过了)高手加油,帮帮我阿,

carrot1983

试一下这个。是用最简单的lisp语言。功能不是很强大。
1.首先选中了文字M1,M2,M3
2.这时有些缺陷：①.就是块的插入点我直接用文字的的定义点10组码.
                                     当然你的目的主要的插进来块啊。可以自己变通.
                               ②.你的CAD块的路径要在搜索路径里面.如果想要在程序里自定义路径，
                  像你上面那个cr的程序一样.那要把里cr里面的程序里的一些语言加进去就行。
3.我知道把cr里面的代码改一下就可以了。但是俺还不会VL语言。或者只会一点点。而且我坚持
  R14，不能帮你。
[php]

(defun c:test()
  (setvar "cmdecho" 0)
  (setq ss (ssget '((0 . "*text"))))
             (setq  slen (- (sslength ss) 1))
             (setq  i 0)
        (while  (<= i slen)
             (setq na (ssname ss i))
             (setq data (entget na))
             (setq pt (cdr (assoc '10 data)))
             (setq blok (cdr (assoc '1 data)))
            (COMMAND "CLAYER" "0")
             (command "insert" BLOK pt "1" "1" "0")
             (setq i (+ i 1))
        )
  (princ)
)

[/php]

he520930

我试了一下正如你所说的:
1.图的插入点跟文字的点是一起的,(可不可以不要在一起?随我放置任意一个起此位置,只要从上往下排或从左到右排都可以,但要有一定的间隔.)
2.你的程序能选择文字来识别插入的图纸,这一点很好,(但DWG图没有一个固定的文件夹,最好能有一个对话框让我选文件夹,且我选择了一次该文件夹后就能识别了,不用我每次都要选文件夹,)
3.最好有选择文字来识别插入的DWG图形(但文字选多了或选少了不影响我的输入图形,也就是说,如我选择了M20,而我文件夹中没有该图形也可以插入,如果我不选择文字,侧全部插入,
那位高手能做到阿?帮助一下好吗?
<<<是不是我的要求太深了?这个对于高手来说应该不难吧,但只可惜我不会编程阿,望各位在百忙之中来帮我解决一下难题>>>

舟自横

"不会编程"?建議你去買幾本書看看，多學習一下，起碼要有點入門才行。要不然你問的問題會言不達意思，別人聽不懂也就無從幫你。而且你不懂拿到了那些程序有什麼用呢？情況稍微變化一下自己要懂得去修改變通啊。。。為你提供思路大家交流可以，但是別人不可能專門去為你編寫軟件啊。

mmmm

建议直接使用AcDbTable实体，将图块插入单元格，这样就省去许多图块大小、行列等问题的困扰。定义一个AcDbTable表格的行列就OK了。
论坛里有带对话框的选择多个文件的范例，找到后改改就可以在对话框中选择图名，比在图纸里选取要方便，至少不用在图内单独写图名的文字---多余。
选中文件后，一个个插入到0，0，0点，之后删除，保持数据在块表中。之后根据块名的ObjectID顺次填入AcDbTable单元格。