輸出什麽樣的圖形？
變色希望有什麽效果？
(setq cs (getvar "osmode "))
(設置變量“osmode”0)
(setq n1 (getint "\ nNumber:"))
(setq d1 (getint "\n spacing:"))
(setqent 1(car(entsel " \ n選擇實體:")))
(setqp 1(get point " \ n指定要偏移的邊上的點:"))
(設置編號1)
(重復n1
(命令" offset " d 1 ent 1 p 1 " e ")
(setq ent1 (entget (entlast)))
(setq ent 1(subst(cons 62n)(assoc 62 ent 1)ent 1))
(entmod ent1)
(設置編號(1+ n))
(setq ent1 (entlast))
)
以上是基本意思，前提是原圖形顏色不跟圖層，盡量點那壹邊的點，因為這個點不會隨著添加的線自動變化。