原创]：一个批量偏移的LISP程序

TLHMQH · 发表于 2007-4-8 00:24:14

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

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

×

结识“晓东网站”已有一段时间了，翻看了部分帖子，受益非浅。
经过一段时间的学习，有了很大收获。现编了一个小程序，虽然简单，但却如“爱因斯坦”的小板凳。不敢独享，同时献给需要的人。也是对来到“晓东网站”递交的第一份答卷。
为了让需要的人有用，现将功能介绍如下：
可对直线、多段线、曲线、矩形等线型图元进行批量偏移，（任意数量）但对“块”无效。我认为其特点是能快速制作表格。（井蛙之见，可能你能充分扩展其用途。）另对初学编程人员可能有“抛砖引玉”效果。
为了只提供给需要的人，在此收点币。我想收个币，不会影响您的，您会有办法找回去的！望见凉！
同时，希望大家在试验过程中，有什么指导意见，能不辞指正。
先谢谢大家！

最后修改，取消收币。本想收币能靠大家顶一顶的，不是真心收币。

hh222222 · 发表于 2007-4-8 15:48:41

下不了，还被扣币，啊啊

TLHMQH · 发表于 2007-4-8 22:46:18

我已传上去了。
请管理员或版主检查一下，不能下载的原因。

服务器有问题！by xyp1964

zml84 · 发表于 2007-4-9 11:47:26

直接把代码贴出来，也是不错的方法。

mylearn · 发表于 2007-4-9 11:52:22

下不了啊

TLHMQH · 发表于 2007-4-9 12:35:02

最初由 zml84 发布
[B]直接把代码贴出来，也是不错的方法。 [/B]

最后一道防线也没了，连想统计一下需要该程序的人数也不可能了。听zml84 的，直接把代码贴出来。

送给需要的人
;;;可对直线、多段线、曲线、矩形等线型图元进行批量偏移。
(defun c:PLPY ()
  (princ "\n批量偏移-- NMGMQH_V.20070407")
  (progn (setq JL (getint "\n输入偏移距离：")
            XY JL
            CS (getint "\n输入偏移次数： ")
            DX (entsel "\n选择偏移对象：")
            FX (getpoint "\n选择偏移方向： "))
(repeat CS (command "offset" JL DX FX "") (setq JL (+ JL XY)))
  )
  (princ)
)

大家使用了没有，有什么优点和不足，请说一声。
没人顶帖，只能自己编辑自己的帖。如没用就删帖了。

zfylxy · 发表于 2007-4-12 21:18:16

楼主应该有个介

lhj743 · 发表于 2007-4-18 14:00:21

楼主能改进一下吗，
只能单选，
不能多选

blacksunkk · 发表于 2007-4-18 15:11:14

支持！！！

zml84 · 发表于 2007-4-18 15:19:13

下面这个是可以选择多个对象的，拿出来供大家讨论：

;;;功能：多个对象多重偏移
;;; 可以选择多个对象
;;; 可对直线、多段线、曲线、矩形等线型图元进行批量偏移。
;;;日期：zml84 修改于 2007-04-18
(defun c:PP (/ ss JL CS FX n XY)
(princ "\n★多对象多重偏移★\n选择偏移对象...")
(if (setq ss (ssget))
(if (> (setq JL (getdist "\n输入偏移距离：")) 0)
(if (> (setq CS (getint "\n输入偏移次数： ")) 0)
(if (setq FX (getpoint "\n选择偏移方向： "))
(progn
(setq n 0)
(repeat (sslength ss)
(setq DX (ssname ss n))
(setq XY JL)
(repeat CS
(command "offset" XY DX FX "")
(setq XY (+ XY JL))
)
(setq n (1+ n))
)
(princ "\n★成功完成!!" )
)
)
)
)
)
(princ)
)

;;;功能：多个对象多重偏移 
;;;      可以选择多个对象 
;;;      可对直线、多段线、曲线、矩形等线型图元进行批量偏移。 
;;;日期：zml84 修改于 2007-04-18 
(defun c:PP (/ ss JL CS FX n XY) 
    (princ "\n★多对象多重偏移★\n选择偏移对象...") 
    (if        (setq ss (ssget)) 
        (if (> (setq JL (getdist "\n输入偏移距离：")) 0) 
            (if        (> (setq CS (getint "\n输入偏移次数： ")) 0) 
                (if (setq FX (getpoint "\n选择偏移方向： ")) 
                    (progn 
                        (setq n 0) 
                        (repeat        (sslength ss) 
                            (setq DX (ssname ss n)) 
                            (setq XY JL) 
                            (repeat CS 
                                (command "offset" XY DX FX "") 
                                (setq XY (+ XY JL)) 
                            ) 
                            (setq n (1+ n)) 
                        ) 
                        (princ "\n★成功完成!!" ) 
                    ) 
                ) 
            ) 
        ) 
    ) 
    (princ) 
)

highflybird · 发表于 2007-4-18 16:02:41

to zml84：
if句嵌套太多了可以用and.

(defun c:PP (/ ss JL CS FX n XY)
(princ "\n★多对象多重偏移★\n选择偏移对象...")
(and
(setq ss (ssget))
(> (setq JL (getdist "\n输入偏移距离：")) 0)
(> (setq CS (getint "\n输入偏移次数： ")) 0)
(setq FX (getpoint "\n选择偏移方向： "))
(setq n 0)
(repeat (sslength ss)
(setq DX (ssname ss n))
(setq XY JL)
(repeat CS
(command "offset" XY DX FX "")
(setq XY (+ XY JL))
)
(setq n (1+ n))
)
(princ "\n★成功完成!!" )
)
(princ)
)

一样的效果。

zml84 · 发表于 2007-4-18 19:11:34

11楼的and结构不错，学习了！
以前以为and语句需要把其中条件探测一遍呢，现在知道了，不用了，谢谢！
 
还可以这样写:

;;;======================================================
(defun c:PP (/ ss JL CS FX n XY)
(princ "\n★多对象多重偏移★\n选择偏移对象...")
(if (and
(setq ss (ssget))
(> (setq JL (getdist "\n输入偏移距离：")) 0)
(> (setq CS (getint "\n输入偏移次数： ")) 0)
(setq FX (getpoint "\n选择偏移方向： "))
)
(progn
(setq n 0)
(repeat (sslength ss)
(setq DX (ssname ss n))
(setq XY JL)
(repeat CS
(command "._offset" XY DX FX "")
(setq XY (+ XY JL))
)
(setq n (1+ n))
)
(princ "\n★成功完成!!")
)
)
(princ)
)

aaaa001 · 发表于 2007-4-19 10:52:32

谢谢楼主编写的这个小东东，很不错的，可不可以编写一个双向偏移的呀。

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

原创]：一个批量偏移的LISP程序

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

相关帖子