freehand8008 发表于 2012-7-17 12:19:59

luyu9635 发表于 2009-4-15 00:08 static/image/common/back.gif
上面漏了一句(setq end(entlast)),不然颜色不会变

(setq ys(getint "\n颜色改为:1红-2黄-3绿-4青-5蓝-6紫-7白<1>:"))
(if (not ys)(setq ys 1))
(setq end(entlast))

woky57 发表于 2012-7-17 14:33:05

觉得好用的,帮忙顶一下

tangjunasd58 发表于 2014-4-13 14:19:43

拾取距离，没有捕捉，

tangjunasd58 发表于 2014-4-13 14:21:25

颜色能跟距离一样能记录上次的数据不

恕放之生命 发表于 2014-8-5 15:53:21

谢谢分享。

davide888 发表于 2015-5-2 11:54:41

是我想要的效果            

How-yue 发表于 2015-5-22 09:31:53

834798417 发表于 2015-5-25 14:03:24

看看，谢谢分享，赞一个

dforme 发表于 2016-6-16 14:09:43

本帖最后由 dforme 于 2016-6-16 14:12 编辑

freehand8008 发表于 2012-7-17 12:19 static/image/common/back.gif
(setq ys(getint "\n颜色改为:1红-2黄-3绿-4青-5蓝-6紫-7白:"))
(if (not ys)(setq ys 1))
(setq e ...
谢谢，我这里有个相似的程序，但是只能改变原对象的颜色，能否帮我看看，让偏移后的对象颜色改变，比如4号颜色

freehand8008 发表于 2016-6-28 09:17:29

dforme 发表于 2016-6-16 14:09 static/image/common/back.gif
谢谢，我这里有个相似的程序，但是只能改变原对象的颜色，能否帮我看看，让偏移后的对象颜色改变，比如4号 ...

我可看不了啊，如果你真想学习，你可以加E派院长的Q群，那是LISP的乐土
页: 1 2 [3] 4
查看完整版本: [原创]批量偏移