spline????

springsky · 发表于 2004-6-28 22:07:00

(defun c:ss(/    cm tc os ot ss )
   (setq cm (getvar "cmdecho")
tc(getvar "clayer")
os(getvar "osmode")
ot(getvar "orthomode")
)
   (command "osnap" "off")
   (command "ortho" "off")
   (setvar "cmdecho" 0)
   ;;(setq pt(getpoint ""))
   (command "spline" (getpoint))
   (setq ss(ssget "l"))
   (tl ss)
   (setvar "cmdecho" cm)
   (setvar "osmode" os)
   (setvar "orthomode" ot)
   )
程序中我想绘完一条spline线，之后在进行其他的语句，可是我写的程序总是运行完后才能绘制spline线，不知道有没有办法实现先绘完spline线，然后再创建选择集？

meflying · 发表于 2004-6-29 00:12:00

一个点是汇不成一条SPLINE的，是程序出错了
而且SPLINE画了最后一个点后，还要诺干回车，才能结束此命令，你这样命令没结束，就想做后面的事情，肯定不行，所以是程序出错退出了，而不是先创建选择集再画直线（程序退出，但命令没有退出，所以最后还让你继续画SPLINE）
...
(command "spline" (getpoint) (getpoint) (getpoint) "" "" "")
...

spline????

发表回复

精选推荐

浏览过的版块