跪求大神写一lsp，能在结块的时候自动把这个块里面的对象归到0图层

cashin · 发表于 2014-9-1 22:14:43

本帖最后由 cashin 于 2014-9-1 23:04 编辑

当我把对象结成块的时候，能自动帮我把这个块里面的对象归到0图层，而块还是在原来那个图层不变，块内的对象则自动归到0图层

maiko · 发表于 2014-9-1 23:09:27

楼上的什么都要别人写啊?自己不会写出明经币请人写[em0]

cashin · 发表于 2014-9-4 00:54:35

maiko 发表于 2014-9-1 23:09
楼上的什么都要别人写啊?自己不会写出明经币请人写

[em0]穷学生

maiko · 发表于 2014-9-4 10:25:12

cashin 发表于 2014-9-4 00:54
穷学生

想学习想办法

cashin · 发表于 2014-9-7 14:11:50

maiko 发表于 2014-9-4 10:25
想学习想办法

我已经买明经币了。。下载后我不会用，大神可以教下吗

maiko · 发表于 2014-9-7 14:17:59

cashin 发表于 2014-9-7 14:11
我已经买明经币了。。下载后我不会用，大神可以教下吗

怎么还要我售后

上面写好了:
(MakBlkk (ssget) (getpoint) "test")
(MakBlkk 选择集插入点块名)

cashin · 发表于 2014-9-7 16:36:15

maiko 发表于 2014-9-7 14:17
怎么还要我售后
上面写好了:
(MakBlkk (ssget) (getpoint) "test")

额。。谢谢了，还是不会用。。

maiko · 发表于 2014-9-7 17:27:43

本帖最后由 maiko 于 2014-9-10 19:43 编辑

cashin 发表于 2014-9-7 16:36
额。。谢谢了，还是不会用。。

(defun c:tt (/ ss pt name)
  (if (setq ss (ssget)) ;选择对象
(progn
   (setq pt (getpoint "\n指定基点:")) ;指定基点
   (setq name (rtos (* (Getvar "cdate") 1e8))) ;指定块名
   (MakBlkk ss pt name) ;做块
)
  )
)

maiko · 发表于 2014-9-10 19:44:27

cashin 发表于 2014-9-7 16:36
额。。谢谢了，还是不会用。。

少写了一对大括号,改好了

cashin · 发表于 2014-9-14 22:36:53

哥，你会写lsp吧，可以再帮我写一个吗？就，把整个cad文件红色的对象变成随图层的颜色状态，包括所有的块里面的东西，不是所有的对象，红色的对象变而已。求你了

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

跪求大神写一lsp，能在结块的时候自动把这个块里面的对象归到0图层

本帖子中包含更多资源