[LISP函数]：请教简单问题

zenghonglove · 发表于 2006-12-1 14:41:49

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

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

×

;;;文字输入
(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　

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

phoenixdjq · 发表于 2006-12-1 16:30:10

直接用这个赋值就行

(setq v1 "名称：冲头")

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

szmax · 发表于 2006-12-1 16:44:41

还要自己计算下排文字插入点

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

[LISP函数]：请教简单问题

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子