关于command命令的pause

aihuyujian

例如我复制一个图元，(command "copy" ent "" pause pause) 这样可以动态复制，但是我能不能pause的同时获得点击的点的坐标呢，就是怎么取得两次pause时用户自己点击的两个点的坐标，还请大神们多多指点，谢谢啦

Andyhon

(command "copy" ent ""
   (setq p1 (getpoint))
)
(command Pause)
(setq p2 (GetVar 'LastPoint))

洪少(刀模)

7楼的方法，从这里更明白pause的用法，谢谢Andyhon

xmzhangzhilin

看到这个，刚好解决了一直困扰我的问题，感谢

ivde

这样用是不可能滴!

wowan1314

试了下，好像可以！  楼主试试看

2. (defun c:t11 (/ en p1 p2)
   
3.     (setq en (car (entsel )))
   
4.     (command "COPY" en "" pause)
   
5.     (setq p1 (getvar "lastpoint"))
   
6.     (command pause)
   
7.     (setq p2 (getvar "lastpoint"))
   
8.     (command )
   
9.     (command "PLINE" p1 p2 "")
   
10. )

(defun c:t11 (/ en p1 p2)<br />     (setq en (car (entsel )))<br />     (command "COPY" en "" pause)<br />     (setq p1 (getvar "lastpoint"))<br />     (command pause)<br />     (setq p2 (getvar "lastpoint"))<br />     (command )<br />     (command "PLINE" p1 p2 "")<br /> )

yoyoho

(command "copy" ent "" (setq pt1 (getpoint)) (setq pt2 (getpoint)))
然后
指令: !pt1
指令: !pt2

aihuyujian

yoyoho 发表于 2014-11-9 20:11
(command "copy" ent "" (setq pt1 (getpoint)) (setq pt2 (getpoint)))
然后
指令: !pt1

这样还能动态复制么？

aihuyujian

wowan1314 发表于 2014-11-9 20:09
试了下，好像可以！  楼主试试看

手机竟然看不见代码……

aihuyujian

Andyhon 发表于 2014-11-9 20:17
(command "copy" ent ""
   (setq p1 (getpoint))
)

非常感谢，已成功

aihuyujian

wowan1314 发表于 2014-11-9 20:09
试了下，好像可以！  楼主试试看

已经解决，非常感谢