2013-06-16 明经 AutoLISP 编程(102918348) 群聊记录：x的n次方怎么表示呢？

明经快报

[不死猫][nonsmall]不死猫 17:56:49

错误: 未知的开放模式: "CrSeLjJl29"
头回见到这样的错误

[ZZXXQQ] 17:58:25

玩啥玩成这样了？

[不死猫][nonsmall]不死猫 17:59:19

好像是 (eval (read "函数名"))

((eval (read "函数名")) 参数 参数)

[ZZXXQQ] 18:01:47

应该是：
(eval (read (strcat "(" "函数名" " 参数 参数)")))

[不死猫][nonsmall]不死猫 18:06:29

命令: ((eval (read "print")) 123)
123 123

一般都能跑

[ZZXXQQ] 18:09:42

总觉得不太规范

[不死猫][nonsmall]不死猫 18:10:43

 为了安全

[不死猫][nonsmall]不死猫 18:14:29

(foreach (read "a") (list 1 2 3) (print a))

本来 read 得到的是符号  但是有些函数是不认可的

[【KAIXIN】] [【KAIXIN】]炫翔 18:15:16

这个我有体会

[【KAIXIN】] [【KAIXIN】]炫翔 18:15:50

一般情况我会避开它

明经快报

[zark]虚心请教 20:53:01

复印黑人身份证，请用高档复印机[qqimg]oldimg/{AB3B6CA0-B5DE-A220-0D4B-D5179E2B857D}.jpg[/qqimg]

明经快报

[linshiyin2]大地 21:19:13

lisp如何搞到excel的表格，比如excel表格贴到cad里，同时判断表格里有啥

[zark]虚心请教 21:20:33

简单点，可以将EXCEL表格保存成CSV格式，此格式跟TXT的读取、写入方式相同

[linshiyin2]大地 21:20:53

这个是可以做到的

[linshiyin2]大地 21:21:48

我想是这样，既可以吧excel中的表搞到cad里，同时根据cad表格中的内容绘制横道图（甘特图）

[tiyi8888]永远痛 21:26:49

这个是可以做到的
我想是这样，既可以吧excel中的表搞到cad里，同时根据cad表格中的内容绘制横道图（甘特图）

这个复杂的

有谁可以做呢

[linshiyin2]大地 21:28:16

因为排计划、计算还是用excel方便，但是绘图就不如cad了，两者结合一下就好了

[linshiyin2]大地 21:29:01

就有了把cad的表，贴到cad中，同时根据表中的数据来绘制线的长短和位置

[linshiyin2]大地 21:32:41

[qqimg]oldimg/{02D3B1F8-C341-3948-CDC8-ECD3DC5E0880}.jpg[/qqimg]

[linshiyin2]大地 21:34:14

[qqimg]oldimg/{A19033A3-3A77-65A1-FAF2-5CB1754303BC}.jpg[/qqimg]

[ZZXXQQ] 21:34:56

工作进度，有专门的软件干这个

[ntyks]闲人一个 21:38:26

如何用LSP加载ocx

[linshiyin2]大地 21:41:09

project，但是和我的要求不大一样

还有不少这种绘制甘特图的软件，都不能满足我的要求

[linshiyin2]大地 21:44:37

[qqimg]oldimg/{2ED9F6A8-3366-75CD-1F63-F005318FB3AF}.jpg[/qqimg]

[linshiyin2]大地 21:45:41

兄台说的有理啊，好像有思路了，我在excel里设计好后保存为csv，然后用lisp读取，根据内容绘制

[linshiyin2]大地 21:47:03

有点麻烦的就是csv里面修改设计不方便，csv只能当成一个中间交换数据

明经快报

[linshiyin2]大地 22:00:21

基于此考虑，我觉得在excel里选中或者选中复制后在内存中一定也有个表，lisp能否读取此表

[linshiyin2]大地 22:00:54

如果能读取内存总粘贴板中的表的话，就能不必转成csv了

明经快报

[425852280]-影子 22:20:55

为什么程序的调用命令中的括号不用成对         比如（DEFUN C:TT()

[alwtyp][alwtyp] 22:21:30

结尾还有一个）

[ZZXXQQ] 22:21:32

这是定义，也要成对的

[linshiyin2]大地 22:21:53

lisp就是成对的括号

[425852280]-影子 22:22:00

不用也是可以用····不知道为什么

[alwtyp][alwtyp] 22:22:15

不可能

[linshiyin2]大地 22:22:18

c语言是大括号吧也是成对的

不可能

[425852280]-影子 22:22:31

我看过网上的源代码是这样de

[ZZXXQQ] 22:22:57

那个要与最后的右括弧成对

[425852280]-影子 22:23:06

(defun c:7test2()
;以下 pa、ww、hh、n 值须由使用者输入
(setq pa (getpoint "请求输入左下角点: "))
(setq ww (getdist pa " 请求输入楼梯宽度: "))
(setq hh (getdist pa " 请求输入楼梯高度: "))
(setq n (getint " 请求输入楼梯阶数: "))
;先画出 pa à pb à pc
(setq pb (polar pa 0 ww))
(setq pc (polar pb (/ pi 2) hh))
(command "line" pa pb pc "")
;请留意以下三行dw、dh、pp值须由程序依据ww、hh 与 n求出
(setq dw (/ ww n))
(setq dh (/ hh n))
(setq pp pa)                
;以下准备进入repeat循环了
(repeat n
(setq p1 (polar pp (/ pi 2) dh))
(setq p2 (polar p1 0 dw))
(command "line" pp p1 p2 "")
(setq pp p2)
)
(prin1)
)
(prompt “  >快速自动楼梯绘制程式”)
(prin1)

[linshiyin2]大地 22:23:10

可能复制的时候落下了，论坛里经常有这样的程序，需要不全括号才行

[425852280]-影子 22:23:23

这条程序的调用命令就没有

[linshiyin2]大地 22:23:39

都有的，这个不必争论

[425852280]-影子 22:23:40

照样可以用额

[ZZXXQQ] 22:24:11

有的，在prompt之前

[alwtyp][alwtyp] 22:24:12

这个程序是完整的

[linshiyin2]大地 22:24:26

最简单的方法是，你复制的编辑器里，双击单面括号，与之配对的括号就自己选中了

[425852280]-影子 22:24:52

单引号的作用是什么  我菜鸟刚学LISP  看过没找到···

[linshiyin2]大地 22:25:28

引号也是成对的，字符串用引号

[425852280]-影子 22:26:08

单引号  不是双引号

[ZZXXQQ] 22:26:23

是函数QUOTE的缩写

[425852280]-影子 22:26:52

这个’

[alwtyp][alwtyp] 22:27:06

[qqimg]oldimg/{D4F43414-BD1B-0D94-0292-E1E1FBDBBED8}.jpg[/qqimg]

[ZZXXQQ] 22:27:09

[ZZXXQQ](1468225785)  22:26:09
是函数QUOTE的缩写

[425852280]-影子 22:28:04

明白了

[425852280]-影子 22:29:14

还有就是没有用DEFUN开头的怎么查找它的调用命令

[alwtyp][alwtyp] 22:29:46

不明白，举个实例

[linshiyin2]大地 22:31:06

QUOTE的缩写，正解

[425852280]-影子 22:31:56

比如像一些后缀名为*.DCL的程序就没有赢DEFUN开头

[ZZXXQQ] 22:32:14

那是对话框

[alwtyp][alwtyp] 22:32:17

那是对话框文件，

也要LSP调用的

[425852280]-影子 22:32:30

哦哦

[OWEN7]ya雀无声 22:32:36

[qqimg]oldimg/{28D256C9-8AD3-6B3F-9F01-D985FA9845A0}.jpg[/qqimg]

[425852280]-影子 22:33:02

了解了

[linshiyin2]大地 22:33:39

没有用DEFUN开头？那不是程序

[425852280]-影子 22:34:06

恩 明白一点了

[ZZXXQQ] 22:34:15

那是对话框程序

[OWEN7]ya雀无声 22:35:35

[qqimg]oldimg/{EA2C8431-CD8B-0EE8-9B1D-05CAEA2384C6}.gif[/qqimg]

[425852280]-影子 22:36:12

谢谢各位指教

[425852280]-影子 22:37:34

这动态图是怎么录制的？

[linshiyin2]大地 22:38:02

ggg

[425852280]-影子 22:38:34

GGG是什么

[OWEN7]ya雀无声 22:38:38

初步完成，改天加给你个

功能

改天加功能

[425852280]-影子 22:38:53

恩 好的

明经快报

Yakamoz 23:00:25

(setq a (strcat "A" " " "B"))

(setq a (strcat "A"   "B"))

为什么这两个都不对

回车应怎么加呢

[ZZXXQQ] 23:01:18

要加在哪？

Yakamoz 23:01:27

A和B间

得到
A
B

[ZZXXQQ] 23:01:53

(setq a "A B")

Yakamoz 23:02:21

要是A和B是变量呢

不是单纯了字符串

是字符串变量

[ZZXXQQ] 23:03:25

什么内容？

Yakamoz 23:03:41

比如A=a
B=b

反正就是代表字符串的

[ZZXXQQ] 23:04:45

那你写的头一行就行

Yakamoz 23:04:57

不行啊

[ZZXXQQ] 23:05:13

只不过要将A和B的引号去掉

Yakamoz 23:05:36

哦。我明白了

明经快报

[425852280]-影子 23:29:04

(defun c:pbox()
(setq pa (getpoint "输入左下角点："))
(setq ww (getreal "宽度h:"))
(setq hh (getreal "高度："))
(setq pb (polar pa 0 ww))
(setq pc (polar pb(/ pi 2) hh))
(setq pd (polar pc pi ww))
(command "pline" pa pb pc pd "c")
(setq mp1 (polar pa 0 (/ ww 2)))
(setq mp2 (polar pb (/ pi 2) (/ hh 2)))
(setq mp3 (polar pd 0 (/ ww 2)))
(setq mp4 (polar pa (/ pi 2) (/ hh 2)))
(command "line" mp1 mp3 "")
(command "line" mp2 mp4 "")

请给位帮忙看下这条程序的错误

[425852280]-影子 23:30:23

加载后提示列表有缺陷

[ttthhh_hb] 23:32:25

在最后面加个）

[425852280]-影子 23:33:23

(command "line" mp2 mp4 "")在这一句加？

[ttthhh_hb] 23:34:02

是的

换行加也可以

[425852280]-影子 23:34:16

为什么？

这个）的作用是什么

[ttthhh_hb] 23:35:23

与最前面的（配对

[425852280]-影子 23:35:34

哦 明白了

[ttthhh_hb] 23:36:50

先看看书吧

[425852280]-影子 23:37:08

一边看  一边对着写···

Yakamoz 23:37:58

A " " B " " C写到Cad里得到的竟然是
A
 B
  C
的结构

而不是
A
B
C
结构

这是怎么个情况