669423907 发表于 2011-7-31 13:14:50

被我弄坏的新建图层与切换图层的程序（求助）源程序没了！

1，可以新建图层；
2，可以切换图层；
3，可以将选择的对象转到指定的图层；
4，选中对象后，想要转到指定的层，如果指定的层不存在，就无法自动新建想要
将对象转到的图层！（原来好像是可以的，不记得了。很久了。）


之前不知道 lyh 后面数字的作用，现在知道了（区分程序），但又弄坏了！
恳请大师们帮修复一下第4项，先在此谢过啦！
顺便请教一下 mylsp何用？

(DEFUN lyh33(MYLSP / LAYCH)
(if (setq LAYCH (ssget "i"))
(command "_.change" laych "" "_p" "_lt" "bylayer" "_c" "bylayer" "_la" mylsp "")
(command "layer" "m" "33螺纹" "c" "2" "" "lw" "0.13" "" "l" "Continuous" "" ""))
(princ))
(DEFUN C:33()(lyh33"33螺纹")(lyh33"33螺纹"))

669423907 发表于 2011-8-1 07:28:14

自己顶一下

EMD 发表于 2011-8-1 23:41:09

mylsp   这个不是应该是函数的形参么,占个位置的作用.到时候调用这个函数的时候
(lyh33 1234)

就相当于让myls=1234.代入到lyh33函数里去取最终的结果.不知道我这个回答是不是楼主想问的.

zhynt 发表于 2011-8-2 01:51:50

本帖最后由 zhynt 于 2011-8-2 01:52 编辑

更正一下，上例中参数MYLSP应该是字符串。
即：(lyh33 "1234")

669423907 发表于 2011-8-2 22:16:30

回复 zhynt 的帖子

谢谢zhynt大师。不知是否方便帮解决一下底4项？

lizhiqiang9801 发表于 2012-4-21 13:25:55

我也很需要这个程序 希望路过的高手帮忙解决一下
页: [1]
查看完整版本: 被我弄坏的新建图层与切换图层的程序（求助）源程序没了！