[LISP程序]：非常好用的COPY和OFFSET新物体使之到当前层!

ss1025

给楼主提个建议，你的程序，不分全局变量和局部变量，程序一多就会乱了。

wangxj2002

感谢分享！！

啵浪鼓

复制图层,不太好用

雨中漫步0423

两个关于COPY到当前图层的LISP都不支持多重复制，第一个TEST的点M后可以复制，但是到原图层，不会改变成当前图层，后面那个CPC的是无法多得复制……
能不能修改一下……非常非常喜欢这种程序呢，呵呵

feng_zheng

我加载了offset.lsp以后没用,怎么回事?我的平台是CAD2002

li809

错误多了点,经常会无用或出错

userzhluserzhl

但是我觉得对于我们室内设计的,好像没什么用处,能不能写一些对我们更有用处的呀？谢谢！！

千年雪域

very good!!我真高兴，见了这么好的东西！！多谢9楼楼主！！！！！

jjss

蛮实用的,谢谢

yangcongyc

谢谢.好用.谢谢了

userzhluserzhl

挺好的，谢了

地球使圆的

还是没有看懂

loe0927

有一条路的中心线在屏幕指定或输入距离双重偏移 而且能象CAD自身的偏移命令一样能用上次的偏移距离作为默认直

qiaqiadeng

(DEFUN C:fr ()
  (vl-cmdf "_.undo" "_group")                ;偏移复制使之变成当前图层
  (mapcar 'princ
          (list "当前偏移距离= " (getvar "OFFSETDIST") " ")
  )
  (setq di (getstring "\n输入偏移复制距离:"))
  (setq LAY (getvar "CLAYER"))
  (repeat 1000
    (setq o (ssadd))
    (if        (/= di nil)
      (progn
        (setq o (ssadd (car (entsel)) o))
        (setq po (getpoint "\n点取偏移方向"))
        (COMMAND "OFFSET" di o po "")
        (COMMAND "CHPROP" "L" "" "LA" lay "LT" "bylayer" "C" "bylayer"
                 "")
      )
    )
    (if        (= di nil)
      (progn
        (setq o (ssadd (car (entsel)) o))
        (setq po (getpoint "\n点取偏移方向"))
        (COMMAND "OFFSET" "" o po "")
        (COMMAND "CHPROP" "L" "" "LA" lay "LT" "bylayer" "C" "bylayer"
                 "")
      )
    )
  )
  (vl-cmdf "_.undo" "_end")
  (princ)
)

我们——

非常喜欢这种程序