tjzcj 发表于 2004-1-4 20:27:00

大家给看看，程序执行完，命令行有多余的话

程序执行完，命令行有“未知命令“SUM”。按 F1 查看帮助。“如何去掉？？
(defun c:sum ()
(setvar "cmdecho" 0)
(setq selct (ssget '((0 . "text"))))
(setq        n 0
        sum1 0
)
(repeat (sslength selct)
    (setq en (ssname selct n))
    (setq endata (entget en))
    (setq entxt (cdr (assoc 1 endata)))
    (setq entxt (atof entxt))
    (setq sum1 (+ sum1 entxt))
    (setq n (+ n 1))
)
(setq pt (getpoint "\n输入文字插入点:"))
(command "text" "j" "c" pt "4" "" (rtos sum1 2 1) "")
(prin1)
)

lockmyeye 发表于 2004-1-5 00:44:00

在
　　(command "text" "j" "c" pt "4" "" (rtos sum1 2 1) "")
最后的""是多余的。

建议用entmake生成注记，命令text的参数受当前样式的影响，不尽相同。

tjzcj 发表于 2004-1-5 08:56:00

多谢指点，十分感谢！！！
页: [1]
查看完整版本: 大家给看看，程序执行完，命令行有多余的话