记忆上次输入过矩形宽度,这码错了,怎么修改?[已解决]

kwok

下面是指定宽度画矩形的,我想让它记忆上次输入过的宽度,怎么弄,指点一下.
谢谢!
(defun c:test(/ OS P1 P2 D P3 P4)
  (if *d*
    (progn
  (setq d (getdist "\n矩形宽度<" (rtos *d* 2 2) ">: ")))
  (if (null d) (setq d *d*) (setq *d* d))
  )
(progn
  (setq d (getdist "\n矩形宽度<1.0>: ")))
      (if (null d) (setq d 1.0 *d* d) (setq *d* d))
  )
  (while
    (and
  (setq p1 (getpoint "\n起点: "))
  (setq p2 (getpoint p1 "\n终点: "))
  (setq os (getvar 'osmode))
   )
  (setq p3 (polar p2 (+ (angle p2 p1) (* 0.5 pi)) d)
        p4 (polar p1 (+ (angle p2 p1) (* 0.5 pi)) d)
        )
  (setvar 'osmode 0)
  (apply 'vl-cmdf (list "_pline" p1 p2 p3 p4 "c"))
    (princ "\n**回车键结束**")
  (setvar 'osmode os)
    )
  (princ)
  )

xiaxiang

全局变量*d*的值是多少？这个没值的话程序不好运行啊

kwok

xiaxiang 发表于 2012-5-4 16:39
全局变量*d*的值是多少？这个没值的话程序不好运行啊

全局变量*d*的值最小是0,最大无限,
在这里这个d我想的是=宽度,可以随意输入,输入后再次运行命令时记住前面输过的.

xiaxiang

kwok 发表于 2012-5-4 16:44
全局变量*d*的值最小是0,最大无限,
在这里这个d我想的是=宽度,可以随意输入,输入后再次运行命令时记住前 ...

问题是首次运行时没有值？是不是在别的地方赋值？

tjuzkj

将(defun c:test(/ OS P1 P2 D P3 P4)
改成(defun c:test(/ OS P1 P2  P3 P4)

kwok

xiaxiang 发表于 2012-5-4 16:48
问题是首次运行时没有值？是不是在别的地方赋值？

这个d的值是在运行命令时输入的值,可以么,然后后面重复命令时记住它.

kwok

我想加个记忆,让它再执行命令时记忆住这个:(setq d (getdist  "\n矩形宽度: "))的值.

wowan1314

(defun c:t11 (/ OS P1 P2 P3 P4 D)
  (IF (NULL *d*) (setq *d* 1))
  (setq d (getdist (strcat "\n矩形宽度<" (rtos *d* 2 2) ">:")))
  (if (NULL d) (setq d *d*) (SETQ *D* D))

kwok

wowan1314 发表于 2012-5-4 17:20
(defun c:t11 (/ OS P1 P2 P3 P4 D)
  (IF (NULL *d*) (setq *d* 1))
  (setq d (getdist (strcat "\n矩形 ...

谢谢.
我想复杂了.

longer1000

wowan1314 发表于 2012-5-4 17:20
(defun c:t11 (/ OS P1 P2 P3 P4 D)
  (IF (NULL *d*) (setq *d* 1))
  (setq d (getdist (strcat "\n矩形 ...

高手，能看下这个怎么修改，能记忆上次图块名。http://bbs.mjtd.com/forum.php?mo ... mp;page=2#pid542152