[LISP]程序错误在那里

呆呆 · 发表于 2003-11-2 17:29:00

(defun mj_s(/ p1 p2)
(setq p1 (getpoint "  pickpoint:"))
   (command "area" p1 )
(while (/= p2 nil)
   (setq p2 (getpoint "  pickpoint:"))
   (command " " p2)
)
  (princ)
)
(defun c:df(/ oce  pm mmj mj)
   (setq oce (getvar "cmdecho"))
   (setvar "cmdecho" 0)
         (mj_s)
      (if (and (= p1 nil) (= p2 nil))
         (setq mmj(getvar "area"))
         (setq mj ( rtos (*  mmj 0.0001) 2 3))
         (setq pm (getpoint "\n选择标注点:"))
         (command "text" "j" "m" pm "35" "0" mj)
         (setvar "cmdecho" oce)
      )
(prin1)
)

呆呆 · 发表于 2003-11-2 17:31:00

我打算是想先执行测量面积并且把值写出来但是怎么都不成功不知道出现的错误在哪里谢谢各位指教
----------------------------------------------------------------------------
我是个新手

呆呆 · 发表于 2003-11-2 18:18:00

请问飞哥我的上面的程序错误在哪里谢谢飞哥
还有我还想问您如何在执行偏移命令后使偏移后的对象转到当前图层来哦
谢谢飞哥

meflying · 发表于 2003-11-2 18:40:00

你的程序问题很多，看看我改的，对比一下，找一下问题吧。
将对象设到当前层用CHPROP命令。

copy


(defun mj_s (/ p2)
  (setq p2 t)
  (command "area")
  (while p2
    (setq p2 (getpoint "\npickpoint:"))
    (command p2)
  )
  (command "")
)
(defun c:df (/ oce pm mmj mj)
  (setq oce (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (mj_s)
  (if (and (= p1 nil) (= p2 nil))
    (progn
    (setq mmj (getvar "area"))
    (setq mj (rtos (* mmj 0.0001) 2 3))
    (setq pm (getpoint "\n选择标注点:"))
    (command "text" "j" "m" pm "35" "0" mj)
    (setvar "cmdecho" oce)
    )
  )
  (prin1)
)