明经CAD社区

 找回密码
 注册

扫一扫,访问微社区

QQ登录

只需一步,快速开始

查看: 336|回复: 5

[源码] 偏移【自由距离】多重复制V1.0

[复制链接]
发表于 2019-1-7 19:38 | 显示全部楼层 |阅读模式
本帖最后由 尘缘一生 于 2019-1-7 19:42 编辑

本代码比较实用了。。。。。


;;-------偏移自由距离多重复制------------------------------------------------
(defun CYFZ(/ *error* olderr s pt1 pt2 ang dis oldorh)
(setq olderr *error* *error* mypyfz)
(or dis (setq dis 15))
(setq s(ssget))
(setq pt1 (nth 1 (grread 5)))
(setq oldorh (getvar "ORTHOMODE"))
(setvar "ORTHOMODE" 1)
(setq pt2 (getpoint pt1 "\n请给出复制的方向:"))
(setq ang (angle pt1 pt2))
(setq pt2 pt1)
(command "undo" "be"); 设置undo起点
(while (/= dis 0.0)
  (setq dis (cond ((getdist (strcat "\n请输入距离<" (rtos dis 2 2) ">:输入【0】【ESC键】退出"))) (dis)))
  (setq pt2 (polar pt2 ang dis))
  (command "COPY" s "" pt1 pt2)
)
(setq *error* olderr)
(setvar "ORTHOMODE" oldorh)
(command ".UNDO" "E"); 设置UNDO终点
)
(defun mypyfz (msg)
(setvar "ORTHOMODE" oldorh)
(princ "\n程序退出...")
;;;;(princ msg)
(setq *error* olderr)
)
;;-----------------------------------------------------


本帖子中包含更多资源

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

x
发表于 2019-1-7 20:12 | 显示全部楼层
大神  我这个需求你会吗  http://bbs.mjtd.com/thread-178824-1-1.html
 楼主| 发表于 2019-1-7 20:41 | 显示全部楼层
依然小小鸟 发表于 2019-1-7 20:12
大神  我这个需求你会吗  http://bbs.mjtd.com/thread-178824-1-1.html

我做了一辈子结构,看了你要的偏移钢筋,这个其实很简单的。

首先:必须抛弃批量,为什么?因为五实际意义,你画钢筋大样时候,难道还批量画吗?批量画的部分,都在PKPM做完了,到CAD就是修改完善的!

那么剩下的就简单了:不就是线偏移吗?再加粗它而已!
发表于 2019-1-8 08:44 | 显示全部楼层
尘缘一生 发表于 2019-1-7 20:41
我做了一辈子结构,看了你要的偏移钢筋,这个其实很简单的。

首先:必须抛弃批量,为什么?因为五实际 ...

我不用pkpm  我是搞地下结构的
发表于 2019-1-8 09:35 | 显示全部楼层
应该做成向内向外偏移的复制
发表于 2019-1-10 14:05 | 显示全部楼层
支持,支持一下   感谢分享
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2019-3-25 22:41 , Processed in 0.184412 second(s), 28 queries , Gzip On.

Powered by Discuz! X3.3

© 2001-2013 Comsenz Inc.

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