shahoy 发表于 2012-7-30 10:46:11

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

200853006 发表于 2012-9-6 11:58:51

支持、是很方便，

我爱lisp 发表于 2014-6-4 10:56:11

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

ZX13901146068 发表于 2014-9-20 10:41:36

(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));删除原线
)

这个未删除原线，求教
页: 1 2 [3]
查看完整版本: [单线变双线，并保留原线]