[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　

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

ZZXXQQ

......

(COMMAND "_.TEXT" "_S" "STANDARD" J8 "5" "0" V1)

(COMMAND "_.TEXT" "" V2 "_.TEXT" "" V3 "_.TEXT" "" V4)

......

phoenixdjq

直接用这个赋值就行

(setq v1 "名称：冲头")

还有，你要在设置的字体时，把字高那项设为固定值，要不你就要在程序的命令中，设置一下字高。

tcsl9621

同意楼上的。

zenghong

谢谢各位了

              此致

                                                            敬礼！