[LISP]请教

zenghong

;;;文字输入
(defun c:wz ()
(setq v1 (strcat "名称:" "冲头"))
(setq v2 (strcat "材质:" "DC53"))
(setq v3 (strcat "高度:" "25.0"))
(setq v4 "割一修一")
(print "指定插入点")
(setq j8(getpoint)) 
(command "_.text" "_S" "standard" j8 "5" "0" v1 )
  )

;;;;;简单的问题请教一下，

;;;;;名称：冲头

;;;;;材质：DC53

;;;;;高度：25.0　

;;;;;要这样写出文字怎样搞（？？？）

zhihaomeng

是要直接写到CAD里吗？

blackwhite

学LISP已经很多年了，以后就一直没用。

看程序“(print "指定插入点")
(setq j8(getpoint))  ”

这两句感觉有问题，应该是在“指定插入点”的时候要求输入点，然后去的点的坐标作为文字插入点，应该可以用一句话实现的，具体是怎么样就不记得了。不要拍砖啊。