MOVE 移位

CAD83

图形移动时非常麻烦，CAD中MOVE 移位经常地还要手动输入0，0   能不能用LISP点一下来指定

linheyuanpcb

(command "move" "all" "" pt1 "0,0" )

jltx123456

用(command "_.move"  ................后面自己加

fan_zh

一楼高级会员，二楼管理员，这个问题提得好

CAD83

我写不出全的来啦，哪位完整一下

永不言弃

2. (defun C:bb();快速移动
   
3.   (setq os (getvar "OSMODE"))
   
4.   (setvar "osmode" 0)
   
5.   (setq en (entsel ))
   
6.   (while en
   
7.     (setq pt (cadr en))
   
8.     (command "move" (car en) "" pt pause "")
   
9.     (setq en (entsel ))
   
10.    
    
11.     )
    
12.   (setvar "osmode" os)
    
13.   )
    

(defun C:bb();快速移动<br />   (setq os (getvar "OSMODE"))<br />   (setvar "osmode" 0)<br />   (setq en (entsel ))<br />   (while en<br />     (setq pt (cadr en))<br />     (command "move" (car en) "" pt pause "")<br />     (setq en (entsel ))<br />     <br />     )<br />   (setvar "osmode" os)<br />   )<br />