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

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

(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))
)
上面是基本意思，前提是原图形的颜色不是随层的，点选那一侧上的点时尽量远，因为这个点没有随着增加的线自动变化。

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

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