[求助]如何指定数据连续复制

XIAOFEILONG

请问liminnet:

这个程序怎么执行啊?

命令名是什么>?

我没有看出来

jxlsp

XIAOFEILONG发表于2008-10-27 20:58:00用copy命令,要复制指定的距离,比如间距为400的复制,要连续输入数据400,800,1200,1600,2000...........有没有办法,在连续复制的时候,只输入一次400,就可以以400的间距一直复制下去?

一直复制下去,岂不是要死机.

XIAOFEILONG

我试了一下这个程序

和我希望的还有差距

在输入偏移距离的时候,我是希望只输入一个数,然后用鼠标点击来控制复制的个数

简单的说,就是相当与OFFSET命令,只不过OFFSET只能对线操作,而我希望的是对所有物体进行操作,由鼠标来控制方向

谢谢

XIAOFEILONG

谢谢,我希望能用鼠标点击来控制复制的个数

鼠标点击1次,就在前面复制的基础上再延着鼠标行动的方向偏移一个固定的距离

jxlsp

XIAOFEILONG发表于2008-10-31 1:36:00谢谢,我希望能用鼠标点击来控制复制的个数鼠标点击1次,就在前面复制的基础上再延着鼠标行动的方向偏移一个固定的距离

两行搞定

（defun c:mcopy(/ )

(setq ent(entsel)pt(cadr ent)ent(car ent)dist(getdist pt"输入距离："))

(while(setq a(getangle pt"指定方向："))(setq p(polar pt a dist))(command"copy"ent "" pt p)(setq pt p ent(entlast)))

）

XIAOFEILONG

jxlsp发表于2008-10-31 9:52:00两行搞定（defun c:mcopy(/ )(setq ent(entsel)pt(cadr ent)ent(car ent)dist(getdist pt\"输入距离：\"))(while(setq a(getangle pt\"指定方向：\"))(setq p(polar pt a dist))(command\"copy

太强了!!

不愧是jxlsp啊!

也感谢liminnet !