尘缘一生 发表于 2019-1-7 19:38:15

偏移【自由距离】多重复制V1.0

本帖最后由 尘缘一生 于 2019-1-7 19:42 编辑

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


;;-------偏移自由距离多重复制------------------------------------------------
(defun C:PYFZ(/ *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)
)
;;-----------------------------------------------------

尘缘一生 发表于 2019-1-7 20:41:26

依然小小鸟 发表于 2019-1-7 20:12
大神我这个需求你会吗http://bbs.mjtd.com/thread-178824-1-1.html

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

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

那么剩下的就简单了：不就是线偏移吗？再加粗它而已！

依然小小鸟 发表于 2019-1-8 08:44:52

尘缘一生 发表于 2019-1-7 20:41
我做了一辈子结构，看了你要的偏移钢筋，这个其实很简单的。

首先：必须抛弃批量，为什么？因为五实际 ...

我不用pkpm我是搞地下结构的

依然小小鸟 发表于 2019-1-7 20:12:46

大神我这个需求你会吗http://bbs.mjtd.com/thread-178824-1-1.html

bai2000 发表于 2019-1-8 09:35:12

应该做成向内向外偏移的复制

479274135 发表于 2019-1-10 14:05:14

支持，支持一下   感谢分享

zmzk 发表于 2019-12-12 19:56:51

好东西，值得拥有！！

cqf1980 发表于 2021-4-17 12:33:07

默认的距离是15
能否记住上次的距离？

zmzk 发表于 2021-11-23 20:45:14

试了下，不错

xzd716 发表于 2021-12-13 20:53:08

感谢分享！
页: [1] 2
查看完整版本: 偏移【自由距离】多重复制V1.0