跪求一个lisp，我想把CAD里已经画好的统一大小的圆代表的树都替换成已经定义好的块

jo717 发表于 2009-9-23 11:47:00

如题，我在cad里做的总平面图，所有的树都没有定义成块，都是拿圆复制来表示的，现在要倒到SU里，不是块很麻烦，就要一颗一颗摆了，我图里树有好几种，每种都有上千颗，希望哪位大侠能帮我写个把统一直径的圆统一转换为定义好的一个块的LISP，不胜感激，救了命了啊！ps：说的详细点怎么用，我是超级无敌菜菜鸟！！先谢过了

chuanyumin 发表于 2016-10-1 20:58:28

我写好了了这么一个，可以将多行文字批量替换为单行文字，文字批量替换为同名块，批量自动做带圆圈的树块并写块到文件夹中，也是帮朋友的忙做的。这种程序一般都是园林行业用的多。

junxan 发表于 2016-10-19 23:45:22

白首方悔读书迟

fxroro 发表于 2016-9-26 10:03:58

感谢各位大神

jo717 发表于 2009-9-23 12:31:00

没人理啊！！！！急死了

alin 发表于 2009-9-23 15:02:00

function XML() {

}

jo717 发表于 2009-9-23 17:25:00

看不懂，能不能写的傻瓜点，我什么都不懂啊，我只会加载LISP，然后输入命令操作，谢谢了

jo717 发表于 2009-9-23 17:52:00

谁来救救我啊！！！

jo717 发表于 2009-9-23 17:57:00

我还是不会整，麻烦能不能写的再详细点，再傻瓜点，我什么也不懂只会加载使用，能不能帮我写个lisp文件，再告诉我用什么命令，真是抱歉，我实在是看到编码脑袋变得三个大，万分感谢了

ZZXXQQ 发表于 2009-9-23 21:01:00

;圆替换块明经 ZZXXQQ 2009.9.23
(defun c:tt ()
(setvar "CMDECHO" 0)
(if (and (setq bnm (getstring "\n图块名 :"))
      (/= bnm "")
      (princ "\n选择圆 :")
      (setq ss (ssget '((0 . "CIRCLE"))))) (progn
(setq i 0)
(repeat (sslength ss)
(setq pc (cdr(assoc 10 (entget (ssname ss i)))))
(command "-insert" bnm pc "" "" "")
(setq i (1+ i))
)
(command ".erase" ss "")
))
(setvar "CMDECHO" 1)
(princ)
)

liu_kunlun 发表于 2009-9-24 07:55:00

加载后，输入tt命令，按提示操作即可，前提是园直径必须相等。

jo717 发表于 2009-9-25 09:31:00

十分感谢，十分感谢

万分感谢！万分感谢！好人啊！好人啊！这个世界上还是好人多啊

hbllw 发表于 2009-9-26 09:23:00

顶一下，这个程序不错各位高手看能不能写这样一个程序块替换：选择源块A，然后选择需要替换成块A的块B，再选择一个区域，然后把这个区域里的块B换成块A谢谢

页: [1] 2 3

明经CAD社区's Archiver

跪求一个lisp，我想把CAD里已经画好的统一大小的圆代表的树都替换成已经定义好的块

十分感谢，十分感谢