怎样构造stretch命令?
怎样在autolisp 内部完成stretch命令?解释一下
在autolisp内部,构造stretch(拉伸)命令,使该命令在autolisp程序内部完成。比如画线命令可以这样构造:(command "line" pt1 pt2 ""),但stretch命令包含拉伸的实体选择集、拉伸框、拉伸向量(或拉伸的起点、止点),试验了很多组合,都没有成功,望高手执教,非常感谢! (defun c:test ()<BR> (command "stretch"<BR> "c"<BR> (setq p0 (getpoint))<BR> (getcorner p0)<BR> ""<BR> (setq p1 (getpoint))<BR> (getpoint p1)<BR> )<BR>)如此又怎样控制选择集
谢谢楼上的指点。问题是:在autolisp内部完成stretch的目的,是要在autolisp内部能控制该命令中包括选择集在内的参数,如果控制不了,构造这个命令的意义就不大。 <P>3楼的样例中,如果程序直接提供需要的点,那么就可以直接由程序来完成操作了。至于参数那么看你需要什么才加什么,选择集也是一样,你需要添加什么就加什么。</P> <P>谢谢楼上对这个问题的讨论。我想这样解决:</P><P>(command "_STRETCH" "C" pt1 pt2 "R" "C" pt1 pt2 "A" ss "" pt3 pt4)</P>
<P>其中,pt1 pt2 为拉伸窗的2点;用"R" "C" pt1 pt2 去掉拉伸窗选到的实体;再用"A" ss 添加需要拉伸的实体,ss是一个选择集;pt3 pt4为拉伸向量参数,这样程序对所有参数都可控。</P> liu_kunlun 发表于 2006-3-20 16:47
谢谢楼上对这个问题的讨论。我想这样解决:
(command "_STRETCH" "C" pt1 pt2 "R" "C" pt1 pt2 "A" ss ""...
这个不错,实现没有?
页:
[1]