如何让偏移命令OFFSET，自动输入M，多重偏移？

print1985

cad2008测试
(defun c:oo()
(setvar "cmdecho" 1)
(command "offset" pause pause "m")
)

andyhua

其实楼上的大哥的代码还是有点问题的，就是不能输入OFFSET的其它参数，如图层，输入了后，M就不起作用了。

命令:
OO offset
当前设置: 删除源=否  图层=当前  OFFSETGAPTYPE=0
指定偏移距离或 [通过(T)/删除(E)/图层(L)] <通过>:  l
输入偏移对象的图层选项 [当前(C)/源(S)] <当前>:  c
指定偏移距离或 [通过(T)/删除(E)/图层(L)] <通过>:  m
需要数值距离、两点或选项关键字。

指定偏移距离或 [通过(T)/删除(E)/图层(L)] <通过>:  1000
选择要偏移的对象，或 [退出(E)/放弃(U)] <退出>:
指定要偏移的那一侧上的点，或 [退出(E)/多个(M)/放弃(U)] <退出>:
选择要偏移的对象，或 [退出(E)/放弃(U)] <退出>:

print1985

自己改改吧 都金牌会员了 command都还不会？

andyhua

只因注册得早，才混了个名称，其实我就根本不会LISP的
要不楼上的大哥，有时间的话，帮忙看看，谢谢。

寒林清远

哈哈，金牌会员也被人鄙视了一下啊……
我也是老龄新手，明天有空的话试着写一个吧，希望到时候有高手指导下。

andyhua

顶上去，求解？

andyhua

唉，又沉了，大师们出手求救下啦？
就是让OFFSET命令可以自动的输入M参数，但是又不影响OFFSET原来的图层类的参数。

赤狐123456

顶一个！

brbright

andyhua 发表于 2013-9-2 08:43
其实楼上的大哥的代码还是有点问题的，就是不能输入OFFSET的其它参数，如图层，输入了后，M就不起作用了。
...

楼上的代码没问题。
每一次输入都需要消耗一个pause。
我写了几个，你挑挑吧。
如果不够，你可以自己添加pause。

;;直接输入距离
(defun c:o2 ()
  (setvar "cmdecho" 1)
  (command "offset" pause pause "m")
)

;;取两点做距离
(defun c:o3 ()
  (setvar "cmdecho" 1)
  (command "offset" pause pause pause "m")
)

;;共4次输入
(defun c:o4 ()
  (setvar "cmdecho" 1)
  (command "offset" pause pause pause pause "m")
)

;;共5次输入
(defun c:o5 ()
  (setvar "cmdecho" 1)
  (command "offset" pause pause pause pause pause "m")
)

;;共6次输入
(defun c:o6 ()
  (setvar "cmdecho" 1)
  (command "offset" pause pause pause pause pause pause "m")
)

荒野孤行

多重偏移的帖子：http://bbs.mjtd.com/thread-108143-1-1.html