Question

CAD中用LISP程序实现批量偏移复制，并要求偏移好的线变色？

这是我在网上找的批量偏移程序很好用，最好能帮忙参照修改一下？
http://user.qzone.qq.com/309990013/blog/1295491555
实现批量偏移复制，并要求偏移好的线变色(无特殊要求，只要能区分内扩、外扩、原线就可，原线不变）！主要包括（弧，多段线、样条曲线等）各种线条！
比如：图纸上有10个矩形框，同时向内或外各扩100（需要提示的变数，正为外扩、负为内扩），要求外扩或内扩的变为变为30颜色，原来的矩形框不变！

Answer 1

能说明输入什么样的参数
输出什么样的图形？
变色希望是什么效果的？

(setq cs (getvar "osmode"))
(setvar "osmode" 0 )
(setq n1 (getint "\n个数:"))
(setq d1 (getint "\n间距:"))
(setq ent1 (car (entsel "\n选取图元:")))
(setq p1 (getpoint "\n指定要偏移的那一侧上的点:"))
(setq n 1)
(repeat n1
(command "offset" d1 ent1 p1 "e" )
(setq ent1 (entget (entlast)))
(setq ent1 (subst (cons 62 n) (assoc 62 ent1) ent1 ))
(entmod ent1)
(setq n (1+ n))
(setq ent1 (entlast))
)
上面是基本意思，前提是原图形的颜色不是随层的，点选那一侧上的点时尽量远，因为这个点没有随着增加的线自动变化。

Answer 2

不必非要用LISP程序，直接OFFSET好了。

Answer 3

看不懂，建议选相关参考书学习。