2013-08-28 明经 AutoLISP 编程(102918348) 群聊记录：网上有字库啊，有的几个g，太大，cad加载是不是会拖累机器啊

明经快报

08:08:21

网上有字库啊，有的几个g，太大，cad加载是不是会拖累机器啊

08:08:21

或者你再看一个公司

明白了，原来这就叫“迭代法”

只有一个变量B

08:08:22

请问谁有字体库大全

明经快报

[AMKYUD][AMKYUD]??? 09:11:17

修剪很麻烦的，没有那么简单

[AMKYUD][AMKYUD]??? 09:20:14

[pzweng]路人(20787433) 16:53:39 
(command "trim" (ssget) "" (entsel) "")

[AMKYUD][AMKYUD]??? 09:20:54

cie0588](88131839) 16:55:47 
[qqimg]201308/{203366E8-BBFB-579E-BF20-38EF67CC202E}.jpg[/qqimg]
[cie0588](88131839) 16:55:54 
(command "trim" en1 en2 "" (list en2 pt) "")

[pzweng]路人(20787433) 16:58:51 
(setq ss1 (ssget))
(setq en (entsel))
(command "trim" ss1 "" en "")

明经快报

[gongsiyi123][gongsiyi123]龙龙 10:28:37

请教一个问题~~
我用lisp和dcl编的程序，然后手动在CAD设置里添加了自定义菜单
可是我把程序给别人时，怎样自动帮他生成自定义菜单呢？

[【KAIXIN】] [【KAIXIN】]炫翔 10:29:12

论坛有写菜单的

[gongsiyi123][gongsiyi123]龙龙 10:29:27

好的，我去找一下

[gongsiyi123][gongsiyi123]龙龙 10:30:42

[qqimg]201308/{6F62BA81-95B7-2431-017A-B029E9EF7245}.jpg[/qqimg]
就是这种顶部菜单栏

[【KAIXIN】] [【KAIXIN】]炫翔 10:34:25

嗯

[gongsiyi123][gongsiyi123]龙龙 10:34:34

[【KAIXIN】] [【KAIXIN】]炫翔 10:34:37

可以参考开金工具箱2011

源码

[gongsiyi123][gongsiyi123]龙龙 10:34:47

好的！

[gongsiyi123][gongsiyi123]龙龙 10:36:45

[【KAIXIN】]炫翔
大神啊

膜拜

[【KAIXIN】] [【KAIXIN】]炫翔 10:38:40

说明下 我就是开金工具箱的作者

并非大神

[雨的节奏][雨的节奏] 10:38:56

[qqimg]201308/{DD8B1F0F-5405-3EA1-F6CF-0E3C0362AA43}.GIF[/qqimg]

[gongsiyi123][gongsiyi123]龙龙 10:39:13

看出来了
你就是
真！
大！
神！

[雨的节奏][雨的节奏] 10:39:28

[qqimg]201308/{920C4B10-289E-DA16-F22B-5C2A36D83340}.GIF[/qqimg]

[caoyin][caoyin] 10:40:18

有个叫龙龙仔的，那个叫真大神

[雨的节奏][雨的节奏] 10:40:36

[qqimg]201308/{5D3AFAB6-50FF-D345-4F00-8BA2F914DDB1}.gif[/qqimg]

[gongsiyi123][gongsiyi123]龙龙 10:40:50

看来我跟大神有缘

[雨的节奏][雨的节奏] 10:40:51

现在搞得没啥追求了

[vormittag]桔子 10:41:41

这世界哪有那么多神。

[caoyin][caoyin] 10:41:52

[vormittag]桔子 10:41:54

我是一个强无神论者。

[雨的节奏][雨的节奏] 10:41:56

[qqimg]201308/{920C4B10-289E-DA16-F22B-5C2A36D83340}.GIF[/qqimg]你也可以成为神

世上本没有神 信的人多了 便出了神

[【KAIXIN】] [【KAIXIN】]炫翔 10:42:30

真正的大神 已经不玩LISP了

我等都是后出之辈

[gongsiyi123][gongsiyi123]龙龙 10:43:01

那玩什么

[VBALISPER]恐龙 10:43:10

成不了大神,也可以修炼成其它的神

[雨的节奏][雨的节奏] 10:43:22

我有时候感觉自己也很神

[caoyin][caoyin] 10:45:19

混久了就油了，成不了神就去修炼SY吧

[pzweng][pzweng]路人 10:47:18

[qqimg]201308/{4EED6ADF-D8B0-C1A3-2716-BF0CBBC53253}.gif[/qqimg]

[caoyin][caoyin] 10:49:25

[qqimg]201308/{58AAA2E0-EE0F-594B-28F1-9F107EE48B77}.jpg[/qqimg]

[gongsiyi123][gongsiyi123]龙龙 10:49:49

话说大家都是从事哪个行业的啊？

[yyzhan12][yyzhan12]风雨... 10:50:29

成了神可不是什么好事，那是要上天堂的

[tiyi8888]永远D痛 10:51:08

市政工程

景观工程

[gongsiyi123][gongsiyi123]龙龙 10:51:34

我是地质

[tiyi8888]永远D痛 10:51:40

我学的地质

现在不做了

地质很好吧

[gongsiyi123][gongsiyi123]龙龙 10:51:51

咋不做了呢

[tiyi8888]永远D痛 10:51:53

我是西安地质学院的

学校出来就不做

没有分配

累

[gongsiyi123][gongsiyi123]龙龙 10:52:05

额

[tiyi8888]永远D痛 10:52:06

你呢

[gongsiyi123][gongsiyi123]龙龙 10:52:24

我是中国地质大学（武汉）毕业，现在在一个水利单位

[tiyi8888]永远D痛 10:52:43

现在水利单位可以的

我想考水利建造师呢

挂靠就是十万一年

[gongsiyi123][gongsiyi123]龙龙 10:53:11

要看单位让不让挂出去了

[pzweng][pzweng]路人 10:58:42

你们怎么都有这样的思想呢

[tiyi8888]永远D痛 11:00:03

思想不好吗

[tiyi8888]永远D痛 11:00:49

社会所迫

人家有房，你没有房，如何办

[pzweng][pzweng]路人 11:02:17

看别人的房乍来的？

[tiyi8888]永远D痛 11:03:34

当然是赚来的

[vormittag]桔子 11:03:43

有所为，有所不为。

[pzweng][pzweng]路人 11:05:57

儒家思想祸害整个中国

[yarp]潜水 11:14:48

只要风险收益大，就干。

[LC100]建筑设计 11:21:28

打印PDF,拿到外面打，是不是图纸会缩放变小啊？

[kwok][ww5w]行舟月下 11:24:14

不会，看你用什么纸张打印成pdf就用什么纸打一样的

[LC100]建筑设计 11:24:41

你对比过大小一样是吗？

[kwok][ww5w]行舟月下 11:24:47

当然A1的pdf也可以打印马A4

[LC100]建筑设计 11:25:10

我是要A1打成A1

[kwok][ww5w]行舟月下 11:25:15

你跟打印的人说安pdf大小打印就行了

[LC100]建筑设计 11:25:21

我试打一张就知道了。

我自己也想打。

明经快报

[HNFSF](看海) 14:51:44

把表princ到字串的是哪个函数？

[雨的节奏][雨的节奏] 15:00:59

read

明经快报

? 船ζ?????? 夫.。 16:52:23

谢谢~

[pzweng][pzweng]路人 16:53:01

群昵称修改为“[论坛用户名]网名”格式

? 船ζ?????? 夫.。 16:53:17

OK

【布。_局】布 16:55:14

是这样吧？

[pzweng][pzweng]路人 16:59:47

看我的

明经快报

[亮]123379932 17:45:36

多段线转二维多段线的命令是什么

忘了

明经快报

[gongsiyi123][gongsiyi123]龙龙 20:07:38

[qqimg]201308/{AD975370-87F1-FF3E-6E89-0BDCEF3B0BD3}.jpg[/qqimg]
为什么(rtos)函数将数转化为指定小数位数的字符串不起作用呢

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

受UNITS影响了

[gongsiyi123][gongsiyi123]龙龙 20:08:04

(rtos 10 2 6)
应该返回 10.0000

[vormittag]桔子 20:08:10

(setvar "DIMZIN" 0)

[gongsiyi123][gongsiyi123]龙龙 20:08:24

原来如此，感谢

[vormittag]桔子 20:09:11

DIMZIN 变量值影响 rtos 返回值的。

[gongsiyi123][gongsiyi123]龙龙 20:10:22

学习了

明经快报

[pxk]度！ 21:45:56

    字符   这是什么啊
"   "字符
e    跳脱字符
这些都是什么意思啊

[pxk]度！ 21:54:31

（defun c：15()
    (setvar "sanpang"(*                 30(/ pi 180)))
 (prin1)
)中(prin1)表示什么意义 啊

[ZZXXQQ] 21:54:55

空输出

[pzweng][pzweng]路人 21:57:10

返回空值

[啵浪鼓] 21:57:24

晕,需不需要这么大的字占满整个屏幕啊

[pxk]度！ 21:57:58

嘿嘿我调小一点

明经快报

[pxk]度！ 22:11:58

(defun c:0()  (setvar "snapang" 0)       (prin1))
(defun c:15()  (setvar "snapang" (* 15(/ pi 180)))       (prin1))
(defun c:30()  (setvar "snapang" (* 30(/ pi 180)))       (prin1))
(defun c:45()  (setvar "snapang" (* 45(/ pi 180)))       (prin1))
(defun c:60()  (setvar "snapang" (* 60(/ pi 180)))       (prin1))
(defun c:75()  (setvar "snapang" (* 75(/ pi 180)))       (prin1))
(prompt "直接输入0、15、30、45、60、75 十字光标轴线角度调整值")
(prin1)
我想问这是一个程序是吧
那这各个defun函数之间是什么关系啊

[vormittag]桔子 22:12:51

没有关系。

[啵浪鼓] 22:13:00

prin1  在命令行打印一个表达式或将表达式写入已打开的文件中

[pxk]度！ 22:13:31

那不是一个程序总要有开头结尾都有括号么

这个没有啊

怎么个意思呢

[ZZXXQQ] 22:13:48

空输出

[啵浪鼓] 22:13:55

你上面不带参的prin1就是消除命令返回值的显示

[pxk]度！ 22:14:25

奥

上面所有的pin1都是这个意思哈

[pxk]度！ 22:15:45

这个程序不用在最开头加一个（   在最结尾加一个）吗？

[pzweng][pzweng]路人 22:18:11

你去掉与不去掉自己试一下嘛

[vormittag]桔子 22:18:38

不能加，加了就错了

[pxk]度！ 22:18:50

为什么啊

我还不会操作呢啊

刚刚开始啊，好为难啊

[pxk]度！ 22:22:31

求指教啊

明经快报

[阿然][阿然] 22:32:38

在defun之外的语句只有加载的时候执行一次，其他你输入0 15之类的就不会再执行这些语句了

[pxk]度！ 22:40:05

琢磨半天没琢磨透呢

什么是defun之外的语句啊

[pzweng][pzweng]路人 22:41:15

帮助文件里面有

[阿然][阿然] 22:41:32

(defun c:75()  (setvar "snapang" (* 75(/ pi 180)))       (prin1))

这个是defun之内的语句

(prompt "直接输入0、15、30、45、60、75 十字光标轴线角度调整值")
这个是之外的语句

[pxk]度！ 22:45:47

奥，明白了，就是加载这个程序的时候执行了一次之外的语句，如果我输入0 15==就执行defun了是不

[阿然][阿然] 22:46:14

是的

[pxk]度！ 22:46:19

但是defun输出的是空结果啊，晕菜

[阿然][阿然] 22:46:37

(defun之内的语句是你输入0 15之后才执行

你这里的函数都是设置系统参数，最后都用principle

prin1阻止回显了

[阿然][阿然] 22:48:07

所以看不到返回值，你要想看到返回值，把prin1这句注释了就看到了

[pxk]度！ 22:48:23

snapang是系统参数是吧，

[阿然][阿然] 22:50:22

是

[pxk]度！ 22:51:54

哪里有帮助文件啊，是不是得买啊

[阿然][阿然] 22:52:37

F1

[vormittag]桔子 22:52:43

F1

[pzweng][pzweng]路人 22:53:34

f1

[pxk]度！ 22:53:59

不是，我是说lisp的帮助文件啊

[阿然][阿然] 22:54:23

开发人员手册，也在帮助菜单下

[vormittag]桔子 22:55:03

[qqimg]201308/{242E263C-4505-D509-7163-1BACAA05EE9A}.jpg[/qqimg]

[pxk]度！ 22:56:27

那里面的东西看不了啊

[vormittag]桔子 22:56:45

？

[pzweng][pzweng]路人 22:57:17

买本书吧

[pxk]度！ 22:57:39

买了

[vormittag]桔子 22:57:48

[qqimg]201308/{43206A28-73AC-2D0F-7449-46F68B3533C5}.jpg[/qqimg]

[pzweng][pzweng]路人 22:57:52

[pxk]度！ 22:58:00

autocad完全应用指南

[阿然][阿然] 22:58:52

看帮助就足够了

[pxk]度！ 22:59:07

额。。。我的是07的，用不了，哎。。。因为我们公司的三维软件支持04，把系统换成32位的了

[vormittag]桔子 22:59:26

什么都没有帮助权威。

[pxk]度！ 22:59:37

没法装10版的

[vormittag]桔子 23:00:03

哪一版都一样。

[pxk]度！ 23:00:20

可是我的真用不了啊

[阿然][阿然] 23:00:25

我一直用04的

[pxk]度！ 23:00:40

那你是什么系统

[vormittag]桔子 23:00:48

你从来不用帮助吧？

[pxk]度！ 23:01:04

嘿嘿很少用

[pxk]度！ 23:02:00

问一下，你的04可以装在64位系统上吗？

怎么装的啊

[阿然][阿然] 23:02:40

winxp，不知道64位是啥

[pxk]度！ 23:03:09

奥

[vormittag]桔子 23:04:35

好像从2008开始才有64位的

[邹锋]Tony 23:07:19

是的，

[邹锋]Tony 23:08:13

取得字条串时，我的字符串中有空格，怎么输入，

[pxk]度！ 23:08:39

我想问问各位，现在lisp还很流行吗？现在不是好多都用三维了么

我对形势还不太了解

[vormittag]桔子 23:09:06

跟三维有关系么？

[pxk]度！ 23:09:27

你们是什么行业啊

[邹锋]Tony 23:09:30

你们用CAD要用三维的吗

我从来没用过，

[pxk]度！ 23:09:54

不是，我们有专门画三维的

[邹锋]Tony 23:10:02

你哪行业

[pxk]度！ 23:10:13

我的意思是现在三维比较流行

我是做造纸厂设计的

[vormittag]桔子 23:11:15

跟lisp有什么关系？

[pxk]度！ 23:11:52

也有项目画二维的

用到cad啊

我就想学会了以后画图能快点，能有简便方法啊

是不是多此一举了啊

[pzweng][pzweng]路人 23:14:07

不是

[邹锋]Tony 23:14:14

LISP画2D的多

[pxk]度！ 23:14:34

这个我知道

[pzweng][pzweng]路人 23:14:39

我就喜欢用CAD做整台设备的布局

[vormittag]桔子 23:14:54

lisp做3d也不逊色啊。

[pxk]度！ 23:15:26

路人，你也是搞工程的？

[pzweng][pzweng]路人 23:15:38

[qqimg]201308/{3112F80A-F973-92CF-8F6C-AB1D1CDF8D5F}.jpg[/qqimg]

[pxk]度！ 23:15:38

搞设备还是工艺啊

[pzweng][pzweng]路人 23:15:48

设备

如果不涉及曲面。，。所有的图都是CAD画

这里可能只有桔子对CAD3d有研究了

[邹锋]Tony 23:17:26

[pzweng][pzweng]路人 23:17:41

我就喜欢用CAD画三维

[邹锋]Tony 23:17:41

要用VL吧，

[pzweng][pzweng]路人 23:17:54

三维软件太慢了

[pxk]度！ 23:18:11

奥，我们画三维有专门的软件不用cad画，我是工艺，设备都是设备厂家给了，技多不压身么

[邹锋]Tony 23:18:16

我画出来的三维转出去认不出来，只识别到曲面

没用呢

[pzweng][pzweng]路人 23:19:03

[qqimg]201308/{F081EBB4-ED4D-A95D-FFAD-6E4A44945509}.jpg[/qqimg]

[pxk]度！ 23:19:45

我不会用cad画3位啊

[pzweng][pzweng]路人 23:20:34

[qqimg]201308/{A091ACB0-576C-5148-AAAA-13240F09D34A}.jpg[/qqimg]

[邹锋]Tony 23:20:37

习惯就好用，

[pzweng][pzweng]路人 23:20:45

[qqimg]201308/{FF33FCEB-7147-E804-B62B-BDA0C6FFA008}.jpg[/qqimg]

[邹锋]Tony 23:20:46

真的，

[pzweng][pzweng]路人 23:20:52

不是

我以前用三维软件

多年不用了，只用CAD

[pxk]度！ 23:21:23

奥，

[pzweng][pzweng]路人 23:21:37

机械行业基本上用不到什么曲面

所以CAD满足

[pxk]度！ 23:22:03

嗯

[pxk]度！ 23:22:33

看来我还得好好学啊嘿嘿

[pzweng][pzweng]路人 23:23:30

你们加工？

不设计？

[pxk]度！ 23:23:47

不是啊

我们设计造纸厂

不是机械行业

[pzweng][pzweng]路人 23:24:09

整条线？

听不明白啊

[pxk]度！ 23:24:24

整个厂

就是设计院

[pzweng][pzweng]路人 23:24:41

哦

明白

[pxk]度！ 23:24:47

专门设计纸厂的

[pzweng][pzweng]路人 23:24:51

明白

[pxk]度！ 23:24:58

呵呵

[pzweng][pzweng]路人 23:25:17

你们真舒服

这些东西都是成熟的东西

[pxk]度！ 23:25:46

确实已经成熟了

[pxk]度！ 23:26:43

但是也很危险啊，这个面太窄了

[邹锋]Tony 23:26:58

我转出去都变成 面了

我要转到别3D软件上去，