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

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

本帖最后由作者于 2004-10-13 17:07:19 编辑

程序如下： (defun c:js()
(setq pt1 (list 0 0))
(setq a1 123456789)
(command "text" pt1 "5" "0" a1 "")
) 目的主要是：实现123456789在PT1处写出。当然了(setq a1 123456789)是其它运算程序的最后结果。非常能够得到各位的指点，先谢了！！

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

补充说明：

123456789为整数

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

changch发表于2004-10-13 15:01:00回复：（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))
(setq a1 123456789)
(command "text" pt1 "5" "0" (vl-pinr1-to-string a1) "")
)

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")

账号		自动登录	找回密码
密码			注册