用lisp插入块文件，怎样提前看到效果呢？老大请帮我改一下吧。

tianliangle · 发表于 2004-1-14 21:43:00

(defun c:aaa ()
(setvar "cmdecho" 0)
  (command "layer" "m" "白色" "c" "7" "" "")
  (setq pt1 (getpoint "插入点:"))
  (command "insert"
   "新块.dwg"
   pt1
   (/ 1)
   ""
   (setq k0 (getpoint pt1 "\n旋转角度:"))
   (while pt1
      (setq pt1 (getpoint ""))
      (command "insert"
      "新块.dwg.dwg"
      pt1
      (/ 1)
      ""
      (setq k0 (getpoint pt1 "\n旋转角度:"))
      )
   )
  )
)

SWAYWOOD · 发表于 2004-1-15 21:58:00

我也有这种想法，不过想不到什么好办法，只好用幻灯片

tianliangle · 发表于 2004-1-16 21:04:00

我觉得肯定有办法，只是一时想不到。

lgh930 · 发表于 2004-1-16 23:28:00

用PX，PY，PSCALE PANGLE选项，详见INSERT命令行提示

wdb · 发表于 2004-1-17 15:55:00

把插入命令里的pt1换成pause

tianliangle · 发表于 2004-1-20 22:38:00

感谢5楼的Wdb：
把插入命令里的pt1换成pause行不通啊。我预期的效果是选定插入点后图块显示出来
并随着鼠标的移动旋转，点击鼠标后图块按最后的角度插入。不过你的方法比我又近了一不，
谢谢你了。

tianliangle · 发表于 2004-1-20 22:41:00

lgh930：
PX，PY，PSCALE PANGLE选项？哦、我看一下，也许可以解决的。谢谢了。

wdb · 发表于 2004-1-22 00:59:00

你先运行一下“-insert”命令，记准运行参数的顺序，编程时，如果需要临时确定参数值就用pause代替，角度也是一样。

tianliangle · 发表于 2004-1-24 22:45:00

再次感谢Wdb：
我的问题已经解决了，不必再跟贴了。谢谢你的帮助。

账号		自动登录	找回密码
密码			注册

用lisp插入块文件，怎样提前看到效果呢？老大 请帮我改一下吧。

用lisp插入块文件，怎样提前看到效果呢？老大请帮我改一下吧。