lisp程序修改问题

key820

现在有一个lisp程序，功能是：在cad中输入aa，提示“输入数值”，输入数字（比如说100），则在本图中插入事先放在support文件夹里的图形bb.dwg，并把图形放大100/38倍。
我现在想把“输入数值”改为用鼠标选择两点，则插入bb.dwg并放大 "两点间距离/38"倍。。请问这个程序该怎么修改啊？

  (defun c:aa(/ num file)
  (setvar "cmdecho" 0)
  (if (setq num (getreal "\n输入数值:"))
    (if(setq file(findfile "bb.dwg"))
      (command "-insert" file '(0 0 0) (/ num 38) (/ num 38) "")
      )
    )
  (setvar "cmdecho" 1)
  (princ)
  )

Andyhon

(if (setq num (getreal "\n输入数值:"))
改为用鼠标选择两点
(if (setq num (getDist "\n用鼠标选择两点: "))

key820

Andyhon 发表于 2012-3-14 10:47
(if (setq num (getreal "\n输入数值:"))
改为用鼠标选择两点
(if (setq num (getDist "\n用鼠标选择两 ...

太感谢了~哈哈，搜了好几天都没找到答案，让您一下解决了：）以后多向您学习

key820

Andyhon 发表于 2012-3-14 10:47
(if (setq num (getreal "\n输入数值:"))
改为用鼠标选择两点
(if (setq num (getDist "\n用鼠标选择两 ...

长老~我想再请教您一个问题，呵呵~~我是初学lisp，觉得功能太强大了
这个问题我在其他网站求助过，一直没有解决，希望您有空帮我看下哈。。
就是我想在这个程序的基础上再加点东西：
用鼠标选择两点距离后得到“距离1”，然后再用鼠标选择两点得到“距离2”。。
如果“距离2”/("距离1"/38)<10,则插入事先放在ee文件夹里的图b1.dwg,并放大"距离1"/38倍；
如果“距离2”/("距离1"/38)>10,则插入事先放在ee文件夹里的图b2.dwg,并放大"距离1"/38倍；
如果“距离2”/("距离1"/38)>20,则插入事先放在ee文件夹里的图b3.dwg,并放大"距离1"/38倍；

拜托您了：）真不知道怎么感谢您

Andyhon

(setq dist1 (getDist "\n用鼠标选择两点: "))         ; 用鼠标选择两点距离后得到“距离1”
(setq dist2 (getDist "\n用鼠标选择两点: "))         ; 然后再用鼠标选择两点得到“距离2”。。
(cond
  ((setq d2/1 (/ dist2 dist1) sxl (* d2/1 38) $ nil))
  
  ((> sxl 20) (setq dwg '放在ee文件夹里的图b3.dwg))
  ((> sxl 10) (setq dwg '放在ee文件夹里的图b2.dwg))
  ((< sxl 10) (setq dwg '放在ee文件夹里的图b1.dwg))
)

key820

Andyhon 发表于 2012-3-14 13:21
(setq dist1 (getDist "\n用鼠标选择两点: "))         ; 用鼠标选择两点距离后得到“距离1”
(setq dist ...

我改了下，但没成功~您给看看错那了啊

  (defun c:aa(/ num file)
  (setvar "cmdecho" 0)
  (if (setq dist1 (getDist "\n用鼠标选择两点: "))
      (setq dist2 (getDist "\n用鼠标选择两点: "))
       (cond
        ((setq d2/1 (/ dist2 dist1) sxl (* d2/1 38) $ nil))  
        ((> sxl 20) (setq dwg 'b3.dwg))
        ((> sxl 10) (setq dwg 'b2.dwg))
        ((< sxl 10) (setq dwg 'b1.dwg))         
       )
     (progn
      (command "-insert" file pause (/ num 38) (/ num 38) "")
      (command "_explode"  (entlast))
     )
  )
  (setvar "cmdecho" 1)
  (princ)
  )

key820

Andyhon 发表于 2012-3-14 13:21
(setq dist1 (getDist "\n用鼠标选择两点: "))         ; 用鼠标选择两点距离后得到“距离1”
(setq dist ...

我又想到一点，呵呵——用鼠标选择两点，Y方向的增量为dist1，X方向的增量为dist2。
这样只需要用鼠标选择一次就可以了。。。这个怎么实现啊

Andyhon

2. 
   
3. 
   
4. (defun c:aa (/ num file)
   
5.   (setvar "cmdecho" 0)
   
6.   (if (and (setq dist1 (getDist "\n用鼠标选择两点: "))
   
7.            (setq dist2 (getDist "\n用鼠标选择两点: "))
   
8.       )
   
9.     (progn
   
10.       (cond
    
11.         ((setq d2/1 (/ dist2 dist1)
    
12.                sxl  (* d2/1 38)
    
13.                $    nil
    
14.          )
    
15.         )
    
16.         ((> sxl 20) (setq dwg 'b3.dwg))      ; 'b3.dwg 得如 "D:\\ee\\B3.dwg"
    
17.         ;; ((> sxl 20) (setq dwg "D:\\ee\\B3.dwg"))  ; 下同
    
18.         ((> sxl 10) (setq dwg 'b2.dwg))
    
19.         ((< sxl 10) (setq dwg 'b1.dwg))
    
20.       )
    
21.       (command "-insert" dwg pause (/ dist1 38) (/ Dist1 38) "")
    
22.       (command "_explode" (entlast))
    
23.     )
    
24.   )
    
25.   (setvar "cmdecho" 1)
    
26.   (princ)
    
27. )
    

<br /> <br /> (defun c:aa (/ num file)<br />   (setvar "cmdecho" 0)<br />   (if (and (setq dist1 (getDist "\n用鼠标选择两点: "))<br />            (setq dist2 (getDist "\n用鼠标选择两点: "))<br />       )<br />     (progn<br />       (cond<br />         ((setq d2/1 (/ dist2 dist1)<br />                sxl  (* d2/1 38)<br />                $    nil<br />          )<br />         )<br />         ((> sxl 20) (setq dwg 'b3.dwg))      ; 'b3.dwg 得如 "D:\\ee\\B3.dwg" <br />         ;; ((> sxl 20) (setq dwg "D:\\ee\\B3.dwg"))  ; 下同<br />         ((> sxl 10) (setq dwg 'b2.dwg))<br />         ((< sxl 10) (setq dwg 'b1.dwg))<br />       )<br />       (command "-insert" dwg pause (/ dist1 38) (/ Dist1 38) "")<br />       (command "_explode" (entlast))<br />     )<br />   )<br />   (setvar "cmdecho" 1)<br />   (princ)<br /> )<br />

key820

Andyhon 发表于 2012-3-14 14:43

没运行出来啊。。呵呵~

Andyhon

没运行出来啊...
您得描述您调试的背景及错误讯息
要不就得去老猫那儿上课...