[求助]：如何在使用TEXT命令时写出字符！！

dicad_pro · 发表于 2006-2-27 20:53:59

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

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

×

如：p是前面赋的字符，比方说(setq p ld)
(command "-text" p18 1 0 p)；为什么不能写出前面赋的字符？请高手解答下谢谢了

xyz518mm · 发表于 2006-2-28 07:02:33

不知道您是不是要这样呢?

(setq str "本文资料")
(COMMAND "style" "细明体" "细明体" "300" "1" "0" "" "")
(setq pt1 (getpoint "\n\t放置点 : "))
(command "text" "j" "mc" pt1 "0" str)
结果:
"本文资料"
nil
(-2287.57 -317.136 0.0)
nil

dicad_pro · 发表于 2006-2-28 10:04:50

大致上是这么回事，可我的程序里有循环，在读取文本文件中P要根据文本内容赋给不同的字符，可“TEXT”怎么就不写出来那，数字没问题可以写，字符就不知道怎么回事了？

ljpnb · 发表于 2006-2-28 10:27:21

(setq p ld)这句的ld也是一个变量喽，它是如何符值的。

liuxb123 · 发表于 2006-2-28 10:29:48

是不是你的字体样式设置的不对，出来的字符是乱码？

dicad_pro · 发表于 2006-2-28 10:32:05

是这样的， (setq p (read dpt))。不是乱码，就是出不来，老要我重新输入输

ljpnb · 发表于 2006-2-28 10:50:20

(setq p (read dpt))这句一定有问题，不知道dpt是什么，需要用read来处理

dicad_pro · 发表于 2006-2-28 10:57:19

(defun C:dw (/ dfn dpt p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 x y g)
  (setq blio (getvar "blipmode"))
  (setq cmdo (getvar "cmdecho"))
  (setvar "blipmode" 0)
  (setvar "cmdecho" 0)

  (setq dfn (getfiled "读取文本" "D:/1.txt" "txt" 8)
      dfn (open dfn "r"))
(while
   (setq dpt (read-line dfn))
   (setq p (read dpt))
   (command "-text" p18 1 0 p)
P18是插入点坐标，帮忙看看

ljpnb · 发表于 2006-2-28 11:10:43

1.txt文件内容是怎么样的？

dicad_pro · 发表于 2006-2-28 11:34:33

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

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

×

你究竟懂不懂？

ljpnb · 发表于 2006-2-28 11:59:01

你怎么会这么说话的！那我告诉你，执行这句(command "-text" p18 1 0 p)前，P的值应该是字符型，如"公差"、"AA"等，不是这个类型，“TEXT”是出不来的，问题你自己解决吧。。。。。。

雨箭风刀 · 发表于 2006-2-28 12:07:00

用read读出来就不是字符类型了

ljpnb · 发表于 2006-2-28 12:12:46

最初由雨箭风刀发布
[B]用read读出来就不是字符类型了 [/B]

那也不是绝对，如下：
(setq a "\"aaa\"")
(setq b (read a))
(command "text" pause "" "" b)

dicad_pro · 发表于 2006-2-28 13:51:08

谢谢了，刚才说错话了，对不起。

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

[求助] [求助]：如何在使用TEXT命令时写出字符！！

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

相关帖子

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

相关帖子