fff 连续不等距offset[原创]：

andyhua5240

最初由 梦断江南 发布
[B][code]
:1
;fff 连续不等距offset------lxx.2000.02[2001.2m]
(defun c:fff (/ ss p1 p2 dis)
  (princ "\nfff 连续不等距offset------lxx.2000.02[2001.2m]")
  (setq ss (car(entsel))
        p1 (getpoint... [/B]

用空格和右键正常退出提示出错，但是能用，谢谢楼主，希望能改进一点点！
谢谢！

梦断江南

2. 
   
3. :1
   
4. ;fff 连续不等距offset------lxx.2000.02[2001.2m]
   
5. (defun c:fff (/ ss p1 p2 dis)
   
6.   (princ "\nfff 连续不等距offset------lxx.2000.02[2001.2m]")
   
7.   (setq ss (car(entsel))
   
8.         p1 (getpoint "\n  1st pt:"))
   
9.   (while (setq p2 (getpoint p1 "\n next point:"))     
   
10.          (vl-cmdf ".offset" (distance p1 p2) ss p2 "")
    
11.          (setq ss (ssget "l")
    
12.                p1 p2)
    
13.   )(princ)
    
14. )
    
15. (princ "\n ----fff连续不等距 offset----lxx.2000.02.12")(princ)
    

<br /> :1<br /> ;fff 连续不等距offset------lxx.2000.02[2001.2m]<br /> (defun c:fff (/ ss p1 p2 dis)<br />   (princ "\nfff 连续不等距offset------lxx.2000.02[2001.2m]")<br />   (setq ss (car(entsel))<br />         p1 (getpoint "\n  1st pt:"))<br />   (while (setq p2 (getpoint p1 "\n next point:"))     <br />          (vl-cmdf ".offset" (distance p1 p2) ss p2 "")<br />          (setq ss (ssget "l")<br />                p1 p2)<br />   )(princ)<br /> )<br /> (princ "\n ----fff连续不等距 offset----lxx.2000.02.12")(princ)<br />

eachy

2005 下直接用 copy 好了

gallen

绘图效率慢

userzhluserzhl

这跟MCOPY有什么区别

狂刀

试试才知道。fff每次可以按与前一个的间距输入，mcopy要输入总距离。另外fff支持曲线，如arc，与mcopy的效果是不同的。

jiega

我做的一个偏移程序,在绘制钢筋时可以使用(初始间距通过估计量取);
;;;偏移-----将第一次通过“T”方式得到的距离，作为后面偏移的距离值
;;;         可以偏移直线、圆、圆弧、多段线等
                     
(defun c:off (/ o_os ss1        ss2 ss ent pt pt1 pp1 pp2 ppt1 ppt1 style dis r0
             r1)
  (setvar "CMDECHO" 0)
  (setq o_os (getvar "osmode"))
  (setvar "OSMODE" 0)

  (setq ss1 (entsel "\n 选择偏移实体："))
  (if ss1
    (progn
      (setq ss (car ss1))
      (setq ent (entget ss))
      (setq style (cdr (assoc '0 ent)))
      (if (or (= style "LWPOLYLINE")
              (= style "LINE")
              (= style "CIRCLE")
              (= style "ARC")
          )
        (progn
          (cond
            ((= style "LWPOLYLINE")
             (progn (setq pp1 (cdr (nth 14 ent)))
                    (setq pp2 (cdr (nth 18 ent)))
             )
            )
            ((= style "LINE")
             (progn (setq pp1 (cdr (assoc '10 ent)))
                    (setq pp2 (cdr (assoc '11 ent)))
             )
            )
            ((or (= style "CIRCLE") (= style "ARC"))
             (progn (setq pp1 (cdr (assoc '10 ent)))
                    (setq pp2 (cdr (assoc '10 ent)))
                    (setq r0 (cdr (assoc '40 ent)))
             )
            )
          )
          (setq        pt1 (list (* (+ (car pp1) (car pp2)) 0.5)
                          (* (+ (cadr pp1) (cadr pp2)) 0.5)
                    )
          )

          (setvar "OSMODE" 513)
          (setq pt (getpoint pt1 "\n 通过的点："))
          (setvar "OSMODE" 0)
          (command "offset" "T" ss1 pt "")
          (setq ss2 (entlast))
          (setq ent (entget ss2))
          (cond
            ((= style "LWPOLYLINE")
             (progn (setq ppt1 (cdr (nth 14 ent)))
                    (setq ppt2 (cdr (nth 18 ent)))
             )
            )
            ((= style "LINE")
             (progn (setq ppt1 (cdr (assoc '10 ent)))
                    (setq ppt2 (cdr (assoc '11 ent)))
             )
            )
            ((or (= style "CIRCLE") (= style "ARC"))
             (progn
               (setq r1 (cdr (assoc '40 ent)))
             )
            )
          )

          (if (or (= style "LWPOLYLINE") (= style "LINE"))
            (setq dis (distance pp1 ppt1))
          )
          (if (or (= style "CIRCLE") (= style "ARC"))
            (progn
              (setq dis (abs (- r0 r1)))
            )
          )
          (command "offset" dis pause)
        )
      )
    )
  )
  (setvar "osmode" o_os)
  (setvar "CMDECHO" 1)
  (princ)
)

shq197528

没什么太大用!不过表示支持版主的开发!

cracher

能给一个说明吗

断点

一条封闭的多段线，或不封闭的多段线，不同位置实现不同的偏移量？

断点

怎么看不见图？在发一次

hihsj

这类型的连续偏移命令好～小弟喜欢～支持老大～
特别是可以把上一次偏移数字记录下来～支持～～
能否增加两边或一边偏移的选择～～

兄弟

谢谢很好用