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

梦断江南 · 发表于 2002-1-18 20:41:58

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

: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 "\n <getdist> 1st pt:"))
(while (setq p2 (getpoint p1 "\n next point:")
dis (distance p1 p2)
)
(command ".offset" dis ss p2 "")
(setq ss (ssget "l")
p1 p2)
)(princ)
)
(princ "\n ----fff连续不等距 offset----lxx.2000.02.12")(princ)

申士 · 发表于 2002-1-19 13:39:33

这和多重拷贝有区别吗？要是写成可以键盘连续输入偏移距离就好了，其中偏移距离可以用逗号隔开。

梦断江南 · 发表于 2002-1-21 00:04:14

你好好试试！
可以键盘连续输入偏移距离（或通过连续点击确定），且不需要打逗号。
这个程序就是为此而作的。

申士 · 发表于 2002-1-21 19:47:37

　　赖云龙先生的偏移程序的优点是一次可以从键盘输入连续的偏移距离，这是很方便的。可惜美中不足的是偏移方式是从原点开始的，而梦兄的优点是从相对点开始下一次偏移，这是本程序的方便之处！要是中和这二者所长的话，那样就算是完美了！
　　梦兄要是有了改进版本，要别忘了通知小弟呀！
附上赖先生的偏移程序：
一次偏移多种距离

;;;程序设计:赖云龙;;;
;;;---------------;;;
(defun C:ff (/ A S N PT1 AA AAA AL)
(setq A "")
(while (= A "")
(setq A (getstring "\nSpecify offset distance <x/x/x...>:"));输入如:2/6/23…..
)
(setq A (strcat A "/"))
(prompt "\nSelect object to offset: ")
(while (= AA nil)
(setq AA (entsel))
)
(initget 1)
(setq PT1 (getpoint "\nSpecify point on side to offset: "))
(setq AL (+ (strlen A) 1))
(setq N 1)
(setq S "")
(while (not (= N AL))
(if (= (substr A N 1) "/")
(progn
(setq AAA (car AA))
(command "_.offset" S AAA PT1 "")
(setq S "")
)
(setq S (strcat S (substr A N 1)))
)
(setq N (1+ N))
)
(princ)
)

梦断江南 · 发表于 2002-1-22 13:34:13

对于我的fff.lsp 可以这样使用的：
1.选物体
2.任取第一点，鼠标拉出一个方向。
3. 键盘输入-〉距离空格距离空格……
（中途可以改变鼠标拉出的方向呢）
有兴趣的可以试试：-）

申士 · 发表于 2002-1-23 00:03:16

:8
梦兄，小弟还是觉着用鼠标拉出方向不太方便，不如用键盘来得快。
小弟试用了一下，该程序鼠标点的第一点，实际上已经是偏移方向了，中途也不知如何变向，而且似乎也没有变向的必要吧......　　
还是希望梦兄考虑一下推出fff.lsp V1.2 :b:9

darksun1480 · 发表于 2002-1-23 11:48:27

;连续定向copy
(defun c:xc(/ PT1 PT2 ANG SCCC DISs )
(While (= SCCC nil)
 (setq SCCC (ssget))
)
(While (= PT1 nil)
 (setq PT1 (getpoint "\nBase point or displacement:" ) )
)
(While (= ANG nil)
 (setq ANG (getangle PT1 "\nPick next point for direction:" ) )
)
(if (= DISCCC nil) (setq DISCCC 3000) )
;
(While (/= DISs 0)
(setq PR (strcat "\nDistance(Give a value or Pick two points; 0 for quit)<" (rtos DISCCC 2 2) ">:" ) )
(setq DISs (getdist PR ) )
(if (/= DISs nil)
 (if (/= DISs 0)
 (setq DISCCC DISs)
 )
)
(setq PT2 (polar PT1 ANG DISCCC ) )
(if (/= DISs 0)
 (progn
 (command "_.copy" SCCC "" "0,0" "@" "move" "p" "" PT1 PT2)
 (setq PT1 PT2 )
 )
)
)
;
(princ "\nCommand: XC --- Copyright of darksun1480 ---")
(princ)
)

darksun1480 · 发表于 2002-1-23 11:57:44

连续回车时有问题！

LUCAS · 发表于 2002-1-26 15:32:28

最初由 darksun1480 发布
[B]连续回车时有问题！ [/B]

;;;不是很明白你所说的,像下列程序吗??
;;;连续定向copy
(defun C:XC (/ PT1 PT2 ANG SCCC HOLDECHO HOLDOSMODE HOLDANG HOLDORTH)
(setq HOLDECHO (getvar "cmdecho"))
(setvar "cmdecho" 0)
(setq HOLDOSMODE (getvar "osmode"))
(setvar "osmode" 39)
(setq HOLDORTH (getvar "orthomode"))
(setvar "orthomode" 0)
(while (null SCCC)
(prompt "\n选择复制对象: ")
(setq SCCC (ssget))
)
(initget 1)
(setq PT1 (getpoint "\n基准点: "))
(initget 1)
(setq ANG (getangle PT1 "\n复制方向: "))
(setq HOLDANG (getvar "snapang"))
(setvar "snapang" ANG)
(setvar "orthomode" 1)
(setq PT2 0)
(while (/= PT2 NIL)
(setq PT2 (getpoint PT1 "\n复制距离: "))
(setvar "osmode" 0)
(if (/= PT2 NIL)
(command "_.copy" SCCC "" "0,0" "@" "move" "p" "" PT1 PT2)
)
(setq PT1 PT2)
)
(setvar "snapang" HOLDANG)
(setvar "orthomode" HOLDORTH)
(setvar "osmode" HOLDOSMODE)
(setvar "cmdecho" HOLDECHO)
(princ)
)
(princ)

;;;不是很明白你所说的,像下列程序吗?? 
;;;连续定向copy 
(defun C:XC (/ PT1 PT2 ANG SCCC HOLDECHO HOLDOSMODE HOLDANG HOLDORTH) 
  (setq HOLDECHO (getvar "cmdecho")) 
  (setvar "cmdecho" 0) 
  (setq HOLDOSMODE (getvar "osmode")) 
  (setvar "osmode" 39) 
  (setq HOLDORTH (getvar "orthomode")) 
  (setvar "orthomode" 0) 
  (while (null SCCC) 
    (prompt "\n选择复制对象: ") 
    (setq SCCC (ssget)) 
  ) 
  (initget 1) 
  (setq PT1 (getpoint "\n基准点: ")) 
  (initget 1) 
  (setq ANG (getangle PT1 "\n复制方向: ")) 
  (setq HOLDANG (getvar "snapang")) 
  (setvar "snapang" ANG) 
  (setvar "orthomode" 1) 
  (setq PT2 0) 
  (while (/= PT2 NIL) 
    (setq PT2 (getpoint PT1 "\n复制距离: ")) 
    (setvar "osmode" 0) 
    (if        (/= PT2 NIL) 
      (command "_.copy" SCCC "" "0,0" "@" "move" "p" "" PT1 PT2) 
    ) 
    (setq PT1 PT2) 
  ) 
  (setvar "snapang" HOLDANG) 
  (setvar "orthomode" HOLDORTH) 
  (setvar "osmode" HOLDOSMODE) 
  (setvar "cmdecho" HOLDECHO) 
  (princ) 
) 
(princ)

dnal · 发表于 2002-2-5 08:34:20

一次可偏移多种距离，可以是相对距离，也可是绝对距离。
(defun C:FSS (/ A S N PT1 AA AAA AL old-dist)
(if (not offset-distance-x)
(setq offset-distance-x "X*X**X*X...")
)
(princ "\n ----FSS 连续偏移---- ----DNAL 2002.02----")
(setq A (getstring (strcat "\nSpecify offset distance < "
offset-distance-x
" >:"
)
)
)
(if (= A "")
(setq A offset-distance-x)
(setq offset-distance-x A)
)
(setq A (strcat A "*"))
(prompt "\nSelect object to offset: ")
(while (= AA nil)
(setq AA (entsel))
)
(initget 1)
(setq PT1 (getpoint "\nSpecify point on side to offset: "))
(setq AL (+ (strlen A) 1))
(setq N 1)
(setq S "")
(setq old-dist 0)
(while (not (= N AL))
(if (= (substr A N 1) "*")
(progn
(setq AAA (car AA))
(if (= S "")
(progn
(setq old-dist (getvar "offsetdist"))
(if (= old-dist -1) (setq old-dist 0))
)
(progn
(if (/= (strcase S) "T")
(setq S (+ (distof s) old-dist))
)
(command "_.offset" S AAA PT1 "")
(setq S "")
(setq old-dist 0)
)
)
)
(setq S (strcat S (substr A N 1)))
)
(setq N (1+ N))
)
(princ)
)
;连续偏移命令－－－FSS
;如果要偏移的距离是相对于原始被偏移的物体，则用“＊”，
;如果要偏移的距离是相对于最新偏移生成的物体，则用“＊＊”
;也就是说用“＊”后面是绝对距离，“＊＊”后面是相对距离。
;当然，绝对距离必须是正数，而相对距离可是负数，但它的
;“绝对距离”必须是正的。

一次可偏移多种距离，可以是相对距离，也可是绝对距离。 
(defun C:FSS (/ A S N PT1 AA AAA AL old-dist) 
    (if (not offset-distance-x) 
        (setq offset-distance-x "X*X**X*X...") 
    ) 
    (princ "\n ----FSS   连续偏移----                             ----DNAL 2002.02----") 
    (setq A (getstring (strcat "\nSpecify offset distance < " 
                                offset-distance-x 
                                " >:" 
                       ) 
            ) 
    ) 
    (if (= A "") 
        (setq A offset-distance-x) 
        (setq offset-distance-x A) 
    ) 
    (setq A (strcat A "*")) 
    (prompt "\nSelect object to offset: ") 
    (while (= AA nil) 
        (setq AA (entsel)) 
    ) 
    (initget 1) 
    (setq PT1 (getpoint "\nSpecify point on side to offset: ")) 
    (setq AL (+ (strlen A) 1)) 
    (setq N 1) 
    (setq S "") 
    (setq old-dist 0) 
    (while (not (= N AL)) 
        (if (= (substr A N 1) "*") 
            (progn 
                 (setq AAA (car AA)) 
                 (if (= S "") 
                     (progn 
                         (setq old-dist (getvar "offsetdist")) 
                         (if (= old-dist -1) (setq old-dist 0)) 
                     ) 
                     (progn 
                         (if (/= (strcase S) "T") 
                             (setq S (+ (distof s) old-dist)) 
                         ) 
                         (command "_.offset" S AAA PT1 "") 
                         (setq S "") 
                         (setq old-dist 0) 
                     ) 
                 ) 
            ) 
            (setq S (strcat S (substr A N 1))) 
        ) 
        (setq N (1+ N)) 
    ) 
    (princ) 
) 
;连续偏移命令－－－FSS 
;如果要偏移的距离是相对于原始被偏移的物体，则用“＊”， 
;如果要偏移的距离是相对于最新偏移生成的物体，则用“＊＊” 
;也就是说用“＊”后面是绝对距离，“＊＊”后面是相对距离。 
;当然，绝对距离必须是正数，而相对距离可是负数，但它的 
;“绝对距离”必须是正的。

XDSoft · 发表于 2002-2-5 08:41:32

最初由 dnal 发布
[B][code]
一次可偏移多种距离，可以是相对距离，也可是绝对距离。
(defun C:FSS (/ A S N PT1 AA AAA AL old-dist)
(if (not offset-distance-x)
(setq offset-distance-x "X*X**X*X...")
)
... [/B]

谢谢，下次给大家提供代码时候，用“程序代码”按钮，或者到“论坛公告”论坛，看论坛如何让代码缩进的方法，好吗？这样代码大家容易读。我替你改好了，这个帖子。

dnal · 发表于 2002-2-6 14:19:12

谢谢你，晓东，这是我第一次发贴子，谢谢你帮我改好。
另外，我想向你申请“lisplink-2k”的注册码，我的机器号是“72801”，
Email:tfm521@cmmail.com　谢谢，我已经等了好久了...

xxxyzxx · 发表于 2004-6-11 21:22:59

最后的程序虽然完美，但实际使用频率及绘图效率较慢，我仍选择了楼主的小巧版的程序：）

自由的鱼 · 发表于 2004-6-13 20:50:09

http://www.xdcad.net/forum/attachment.php?s=&postid=882169

试试这个程序，绝对距离和相对距离偏移！

穹心 · 发表于 2004-8-28 20:00:05

绘图效率慢

账号		自动登录	找回密码
密码			立即注册

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

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

希望改进！

试试这个！__连续定向copy

可是：“连续定向copy ”运行有点问题，可以帮我看一下吗？

Re: 可是：“连续定向copy ”运行有点问题，可以帮我看一下吗？

一次可偏移多种距离，可以是相对距离，也可是绝对距离...

Re: 一次可偏移多种距离，可以是相对距离，也可是绝对距离...

谢谢－－晓东 :-)