[求助]：写入文本为何错误

zhanzujie · 发表于 2005-7-16 11:30:55

您需要登录才可以下载或查看，没有账号？立即注册

×

下面一段代码写入文字，怎么不行，出了什么问题？
(setq ptt (getpoint)
ypt "50")
(vl-cmdf "dtext" ptt 3 0 ypt "" "")

xyp1964 · 发表于 2005-7-16 11:45:51

[php](defun c:test ()
  (setq ptt (getpoint"\n位置点 : ")
ypt "50"
  )
  (vl-cmdf "text" "j""mc"ptt 3 0 ypt)
  (princ)
)[/php]

zhanzujie · 发表于 2005-7-16 17:18:33

谢谢斑竹xyp1964!

tjtghtghtgh · 发表于 2005-7-16 21:59:15

请教二楼版主，DTEXT是不是不可以用在LISP中？

zhynt · 发表于 2005-7-18 01:58:38

答案是可以的，只不过用法不一样而已：
(command "dtext" pause pause pause)

其实说白了，还是和命令行一样，呵呵

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

[求助] [求助]：写入文本为何错误