[求助]：求助把这次移动或拉伸的距离作为下次的隐含值

sandyhuahua

怎么设置呢？我还是不能用

surenwang

为什么出现
错误: 除数为零

surenwang

总算明白了一些
我改了下，现在可以用了
中途退出也能恢复系统变量
绘图比例都是1：1，没有交互输入。
(defun c:move1(/ ss blx0 p1 p2 ang dis p3)   
    (setq *OLDERR* *ERROR*
         *ERROR*  *MYERR*)
    (modes '("osmode" "cmdecho" "orthomode" "AUTOSNAP"))
    (setvar "osmode" 0)
    (setvar "cmdecho" 0)
    (setvar "orthomode" 1)
    (setq ss (ssget) p1 (getvar "viewctr") blx0 1)
    (princ (strcat "\n**  当前绘图比例为1:" (itoa (fix blx0)) "  **"))
    (if mvang0
      (foreach n ' ((0 "向右")(1 "向上")(3 "向左")(4 "向下"))
        (if (= (fix mvang0) (car n)) (setq fx0 (cadr n)))
      )
      (setq fx0 "竖直向上")
    )
    (setq p2 (getpoint (strcat "\n搬移方向<" fx0 ">:") p1))
    (if p2 (setq ang (angle p1 p2)) (setq ang (if mvang0 mvang0 (/ pi 2))))
    (if (= distan nil) (setq distan 100))
    (princ  "\n移动距离<") (princ distan)
    (setq dis (getint  ">:" ))
    (if (= dis nil) (setq dis distan))
    (setq p3 (polar p1 ang dis))
    (command "move"   ss "" p1 p3)
    (setq distan dis mvang0 ang)
    (moder)
    (*ERROR* "命令结束")
    (princ)
)
(defun MODES (a)
  (setq MLST '())
  (repeat (length a)
    (setq MLST (append MLST (list (list (car a) (getvar (car a))))))
    (setq a (cdr a))
  )
)

(defun MODER ()
  (repeat (length MLST)
    (setvar (caar MLST) (cadar MLST))
    (setq MLST (cdr MLST))
  )
)

(defun *MYERR* (MSG)       
(moder)
(setq *ERROR* *OLDERR*)       
(if (= MSG "命令结束")         
   (princ (strcat "\n" MSG))
   (princ "*取消*")          
)       
(princ)
)

carrot1983

什么隐含值？？？
用
vlax-ldata-get
vlax-ldata-put
可以吗？

xyp1964

试试u系列的udist：

2. [FONT=courier new];;;---------------------- UDIST ---------------------------
   
3. ;;;                  距离输入格式化                        
   
4. ;;;方式 : (setq dist1 (udist 1 "" "距离" dist1 (list 0 0)))
   
5. (defun udist (bit kwd msg def bpt / inp)
   
6.   (if def
   
7.     (setq msg (strcat "\n" msg "<" (rtos def) ">: ")
   
8.           bit (* 2 (fix (/ bit 2)))
   
9.     )
   
10.     (setq msg (strcat "\n" msg ": "))
    
11.   )
    
12.   (initget bit kwd)
    
13.   (setq        inp (if bpt (getdist msg bpt) (getdist msg)))
    
14.   (if inp inp def)
    
15. )
    
16. [/FONT]

[FONT=courier new];;;---------------------- UDIST ---------------------------<br /> ;;;                  距离输入格式化                        <br /> ;;;方式 : (setq dist1 (udist 1 "" "距离" dist1 (list 0 0)))<br /> (defun udist (bit kwd msg def bpt / inp)<br />   (if def<br />     (setq msg (strcat "\n" msg "<" (rtos def) ">: ")<br />           bit (* 2 (fix (/ bit 2)))<br />     )<br />     (setq msg (strcat "\n" msg ": "))<br />   )<br />   (initget bit kwd)<br />   (setq        inp (if bpt (getdist msg bpt) (getdist msg)))<br />   (if inp inp def)<br /> )<br /> [/FONT]