[LISP程序]：位置交换

wlz088

(defun c:exchange(/ ss1 ss2  pt1 pt2 os)
   (setq os (getvar "osmode"))
   (setvar "osmode" 0)
   (setvar "blipmode" 0)
  (setvar "cmdecho" 0)
   (menucmd "s=x") (menucmd "s=move")
   (setq ss1 (ssget)
         ss2 (ssget)
         pt1 (upoint 1 "" "第一点" nil nil)
         pt2 (upoint 1 "" "第二点" nil pt1)
   )
   (command "move" ss1 "" pt1 pt2
            "move" ss2 "" pt2 pt1
   )
   (setvar "osmode" os)
   (setvar "blipmode" 1)
  (setvar "cmdecho" 1)
   (princ)
)

lijiao

最初由 wlz088 发布
[B](defun c:exchange(/ ss1 ss2  pt1 pt2 os)
   (setq os (getvar "osmode"))
   (setvar "osmode" 0)
   (setvar "blipmode" 0)
  (setvar "cmdecho" 0)
   (menucmd "s=x") (menucmd "s=move")
   (setq ss1... [/B]

upoint未定义

wlz088

2. ;* UPOINT User interface distance function
   
3.                                         ;-----------------------------------------
   
4. (defun upoint (bit kwd msg def bpt / inp)
   
5.   (if def                                ;text for a default
   
6.     (setq pts (strcat (rtos (car def)) "," (rtos (cadr def)))
   
7.                                         ;format for 2D point
   
8.           msg (strcat "\n" msg " <" pts ">: ")
   
9.                                         ;string them with default
   
10.           bit (* 2 (fix (/ bit 2)))        ;a default and no null bit code confliet so
    
11.     )                                        ;setq                       ;this reduess bit by I if odd,to allow null
    
12.     (setq msg (strcat "\n" msg ": "))        ;without default
    
13.   )                                        ;if
    
14.   (initget bit kwd)
    
15.   (if bpt                                ;check for a base point
    
16.     (setq inp (getpoint msg bpt))        ;and use it in the GET commands
    
17.     (setq inp (getpoint msg))
    
18.   )                                        ;if a base point exist
    
19.   (if inp
    
20.     inp
    
21.     def
    
22.   )                                        ;Compare the results, return appropriate value
    
23. )                                        ;defun
    
24.                                         ;*

;* UPOINT User interface distance function<br />                                         ;-----------------------------------------<br /> (defun upoint (bit kwd msg def bpt / inp)<br />   (if def                                ;text for a default<br />     (setq pts (strcat (rtos (car def)) "," (rtos (cadr def)))<br />                                         ;format for 2D point<br />           msg (strcat "\n" msg " <" pts ">: ")<br />                                         ;string them with default<br />           bit (* 2 (fix (/ bit 2)))        ;a default and no null bit code confliet so<br />     )                                        ;setq                       ;this reduess bit by I if odd,to allow null<br />     (setq msg (strcat "\n" msg ": "))        ;without default<br />   )                                        ;if<br />   (initget bit kwd)<br />   (if bpt                                ;check for a base point<br />     (setq inp (getpoint msg bpt))        ;and use it in the GET commands<br />     (setq inp (getpoint msg))<br />   )                                        ;if a base point exist<br />   (if inp<br />     inp<br />     def<br />   )                                        ;Compare the results, return appropriate value<br /> )                                        ;defun<br />                                         ;*

ydf7332462

说明一下用图,交换什么?参照点位?

令狐冲

好象是将两个选择集的位置交换。