请教acet-ss-drag-move函数如何响应用户输入

pxt2001

(acet-ss-drag-move ss pt [prompt][highlight [cursor]])

据说可以响应用户输入，但是一直没有测试成功，

例如以下代码测试不成功，请教问题在哪里？

(initget 128 "B")

(acet-ss-drag-move (ssget)  (getpoint "\nbasePt:") "\nChoose Location ... ")

liuhe

1. (DEFUN C:E1 ()
   
2.   (VL-LOAD-COM)
   
3.   (SETQ        SS (SSGET)
   
4.         PT (GETPOINT "\n指定基点")
   
5.   )
   
6. (LY:ROTATE SS PT 0)
   
7. ;;;  (LY:MOVE SS PT 2 )
   
8. ;;;  (LY:SCALE SS PT 1 )
   
9. )
   
10. (DEFUN LY:ROTATE (SSX P cur / I E ANG)
    
11.   (SETQ        ANG (ACET-SS-DRAG-ROTATE SSX P "\n指定旋转角度" cur)
    
12.         I   0       
    
13.   )
    
14.   (PRINC (TYPE ANG))
    
15.   (foreach E (acet-ss-to-list ssx)
    
16.     (VLA-ROTATE
    
17.       (VLAX-ENAME->VLA-OBJECT E)
    
18.       (VLAX-3D-POINT P)
    
19.       ANG
    
20.     )
    
21.   )
    
22. 
    
23. ;;;  (REPEAT (SSLENGTH SSX)
    
24. ;;;    (SETQ E (SSNAME SSX I))
    
25. ;;;    (VLA-ROTATE
    
26. ;;;      (VLAX-ENAME->VLA-OBJECT E)
    
27. ;;;      (VLAX-3D-POINT P)
    
28. ;;;      ANG
    
29. ;;;    )
    
30. ;;;    (SETQ I (1+ I))
    
31. ;;;  )
    
32.   (princ)
    
33. )
    
34. (DEFUN LY:MOVE (SSX P1 cur / I E ANG)
    
35.   (SETQ        P2 (ACET-SS-DRAG-move SSX P1 "\n指定第二个点" cur)
    
36.         I  0
    
37.   )
    
38.   (foreach E (acet-ss-to-list ssx)
    
39.     (VLA-MOVE
    
40.       (VLAX-ENAME->VLA-OBJECT E)
    
41.       (VLAX-3D-POINT P1)
    
42.       (VLAX-3D-POINT P2)
    
43.     )
    
44.   )
    
45. ;;;  (REPEAT (SSLENGTH SSX)
    
46. ;;;    (SETQ E (SSNAME SSX I))
    
47. ;;;    (VLA-MOVE
    
48. ;;;      (VLAX-ENAME->VLA-OBJECT E)
    
49. ;;;      (VLAX-3D-POINT P1)
    
50. ;;;      (VLAX-3D-POINT P2)
    
51. ;;;    )
    
52. ;;;    (SETQ I (1+ I))
    
53. ;;;  )
    
54.   (princ)
    
55. )
    
56. 
    
57. ;;;
    
58. ;;;(DEFUN LY:SCALE        (SSX P1 cur / I E N)
    
59. ;;;;;;;;;缩放无动态显示
    
60. ;;;  (SETQ        N (ACET-SS-DRAG-scale SSX P1 "\n指定比例因子" cur)
    
61. ;;;        I 0
    
62. ;;;  )
    
63. ;;;  (PRINC (TYPE N))
    
64. ;;;;;;  (REPEAT (SSLENGTH SSX)
    
65. ;;;;;;    (SETQ E (SSNAME SSX I))
    
66. ;;;;;;    (vla-ScaleEntity
    
67. ;;;;;;      (VLAX-ENAME->VLA-OBJECT E)
    
68. ;;;;;;      (VLAX-3D-POINT P1)
    
69. ;;;;;;      (RTOS N 2 0)
    
70. ;;;;;;    )
    
71. ;;;;;;    (SETQ I (1+ I))
    
72. ;;;;;;  )
    
73. ;;;  (princ)
    
74. ;;;)

复制代码

以前我研究的代码，都是可以运行的，缩放没法看到动态过程

pxt2001

liuhe 发表于 2023-2-7 08:37
以前我研究的代码，都是可以运行的，缩放没法看到动态过程

您可能没有明白我表达的意思，我希望的是在acet-ss-drag-move动态拖动选择集过程中，
如果鼠标取点，可以正常执行。但如果输入自定义的关键字，无法返回关键字字符串。acet-ss-drag-move说明书提到可以配合initget设置关键字，但又没有给出相应的例子。

masterlong

和get类函数完全一样的用法

注意一下
如果加载了高飞鸟的DYN函数
那么返回值区别大小写

pxt2001

masterlong 发表于 2023-2-7 15:47
和get类函数完全一样的用法

注意一下

经过尝试，搞定，感谢指点。
(Setq Ss     (Ssget)
      Basept (Getpoint "\nBasePt:")
)
(Initget "B")
(Setq Pt (Acet-Ss-Drag-Move Ss BasePt "\n选择点[选项(B)]："))