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

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

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

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

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

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

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

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

穷学生

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

cashin 发表于 2014-9-4 00:54 static/image/common/back.gif
穷学生

想学习想办法

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

maiko 发表于 2014-9-4 10:25 static/image/common/back.gif
想学习想办法

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

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

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

怎么还要我售后
上面写好了:
(MakBlkk (ssget) (getpoint) "test")
(MakBlkk 选择集 插入点 块名)

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

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


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

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

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

cashin 发表于 2014-9-7 16:36 static/image/common/back.gif
额。。谢谢了，还是不会用。。
(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 static/image/common/back.gif
额。。谢谢了，还是不会用。。

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

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

哥，你会写lsp吧，可以再帮我写一个吗？就，把整个cad文件红色的对象变成随图层的颜色状态，包括所有的块里面的东西，不是所有的对象，红色的对象变而已。求你了
页: [1] 2
查看完整版本: 跪求大神写一lsp，能在结块的时候自动把这个块里面的对象归到0图层