关于getpoint输入值和左键指定点

SunSpring

如何区分getpoint的返回值是左键指定的点,还是输入距离后返回的点?
如果不能区分,可否写个自定义函数解决?用法最好和getpoint一样.

1. (defun c:cp (/ entgrp ept spt)
   
2.   (prompt "按比例连续复制对象")
   
3.   (if (setq entgrp (ssget))
   
4.     (if (setq spt (getpoint "\n指定基准点:"))
   
5.       (progn
   
6.         (command ".copy" entgrp "" "m" spt)
   
7.         (while (setq ept (mygetpoint spt "\n指定位移的第二点或 <用第一点作位移>:"))
   
8.           (cond
   
9.             ((= (car ept) 5)
   
10.               (command (cdr ept))
    
11.             )
    
12.             ((= (car ept) 2)
    
13.               (command (* (/ 1.0 (getvar "dimlfac")) (distance spt (cdr ept))))
    
14.             )
    
15.           )
    
16.         )
    
17.         (command "")
    
18.       )
    
19.     )
    
20.   )
    
21.   (princ)
    
22. )
    
23. (defun mygetpoint ( a b / c lastoldprompt)
    
24.   (if (setq lastoldprompt (getvar "lastprompt")
    
25.             c (getpoint a b)
    
26.       )
    
27.     (setq c (if (= (getvar "lastprompt") lastoldprompt)
    
28.               (cons 5 c)
    
29.               (cons 2 c)
    
30.             )
    
31.     )
    
32.   )
    
33.   c
    
34. )

(defun c:cp (/ entgrp ept spt)<br />   (prompt "按比例连续复制对象")<br />   (if (setq entgrp (ssget))<br />     (if (setq spt (getpoint "\n指定基准点:"))<br />       (progn<br />         (command ".copy" entgrp "" "m" spt)<br />         (while (setq ept (mygetpoint spt "\n指定位移的第二点或 <用第一点作位移>:"))<br />           (cond<br />             ((= (car ept) 5)<br />               (command (cdr ept))<br />             )<br />             ((= (car ept) 2)<br />               (command (* (/ 1.0 (getvar "dimlfac")) (distance spt (cdr ept))))<br />             )<br />           )<br />         )<br />         (command "")<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br /> (defun mygetpoint ( a b / c lastoldprompt)<br />   (if (setq lastoldprompt (getvar "lastprompt")<br />             c (getpoint a b)<br />       )<br />     (setq c (if (= (getvar "lastprompt") lastoldprompt)<br />               (cons 5 c)<br />               (cons 2 c)<br />             )<br />     )<br />   )<br />   c<br /> )

llsheng_73

1. 
   
2. (defun mygetpoint(/ a b)
   
3.   (setq a(grread)b(nth 1 a)
   
4. a(if(<(car a)3)
   
5.    (list 2(read(strcat"("(VL-STRING-TRANSLATE",; ""   "(strcat(chr b)(getstring(prompt(chr b)))))")")))a))
   
6.   (if(/=(length(nth 1 a))3)(progn(PROMPT"点无效")(mygetpoint))a)
   
7.   )
   
8. ;;如果返回值 (5 (175.403 71.6869 0.0))是鼠标点击得到的坐标
   
9. ;;如果返回值 (3 (175.403 71.6869 0.0))是鼠标点击得到的坐标
   
10. ;;如果返回值 (2 (175.403 71.6869 0.0))是键盘输入得到的坐标
    

<br /> (defun mygetpoint(/ a b)<br />   (setq a(grread)b(nth 1 a)<br /> a(if(<(car a)3)<br />    (list 2(read(strcat"("(VL-STRING-TRANSLATE",; ""   "(strcat(chr b)(getstring(prompt(chr b)))))")")))a))<br />   (if(/=(length(nth 1 a))3)(progn(PROMPT"点无效")(mygetpoint))a)<br />   )<br /> ;;如果返回值 (5 (175.403 71.6869 0.0))是鼠标点击得到的坐标<br /> ;;如果返回值 (3 (175.403 71.6869 0.0))是鼠标点击得到的坐标<br /> ;;如果返回值 (2 (175.403 71.6869 0.0))是键盘输入得到的坐标<br />

SunSpring

llsheng_73 发表于 2014-1-2 14:05

这个方法有些缺陷,当开启极轴或捕捉时点下的点和光标点并不相同

llsheng_73

SunSpring 发表于 2014-1-2 14:28
这个方法有些缺陷,当开启极轴或捕捉时点下的点和光标点并不相同

看样子只能想法专门写一个。。。

llsheng_73

(if(setq lastoldprompt(getvar"lastprompt")b(getpoint))(setq b(if(=(getvar"lastprompt")lastoldprompt)(cons 5 b)(cons 2 b))))
;;这样鼠标点击会返回(5 x y z)而键盘输入会返回(2 x y z),要用坐标得通过(cdr b)得到，而通过(car b)可以确定是键盘输入的还是鼠标点击的
;;如果直接右键会跟(GETPOINT)一样返回NIL

SunSpring

llsheng_73 发表于 2014-1-4 17:05
(if(setq lastoldprompt(getvar"lastprompt")b(getpoint))(setq b(if(=(getvar"lastprompt")lastoldprompt) ...

还是解决不了问题。我把我的程序贴上，你看看吧。

xj6019

谁在这基础上给我改改啊

(defun c:test ()
  (CMDLA0)
  (while (setq pt (getpoint "\n插入点<退出>"))
    (command "insert" "xx" pt "" "" "")
    (setq s1(entlast))
    (SUB_UPD s1 41 1)
    (SUB_UPD s1 42 1)
    (SUB_UPD s1 43 1)
    (command"explode" s1 "")
  )
  (CMDLA1)
)[/FONT]
xx  为文件路径   不需要炸开     所有比例都是1就行  不用旋转   命令之后啥都别调  直接放入   哪位大神动动手搞搞啊

gaics

llsheng_73 发表于 2014-1-4 17:05
(if(setq lastoldprompt(getvar"lastprompt")b(getpoint))(setq b(if(=(getvar"lastprompt")lastoldprompt) ...

用空格 为什么跟回车或者右键 的结果不同呢？烦恼

gaics

llsheng_73 发表于 2014-1-4 17:05
(if(setq lastoldprompt(getvar"lastprompt")b(getpoint))(setq b(if(=(getvar"lastprompt")lastoldprompt) ...

改用vla-getpoint，可以解决空格输入的差异。