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 吗
红包求修改
页: [1]
查看完整版本: 重复偏移