明经CAD社区

 找回密码
 注册

扫一扫,访问微社区

QQ登录

只需一步,快速开始

查看: 182|回复: 2

[资源] 求大师帮写个偏移的插件功能

[复制链接]
发表于 2018-10-24 17:26 | 显示全部楼层 |阅读模式
5明经币
本帖最后由 rocking2008 于 2018-10-24 17:29 编辑

求大师帮写个偏移的插件功能,多重偏移。
如下图:

可以直接发我QQ510438061上,多谢多谢。

可能是我发错版块区域了,我要lisp写的,麻烦版本帮我调到对应的版块去,多谢了。

附件: 您需要 登录 才可以下载或查看,没有帐号?注册

最佳答案

查看完整内容

试试这个: (defun c:00 (/ *error* dist en n os pt) (defun *error* ( msg ) (if (not (wcmatch (strcase msg t) "*break,*cancel*,*exit*")) (progn (princ (strcat "\n错误: " msg)) (setvar "OSMODE" os)) ) (princ) ) (setq os (getvar "OSMODE")) (setvar "OSMODE" 16384) (setq dist (getreal "\n指定偏移距离< 默认:8 >:") n (getint "\n输入偏移数量< 默认:8 >:") en (car (entsel ...
发表于 2018-10-24 17:26 | 显示全部楼层
本帖最后由 ssyfeng 于 2018-10-25 10:21 编辑

试试这个:
(defun c:00 (/ *error* dist en n os pt)
        (defun *error* ( msg )
                (if (not (wcmatch (strcase msg t) "*break,*cancel*,*exit*"))
                        (progn (princ (strcat "\n错误: " msg)) (setvar "OSMODE" os))
                )
                (princ)
        )
        (setq os (getvar "OSMODE"))
        (setvar "OSMODE" 16384)
  (setq dist (getreal "\n指定偏移距离< 默认:8 >:")
                n (getint "\n输入偏移数量< 默认:8 >:")
                en (car (entsel "\n选择偏移对象:"))
        )
        (if (null dist) (setq dist 8))
        (if (null n) (setq n 8))
        (if (and en)
                (progn
                        (redraw en 3)
                        (setq pt (getpoint "\n指定偏移在对象的哪一侧:"))
                        (command "_offset" dist en "m")
                        (repeat n
                                (command pt)
                        )
                        (command "" "")
                        (redraw en 4)
                )
        )
        (setvar "OSMODE" os)
        (princ)
)
回复

使用道具 举报

 楼主| 发表于 2018-10-25 11:01 | 显示全部楼层
对对,就是这个,多谢大师。

我这个明经币要怎么给您?是怎么操作?
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号  
©2000-2017 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2018-11-19 02:31 , Processed in 0.224483 second(s), 27 queries , Gzip On.

Powered by Discuz! X3.3

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表