皇上快溜 发表于 2016-7-1 22:23:36

waterchen 发表于 2016-7-1 10:37 static/image/common/back.gif
已增加写至txt文件，路径可以在lisp改你想要的。

不好意思，老大，我表达失误。
我是想让写TEXT文本写在图形上，不是输出为 .txt文件，麻烦你帮我改改好么

另外这一段我想这样搞，没成功不知道为什么
(setq uniprs (getreal "价格:<0.03>"))
(if (= uniprs nil) (setq uniprs 0.03))

(setq thick (getreal "厚度:<25>"))
(if (= thick nil) (setq thick 25))

(setq minprs (getreal "每孔的最低价格:<8>"))
(if (= minprs nil) (setq minprs 8))

皇上快溜 发表于 2016-7-3 15:15:44

想用这个程序中的(COMMAND "TEXT" PP1 h 0 "工程图")把一楼那个程序的计算结果连接起来，谁可以教教我，怎么改？

(DEFUN C:QM()
(setq pp1 (getpoint "\n起始点:"))
(setq clay (getvar "clayer"))
(SETQ DS (GETVAR "DIMSCALE"))
(setq h (* (getvar "DIMSCALE")(getvar "DIMTXT")))
(command "layer" "s" "DIM" "")
(COMMAND "TEXT" PP1 h 0 "工程图")
(command "layer" "S" CLAY""))


另外，一楼那个程序中的输入部分
(SETQ UNIPRS (getreal "价格:"))
(SETQ THICK (getreal "厚度:"))
想分别给它们设个默认数值，也不知道怎么弄

皇上快溜 发表于 2016-7-9 16:18:40

这个程序错在哪里？
想将程序原版的"每孔的最低价格"的加法计算想不要了.
改为一个乘法计算.乘以一个1.05的"倍率".
程序失败
页: 1 [2]
查看完整版本: 错误: 参数类型错误: numberp: nil