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

切换到宽版

明经CAD社区»社区 › 应用篇 › AutoCAD工具插件 › 沿某方向多重复制

发新帖

查看: 1351|回复: 8

沿某方向多重复制

发表于 2018-12-30 18:31 | 显示全部楼层 |阅读模式

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

回复

使用道具举报

发表于 2018-12-30 20:42 | 显示全部楼层

本帖最后由 bai2000 于 2019-1-3 17:02 编辑

试用,试用

”

回复支持反对

使用道具举报

发表于 2019-1-3 13:13 | 显示全部楼层

单以所见程序部分未见有试用限制

回复支持反对

使用道具举报

发表于 2019-1-3 14:37 | 显示全部楼层

简单又实用，感谢了！

回复支持反对

使用道具举报

发表于 2019-9-10 21:43 | 显示全部楼层

看看好不好用

回复支持反对

使用道具举报

发表于 2019-9-10 21:53 | 显示全部楼层

收了，还挺好的，谢了

回复支持反对

使用道具举报

发表于 2019-9-30 11:10 | 显示全部楼层

多谢分享，挺方便的

回复支持反对

使用道具举报

发表于 2019-9-30 15:30 | 显示全部楼层

谢谢分享，简单好用！

回复支持反对

使用道具举报

发表于 2019-10-1 09:00 | 显示全部楼层

谢谢楼主分享。。。

回复支持反对

使用道具举报

发新帖

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

GMT+8, 2024-4-20 10:41 , Processed in 1.865205 second(s), 25 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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