[求助][1124]怎样使用alert 显示文字档?

xyz518mm · 发表于 2005-11-24 18:38:15

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

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

×

[求助][1124]怎样使用alert 显示文字档?
如果要使用alert 显示文字档内容该怎样做呢?
我目前写的程序

(defun c:ts01 ()
(setq FF (open "c:/TS.txt" "r"))
(setq DATA (read-line FF))
(alert (write-line DATA f) )
)
::::::::::::::::::::::::::::::::::::
TS.txt内容如下:
ABCDE abcde
文字档
12345 2*2=4

烦请各位高手解答一下
谢谢

aliu22 · 发表于 2005-11-24 19:14:23

(defun c:as1()
(alert (strcat
ABCDE abcde
文字档
12345 2*2=4

)))

xyz518mm · 发表于 2005-11-24 19:26:48

aliu22 我想要的结果是连结一个文字档
并将其内容显示出来
这样可以完成吗?

qjcpj · 发表于 2005-11-25 08:12:44

;;;EXAMPLE:
(setq rz "THICK")
(alert(strcat "\n 所选\""rz"\"被锁定，须用\"Layer\"命令解锁！"))

tctabc · 发表于 2005-11-25 14:25:59

最初由 qjcpj 发布
[B];;;EXAMPLE:
(setq rz "THICK")
(alert(strcat "\n 所选\""rz"\"被锁定，须用\"Layer\"命令解锁！")) [/B]

楼主这样的回答
好像还是不能解决将文字档内容显示的问题喔!
还是小弟愚笨
可以在详解一下吗
谢谢

aeo · 发表于 2005-11-25 22:39:34

alert 后面要跟文字
把其他格式的转成文字就可以了

(defun c:ts01 ()
(setq FF (open "c:/TS.txt" "r"))
(setq DATA (read-line FF))
(alert data)
)

tctabc · 发表于 2005-11-28 18:12:49

那如果文件是多行那该怎么办呢?

狂刀 · 发表于 2005-11-28 19:00:59

(defun c:ts01 ()
(setq FF (open "c:/TS.txt" "r")
　　data "")
(WHILE (SETQ A (read-line FF) )
(setq DATA(STRCAT data A "\n"))
)
(alert DATA )
)

xyp1964 · 发表于 2005-11-28 23:33:13

加换行符“\n”，一个实例：

[FONT=courier new](Alert
"最远视距: \n\n歌舞剧场不宜大于33m；\n话剧和戏曲剧场不宜大于28m；\n伸出式、岛式舞台剧场不宜大于20m!"
)[/FONT]

复制代码

xyz518mm · 发表于 2005-11-28 23:46:19

感谢狂刀兄的解答
又学到了不少

xyp1964 · 发表于 2005-11-29 00:57:35

杀手锏武器－－CAD雷达：

[FONT=courier new](defun c:test ()
(alert"\n发现敌情!!!\n\n请启动最新装备－－CAD雷达!!!")
(command "zoom" '(-1000 -1000) '(1000 1000))
(setq i 0
m -2
n 10
ss (ssadd)
)
(while (< i 255)
(setq j 0)
(while (< j 255)
(setq k 0)
(while (< k 255)
(setq
co (strcat (rtos i 2 0) "," (rtos j 2 0) "," (rtos k 2 0))
)
(command "color" "t" co)
(setq m (+ 1 m))
(command "line"
'(0 0)
(polar '(0 0) (ang2rad m) 1000)
""
)
(setq ss (ssadd (entlast) ss))
(if (>= m 360)
(progn
(command"delay" 200)
(command "erase" ss "")
(setq m -2 ss (ssadd))
)
)
(setq k (+ k n))
)
(setq j (+ j n))
)
(setq i (+ i n))
)
(command "erase" ss "")
(alert"\n未发现敌情，解除警报!\n\n借泥骂骗人!!\n\n还得继续画图!!!")
(princ)
)
(defun ang2rad (ang) (* (/ ang 180.0) pi))[/FONT]

[FONT=courier new](defun c:test () 
  (alert"\n发现敌情!!!\n\n请启动最新装备－－CAD雷达!!!") 
  (command "zoom" '(-1000 -1000) '(1000 1000)) 
  (setq        i  0 
        m  -2 
        n  10 
        ss (ssadd) 
  ) 
  (while (
    (setq j 0) 
    (while (< j 255) 
      (setq k 0) 
      (while (< k 255) 
        (setq 
          co (strcat (rtos i 2 0) "," (rtos j 2 0) "," (rtos k 2 0)) 
        ) 
        (command "color" "t" co) 
        (setq m (+ 1 m)) 
        (command "line" 
                 '(0 0) 
                 (polar '(0 0) (ang2rad m) 1000) 
                 "" 
        ) 
        (setq ss (ssadd (entlast) ss)) 
        (if (>= m 360) 
          (progn             
            (command"delay" 200) 
            (command "erase" ss "") 
            (setq m -2 ss (ssadd)) 
          ) 
        ) 
        (setq k (+ k n)) 
      ) 
      (setq j (+ j n)) 
    ) 
    (setq i (+ i n)) 
  ) 
  (command "erase" ss "") 
  (alert"\n未发现敌情，解除警报!\n\n借泥骂骗人!!\n\n还得继续画图!!!") 
  (princ) 
) 
(defun ang2rad (ang) (* (/ ang 180.0) pi))[/FONT]

xyz518mm · 发表于 2005-11-29 06:30:41

xyp1964版主您给的程序
是做荧幕动画的吗?因为不知道用途
可以烦请版主能够解说一下吗
谢谢

xyp1964 · 发表于 2005-11-29 07:50:27

荧幕动画兼alert实例。

jx2008 · 发表于 2006-12-4 23:54:25

xyp1964精品，狂刀一针见血

zxmmelly · 发表于 2006-12-5 00:46:46

斑竹的雷达做的不错，如果能把扫描线做成逐渐变暗到消失就更像真的雷达了

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

[求助] [求助][1124]怎样使用alert 显示文字档?

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

相关帖子