[求助]：用lisp实现如mirror功能？

nuance

用lisp能否实现如mirror功能？即在屏幕选择镜像线时动态显示镜像图像。

aeo

看看xd_api试试.
不然lisp好象挺难.除非用grdraw大致模仿一下.

daziran

nuance 的意思是不是预设了选择集，然后手动设定镜像线？则代码：
假设选择集为SS
(command "mirror" ss "" pause pause)

如果第一镜像点已知，则：
(command "mirror" ss "" pt1 pause)

也许我理解的不对？

eachy

1. 
   
2. [color=red](acet-ss-drag-move ss pt [prompt] [highlight [cursor]])[/color]
   
3. 
   
4. Drag a selection set to change location.
   
5. 
   
6. Arguments
   
7. ss The selection set to drag.
   
8. pt The base point.
   
9. prompt A message to display before dragging is started.
   
10. highlight If given, causes a rubber-band line to be drawn from pt to the current cursor position while dragging;
    
11. this parameter can be nil to draw a rubber-band line in the inverse of the screen color, or non-nil to draw a
    
12. highlighted line.
    
13. cursor The cursor form to display while dragging (0=crosshairs, 1=no cursor, 2=target).
    
14. 
    
15. Return Values
    
16. Normally returns the selected point, but will honor initget settings and can return arbitrary text or keywords.
    
17. Returns nil if the dragging operation is aborted.
    
18. 
    
19. Note:
    
20. The acet-ss-drag-move function does not move the selection set, but allows selection of a new position while
    
21. showing how the result will appear.
    

复制代码

1. 
   
2. [color=blue](acet-ss-drag-rotate ss pt [prompt] [highlight [cursor]])[/color]
   
3. 
   
4. Drag a selection set to change rotation.
   
5. 
   
6. Arguments
   
7. ss The selection set to drag.
   
8. pt The base point.
   
9. prompt A message to display before dragging is started.
   
10. highlight If given, causes a rubber-band line to be drawn from pt to the current cursor position while dragging;
    
11. this parameter can be nil to draw a rubber-band line in the inverse of the screen color, or non-nil to draw a
    
12. highlighted line.
    
13. cursor Gives the cursor form to display while dragging (0=crosshairs, 1=no cursor, 2=target).
    
14. 
    
15. Return Values
    
16. The selected rotation value, or nil if dragging is aborted.
    
17. 
    
18. Note:
    
19. The acet-ss-drag-rotate function does not rotate the selection set, but allows selection of a rotation value
    
20. while showing how the result will appear.
    
21. 
    

复制代码

1. 
   
2. [color=blue](acet-ss-drag-scale ss pt [prompt] [highlight [cursor]])[/color]
   
3. 
   
4. Drag a selection set to change scale.
   
5. 
   
6. Arguments
   
7. ss The selection set to drag.
   
8. pt The base point.
   
9. prompt A message to display before dragging is started.
   
10. highlight If given, causes a rubber-band line to be drawn from pt to the current cursor position while dragging;
    
11. this parameter can be nil to draw a rubber-band line in the inverse of the screen color, or non-nil to draw a
    
12. highlighted line.
    
13. cursor Gives the cursor form to display while dragging (0=crosshairs, 1=no cursor, 2=target).
    
14. 
    
15. Return Values
    
16. The selected scale factor, or nil if dragging is aborted.
    
17. 
    
18. Note:
    
19. The acet-ss-drag-scale function does not scale the selection set, but allows selection of a scaling factore
    
20. while showing how the result will appear.
    
21. 
    

复制代码