lisp程序修改问题

key820

Andyhon 发表于 2012-3-14 15:43
没运行出来啊...
您得描述您调试的背景及错误讯息
要不就得去老猫那儿上课...

再请问您一下啊，呵呵
如果用鼠标选择两点，Y方向的增量为dist1，X方向的增量为dist2。
这样只需要用鼠标选择一次就可以了。。。这个怎么实现啊

Andyhon

---snip

(if (and
          (setq pt1 (getpoint "\n用鼠标选择第一点 : "))      ; 左下
          (setq pt2 (getpoint "\n用鼠标选择第二点 : "))      ; 右上
      )
    (progn
      ;; Y方向的增量为dist1，X方向的增量为dist2。
      (setq dist1 (- (cadr pt2) (cadr pt1))
            dist2 (- (car pt2) (car pt1))
      )

---snip

key820

Andyhon 发表于 2012-3-14 15:57
---snip

(if (and

多谢长老指点迷津~呵呵。。我先琢磨琢磨这几个命令吧。。
非常感谢：）

key820

Andyhon 发表于 2012-3-14 15:57
---snip

(if (and

突然又想到一个问题。。。
就是我的插入点就是鼠标选择的第二个点，这样就不用再指定插入点了。。这个怎么实现啊？
拜托~再教我一招吧

Andyhon

(command "-insert" dwg pause (/ dist1 38) (/ Dist1 38) "")
===>
(command "-insert" dwg pt2 (/ dist1 38) (/ Dist1 38) "")

key820

Andyhon 发表于 2012-3-14 18:42
(command "-insert" dwg pause (/ dist1 38) (/ Dist1 38) "")
===>
(command "-insert" dwg pt2 (/ dist ...

终于琢磨出点名堂了，呵呵~已经全部能运行了~~多谢大哥耐心指导。哈哈~