设为首页收藏本站CAD论坛CAD教程CAD下载明经币充值
切换到宽版

明经CAD社区

 找回密码
 注册

QQ登录

只需一步，快速开始

搜索
明经CAD社区»社区 › 应用篇 › AutoCAD工具插件 › 沿某方向多重复制
12下一页
返回列表 发新帖
查看: 2317|回复: 10

沿某方向多重复制

[复制链接]
JRYG_CAD
发表于 2018-12-30 18:31:55 | 显示全部楼层 |阅读模式
AutoCAD插件
插件名称: 沿某方向多重复制
插件版本:
插件类型: 通用工具集
授权方式: 试用版本
适用版本: 2004 2006 2008 2010 2012 
开发者: 学习
推荐等级: ★★★★★
插件图片:
内容简介: (defun C:CM ()
(setq A nil)
(setq OM (getvar "OSMODE"))
(setvar "OSMODE" 33)
(setq PNT1 (getpoint "\\\\n方向起点： "))
(setq PNT2 (getpoint "\\\\n方向终点： " PNT1))(terpri)
(initget 1 "M E N")
(prompt "\\\\n选择复制方式： ")
(setq CTYPE
(getkword "[最大间距(M)/精确间距(E)/数量(N)]： "))
(if (= CTYPE "M")
(setq SP (getdist "\\\\n最大对象间距： ")))
(if (= CTYPE "E")
(setq SP (getdist "\\\\n精确对象间距： ")))
(if (= CTYPE "N")
(setq SP (getreal "\\\\n对象数量： ")))
(setq DIST (distance PNT1 PNT2))
(setq ANG (angle PNT1 PNT2))
(setq TEMP1 (/ DIST SP))
(setq TEMP2 (fix (/ DIST SP)))
(setq INC1 SP)
(setq INC2 (/ DIST (+ 1 (fix (/ DIST SP)))))
(setq INC3 (/ DIST (- SP 1)))
(if (= TEMP1 TEMP2) (setq INC INC1) (setq INC INC2))
(if (= CTYPE "E") (setq INC INC1) (setq INC INC))
(if (= CTYPE "N") (setq INC INC3) (setq INC INC))
(setq TMS (FIX (+ 0.00001 (/ DIST INC))))
(setvar "OSMODE" 0)
(setq A (ssget))
(setq INCR 0)
(repeat TMS
(setq INCR (+ INCR INC))
(setq NEWPT (polar PNT1 ANG INCR))
(command "copy" A "" PNT1 NEWPT)
)
(setvar "OSMODE" OM)
(setq A nil)
)
本帖最后由 JRYG_CAD 于 2019-1-2 20:37 编辑


本帖子中包含更多资源

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

x
回复

使用道具 举报

bai2000
发表于 2018-12-30 20:42:25 | 显示全部楼层
本帖最后由 bai2000 于 2019-1-3 17:02 编辑

试用,试用”
回复 支持 反对

使用道具 举报

Andyhon
发表于 2019-1-3 13:13:13 | 显示全部楼层
单以所见程序部分未见有试用限制
回复 支持 反对

使用道具 举报

mokson
发表于 2019-1-3 14:37:10 | 显示全部楼层
简单又实用，感谢了！
回复 支持 反对

使用道具 举报

水仙的错
发表于 2019-9-10 21:43:51 | 显示全部楼层
看看好不好用
回复 支持 反对

使用道具 举报

水仙的错
发表于 2019-9-10 21:53:32 | 显示全部楼层
收了，还挺好的，谢了
回复 支持 反对

使用道具 举报

sunny_8848
发表于 2019-9-30 11:10:03 | 显示全部楼层
多谢分享，挺方便的
回复 支持 反对

使用道具 举报

sdls
发表于 2019-9-30 15:30:31 | 显示全部楼层
谢谢分享，简单好用！
回复 支持 反对

使用道具 举报

sdbaijiao
发表于 2019-10-1 09:00:25 | 显示全部楼层
谢谢楼主分享。。。
回复 支持 反对

使用道具 举报

LinBinFen
发表于 2024-5-19 15:13:13 | 显示全部楼层
非常实用，谢谢分享！！！
回复 支持 反对

使用道具 举报

12下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-11-25 05:32 , Processed in 0.164655 second(s), 25 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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