重复偏移

szx025 · 发表于 2016-9-22 08:27:25

;;;--------重复偏移输入0会结束程序,按ENTER则重复偏移上一次的距离--------
(DEFUN C:tt ()
(SETQ ss (ssget))
(PROGN
(SETQ PT_SIDE (GETPOINT "\nSelect the offset side :"))
(SETQ TEMP_N 1 TEMP_O 0 TOTAL 0)
(WHILE (> TEMP_N 0)
(SETQ TEMP_N (GETDIST "\nOffset distance <0=EXIT> :"))
(IF (= TEMP_N NIL)
(SETQ TEMP_N TEMP_O)
)
(IF (> TEMP_N 0)
(PROGN (SETQ TOTAL (+ TOTAL TEMP_N))
(COMMAND "OFFSET" TOTAL ss PT_SIDE "")
(SETQ TEMP_O TEMP_N)
)) ;关闭PROGN及IF
) ;关闭WHILE
(PRINC "\n** Object cannot offset **")
)
)

(PRINC) ;关闭DEFUN
这个程序只能对单个图元执行偏移，可以改成对多个图元执行偏移吗

xiao88gang · 发表于 2016-9-23 19:33:33

这个不错，我正需要。

Andyhon · 发表于 2016-9-23 22:10:35

换个思路,调用 Copy 如何

纵横八方 · 发表于 2018-7-24 13:12:33

在？吗怎么联系

纵横八方 · 发表于 2018-7-24 13:14:18

我很需要你这个但是执行模式要改成CAD自带那种能加QQ 1049955085 吗
红包求修改

账号		自动登录	找回密码
密码			注册

[源码] 重复偏移

本帖子中包含更多资源

浏览过的版块