[讨论]如何把总和是改为程序直接在图上标出数量?

zfsaaa · 发表于 2010-6-15 15:23:00

请大家帮忙,如何把原程序只在CAD提示框提示总和是,改为程序直接在图上标出数量,谢谢

(setq sum(rtos vol 2 3))
(princ "你选中")(princ n)(princ "个")
(princ "\n总和是")(princ sum)

ZZXXQQ · 发表于 2010-6-15 16:33:00

(setq sum(rtos vol 2 3))
(princ "你选中")(princ n)(princ "个")
; (princ "\n总和是")(princ sum)

(command ".TEXT" PAUSE "" "" (strcat "\n总和是" (itoa sum)))

zfsaaa · 发表于 2010-6-15 18:18:00

版主换你的4行后提示如下.是为何?

输入文字: ; 错误: 参数类型错误: fixnump: "11.550" 其中 11.550是数量总和

ZZXXQQ · 发表于 2010-6-15 19:10:00

因未看数量总和是什么类型，所以……

第四行改成(command ".TEXT" PAUSE "" "" (strcat "\n总和是" sum))试试

zfsaaa · 发表于 2010-6-15 22:31:00

本帖最后由作者于 2010-6-16 14:49:27 编辑

谢谢！可以用了,但发现新问题,标注字体太小(具体如下:当前文字样式: STANDARD 当前文字高度: 0),有办发改变注字大小?

zfsaaa · 发表于 2010-6-16 19:24:00

请各位帮我看看,在哪能加上字体,及字高选项?

masterlong · 发表于 2010-6-16 20:02:00

第4行前加(command "style" 。。。)

具体选项根据你的需要设定

zfsaaa · 发表于 2010-6-17 08:36:00

这样好像不行:

(command "style" 。。。)
(command ".TEXT" PAUSE "" "" (strcat "\n总和是" sum))

zfsaaa · 发表于 2010-6-17 08:42:00

这样好像也不行:

(princ "\n总和是")(princ sum)
(command "style" ".TEXT" PAUSE "" "" (strcat "\n总和是" sum))

命令: KK
选择对象: 找到 1 个
选择对象: 找到 1 个，总计 2 个
选择对象: 找到 1 个，总计 3 个
选择对象: 你选中3个
总和是20.210 指定文字高度 <600>: 700
请回答“是”或“否”。
; 错误: 函数被取消
是否反向显示文字？[是(Y)/否(N)] <N>: m
请回答“是”或“否”。
是否反向显示文字？[是(Y)/否(N)] <N>: n 是否颠倒显示文字？[是(Y)/否(N)] <N>: n
是否垂直? <N> n
“.TEXT”是当前文字样式。 无法标出文字20.210

ghl_729 · 发表于 2010-6-17 14:17:00

(command "text" "s" "stander" pt "字体高度" 0 要标注的内容）

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

[基础] [讨论]如何把总和是改为程序直接在图上标出数量?