[转贴]：批量插入块的lisp

ywdywd

(defun c:insb(/ bs bn ts nl index bn c bp pt)
　　 (setq bs(ssget))
　　 (setq ts(getstring "\nEnter the name of symbol:"))
　　 (setq nl(sslength bs))
　　 (setq index 0)
　　 (repeat nl
　　　　　 (setq bn(ssname bs index))
　　　　　 (setq bd(entget bn))
　　　　　 (setq c(assoc 10 bd))
　　　　　 (setq pt (cdr c))
　　　　　 (command "_insert" ts pt "4" "4" "")
　　　　　 (setq index (+ index 1))
　　　)
　　　(command　"redraw")
　　　(setq bs nil)
)

ydf7332462

批量对Line Pline??

ywdywd

(defun c:fx()
　　　　(setq ss(ssget) mun 0)
(repeat (sslength ss)
　　　　(setq entl-y (ssname ss mun))
　　　　(command "pedit" entl-y "d" "")
　　　　(setq entl(entget entl-y))
　　　 (if (= "POLYLINE" (cdr(assoc 0 entl))) (command "pedit" entl-y "lt" "on" "x"))
　　　 (if (= 10 (car (nth 13 entl)))　(setq nn 13))
　　　 (if (= 10 (car (nth 12 entl)))　(setq nn 12))
　　　 (setq lt-name(cdr(assoc 6 entl)) la-name (cdr (assoc 8 entl)))　　
　　　　(setq W_list '())
　　　　(setq elem (cdr (nth nn entl)))
　　　　(setq w_list (append w_list (list elem)))　
　　　(while (not (null elem))　　　　　　　　　
　　(setq nn(+ nn 4))
　　(setq elem (cdr (nth nn entl)))　
　　　 (if (= (car (nth nn entl)) 10)
　　　　(setq w_list (append w_list (list elem)))　;构建实体坐标表　　
　　　 )
　　　)
　　　　(setq w_list (reverse w_list))
　　　　(setq pt1 (car W_list))
　　　　(command "pline" pt1)
　　　(while w_list
　　　　(setq w_list(cdr w_list))
　　　　(setq pt (car w_list))
　　　　(command pt)
　　　)
　　　　(command "")
　　　　(command "chprop" (entlast) "" "lt" lt-name "la" la-name "")
　　　　(command "pedit" (entlast) "lt" "on" "s" "")
　　　　(command "erase" entl-y "")
　　　　(setq mun (+ mun 1))
)
)
这是线行反向的lisp

zhiyongfan

有没有安装演示,能不能直接安装一个程序就搞好了?

playboy

我有一个arx程序就是批量插入块的只要指出路径，不管有多少个块都能够查到一幅图中去。不过那个程序不是我编的。我给你找一下。

jxsqq

作个演示吧，我刚才用了，没用明白
谢谢

aeo

最初由 playboy 发布
[B]我有一个arx程序就是批量插入块的只要指出路径，不管有多少个块都能够查到一幅图中去。不过那个程序不是我编的。我给你找一下。 [/B]

这个简单,用Scripting.FileSystemObject,得到所有的文件名称，
再insert插入.

上面的pline倒转，不是特别好，我写过的，找找。别人也写过：
倒过来要保留宽度和弧度.