如何在Autolisp中调用延伸命令

f5612140

1.ps.5楼程序中(command "extend" ename "" p3 "") p3是点
2.若写成(command "extend" ename "" (cons eename p3) "") 比照fillet的写法会不做任何动作

meflying

1.如图,如果是延伸两条相交的直线,P3是交点(或附近的点),你将无法确定延伸的是你需要的直线,可能延伸了另一条直线...这个用鼠标在屏幕上选择一样,如果两个对象挨地很近,你经常无法选择你需要的对象,而选中另一对象



2.fillet和extend操作过程是不一样的,fillet是连续选择两个对象,而extend是先选择一个或多个对象,回车后,再选择另一个或多个对象,所以两个命令写到command函数里就是不一样的,我按extend写的方式用在fillet里当然就不行了


这里有个小错误,应该是(command "extend" ename "" (cons eename (list p3)) "")


SORRY!

f5612140

meflying发表于2004-8-26 11:58:001.如图,如果是延伸两条相交的直线,P3是交点(或附近的点),你将无法确定延伸的是你需要的直线,可能延伸了另一条直线...这个用鼠标在屏幕上选择一样,如果两个对象挨...

1.的确,(command "extend" ename "" p3 "")的写法不够严谨,当时为了克服问题加了PICKBOX=0,倒也得到预期效果 2.感谢问题的发起人 3.谢谢meflying,fillet也应该为(command "fillet" ename (cons eename (LIST p3))) 或(command "fillet" ename (list eename p3))) (command "extend" ename "" (list eename p3) "")

ll1122

两者均可(当只有一个交点时),mefly 的更具普遍性,更严密.