HELP ME !关于偏移为当前图层的问题！

luowy · 发表于 2008-10-21 17:26:00

用offset命令，然后用entlast获得偏移后的图元，然后用change也好，subst也好，都可以将新图元置于当前图层上

qing6688 · 发表于 2008-10-31 15:05:00

;偏移并将新对象改变到当前层
(defun c:ofu (/ of1 of2 va1 en2 pt1) (princ)
               (setvar "cmdecho" 0)(command "undo" "be")
               (princ "偏移并将新对象改变到当前层")
               (setq cm (princ (strcat "\n" (getvar "clayer"))))
;确定偏移距离
               (setq of1 (getvar "offsetdist"))
               (setq of2 (strcat "\n偏移距离 <"(rtos of1 2)">: "))
               (setq va1 (getstring of2))
;
               (setq en2 (entsel "\n选择偏移对象:"))
               (setq pt1 (getpoint "\n选择偏移方向:"))
               (while (/= pt1 nil)
               (command "offset" va1 en2 pt1 "")
               (setq dz (entlast))
               (command "change" dz "" "P" "LA" cm "")
               (setq en2 (entsel "\nSelect object to offset:"))
               (setq pt1 (getpoint "\nSide to offset:"))
               )
               (princ)(setvar "cmdecho" 1)(command "undo" "e")
               )

glow123 · 发表于 2012-1-31 16:24:29

实在是个好思路

PDHDYH · 发表于 2012-6-23 18:28:38

mingvictor 发表于 2007-10-3 13:40
大侠！我二十四小时在线等啊！

写成偏移复制到指定层+目前层不是更完美吗

文化路上的流氓 · 发表于 2012-6-25 17:21:03

看不到啊
帮帮我，我也需要啊

5664491 · 发表于 2013-8-15 01:18:09

版主有没有办法就是

zmzk · 发表于 2022-12-10 12:04:03

good idea! 收藏了

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

HELP ME !关于偏移为当前图层的问题！

看这个程序是不是你要的效果