[单线变双线，并保留原线]

shahoy

怎么才能偏移到当前图层呢？

200853006

支持、是很方便，

我爱lisp

将原线换到另外一个定义好的图层，让原线变成虚线（command “change”。。。）

ZX13901146068

(defun c:x2 (/ ss vss dist)
    (vl-load-com)
   (princ "\n单线变双v.1.1-------by 无痕.2004.2\n选择要变双的曲线:")
   (setq ss (ssget  '((0 . "Arc,Circle,Ellipse,Line,LwPolyline,Polyline,Spline,XLine")) )
  vss (vla-get-activeselectionset (vla-get-activedocument (vlax-get-acad-object)))
         dist (getdist "\n输入偏移距离:"))
   (vlax-for obj vss (vla-offset obj dist)(vla-offset obj (- 0 dist))(vla-erase obj));删除原线
)

这个未删除原线，求教