changch 发表于 2004-10-13 15:01:00

[求助]请帮忙看一看我的这个LISP小程序，先谢！！已解决

本帖最后由 作者 于 2004-10-13 17:07:19 编辑 <br /><br /> 程序如下：



(defun c:js()<BR>(setq pt1 (list 0 0))<BR>(setq a1 123456789)<BR>(command "text"       pt1 "5" "0" a1 "")<BR>)


目的主要是：


实现123456789在PT1处写出。


当然了(setq a1 123456789)是其它运算程序的最后结果。


非常能够得到各位的指点，先谢了！！<BR>

changch 发表于 2004-10-13 15:14:00

补充说明：


123456789为整数

前生 发表于 2004-10-13 15:21:00

changch发表于2004-10-13 15:01:00static/image/common/back.gif回复：（changch）请帮忙看一看我的这个LISP小程序，先谢！！程序如下： (defun c:js()(setq pt1 (list 0 0))(setq a1 123456789)(command \"text\"   pt1 \"5\" \"0\" a1 \"\"))目的(command "text"   pt1 "5" "0"(vl-pinr1-to-string a1) "")

changch 发表于 2004-10-13 16:29:00

谢谢版主


是不是我的版本(AutoCAD2002有什么问题）


这是出错


Enter text: ;错误: no function definition: VL-PINR1-TO-STRING


下面是我按你提供的改的：


(defun c:js()


(setq pt1 (list 0 0))<BR>(setq a1 123456789)<BR>(command "text"       pt1 "5" "0" (vl-pinr1-to-string a1) "")<BR>)

changch 发表于 2004-10-13 16:49:00

已经解决了


vl-prin1-to-string

changch 发表于 2004-10-13 16:52:00

我说呀，咱们这版块解决问题最快了！！！

wwwbxd 发表于 2008-12-28 15:17:00

(setq a1 "123456789")
页: [1]
查看完整版本: [求助]请帮忙看一看我的这个LISP小程序，先谢！！已解决