如何实现在文字或标注前或后这些功能

120120

第一次输命令正常,第二次就不正常:

命令: dn ; 错误: 参数类型错误: fixnump: nil

数量 不能显示上次输入的.

ZZXXQQ

输错了一个字母。

(defun c:dn(/ xt xx)
  (setvar "cmdecho" 0)
  (setq xt1 (if xt1 xt1 0))
  (setq xt (getint (strcat "\n->请输入数量 <" (itoa xt1) ">:")))
  (setq xt (if xt xt xt1) xt1 xt)
  (if (<= xt 1)(setq xx (strcat "<>")))
  (if (> xt 1) (setq xx (strcat "" (rtos xt) "-<>")))
  (command "dim1" "n" XX)
  (princ "\n->请选取要修改的*文字*标注*或 <退出>:")
  (princ)
)

120120

  (setq xt1 (if xt1 xt1 0))

 (setq xt (if xt xt xt1) xt1 xt)

对比一下.看

ZZXXQQ

版主您加了两行上面的代码.能不能解释一下这两行代码的意思?

还有.能不能在修改完后提示多少对象被修改的提示?

ZZXXQQ

 (setq xt1 (if xt1 xt1 0)) ;如果xt1有值保持不变，否则赋零。

 (setq xt (if xt xt xt1) xt1 xt) ;如果xt有值保持不变，否则将xt1值赋给xt。再将xt值赋给xt1。

程序不能提示多少对象被修改。因为程序结束时dim1命令未执行完毕。

狂刀无痕

 (setq xt1 (if xt1 xt1 0)) ＝ (or xt1 (setq xt1 0))

120120

ZZXXQQ

请问.要怎样修改才可以让它显示多少个对象被修改这样的提示呢?

ZZXXQQ

(defun c:dn(/ xt xx)
  (setvar "cmdecho" 0)
  (setq xt1 (if xt1 xt1 0))
  (setq xt (getint (strcat "\n->请输入数量 <" (itoa xt1) ">:")))
  (setq xt (if xt xt xt1) xt1 xt)
  (if (<= xt 1)(setq xx (strcat "<>")))
  (if (> xt 1) (setq xx (strcat "" (rtos xt) "-<>")))
  (princ "\n->请选取要修改的*文字*标注*或 <退出>:")
  (IF (setq ss (ssget '((0 . "DIMENSION"))))
   (command "dim1" "n" XX SS "")
  )
  (PRINC (SSLENGTH SS)) (PRINC "个对象被修改。")
  (princ)
)

120120

能不能讲讲您后面加的函数意思?

ZZXXQQ

(defun c:dn(/ xt xx)
  (setvar "cmdecho" 0)
  (setq xt1 (if xt1 xt1 0))
  (setq xt (getint (strcat "\n->请输入数量 <" (itoa xt1) ">:")))
  (setq xt (if xt xt xt1) xt1 xt)
  (if (<= xt 1)(setq xx (strcat "<>")))
  (if (> xt 1) (setq xx (strcat "" (rtos xt) "-<>")))
  (princ "\n->请选取要修改的*文字*标注*或 <退出>:")
  (IF (setq ss (ssget '((0 . "DIMENSION")))) (progn ;用户选择尺寸，如果未选择，平静退出。
   (command "dim1" "n" XX SS "")                           ;调用命令更改尺寸
   (PRINC (SSLENGTH SS)) (PRINC "个对象被修改。")  ;输出选择集的个数，即被修改的个数。
  ))
  (princ)
)

功夫佬

讲得很详细，解决了我刚才的程序记录输入问题！！