《菜鸟提问》怎么获得copy命令中输入的两个点，而且不破坏copy命令的功能

HGHG011

• 程序1：(command "copy"  (setq ss (ssget)) "" (setq pt1 (getpoint))    (setq (getpoint pt1)) )
• 程序2：(command "copy"  (setq ss (ssget)) "" )
• 想得到copy程序中输入的两个点
• 但是如此输入时候和单独使用copy操作差别别较大（如程序1，和程序2），不能时时实现拖拽显示
• 求高手帮忙啊
  

wzg356

(defun c:ccc nil
(command "copy"  (setq ss (ssget)) "")
(while(/=(getvar"cmdactive")0)
        (command pause)
        (setq p1 (getvar "lastpoint"))        
        (command pause)
        (setq p2 (getvar "lastpoint"))
)
(list p1 p2)
)

vectra

此问题LSP下无解，.NET,ObjectARX下可用Jig 解决。

布朗运动

LISP不是万能的，尤其是想在代码中包含用户交互输入功能时。

wzg356

这小伙印象有点深刻，大方，敢问....

HGHG011

wzg356 发表于 2014-12-24 22:15
这小伙印象有点深刻，大方，敢问....

谢谢帮忙，主要是没有时间，没有人指导所以采取这种简便方法
其实一点都不大方，其实悬赏10明经币才1元钱，和学到的知识不成正比的，仅仅是一个姿态而已
敢问是因为懂得太少，都是自学的，不系统所以才瞎问
再次感谢，对我帮助很大