2013-05-28 明经 AutoLISP 编程(102918348) 群聊记录：[image={380FF984-6ABC-1200-5F31-89ED42

明经快报

[wh89103](阿天) 14:13:09

那个命令是修改已标注完的文字

[wh89103](阿天) 14:15:28

就是文字替代

明经快报

孑孓空灵 16:00:01

现在坛子里怎注册新号？

[mccad][MCCAD] 16:06:32

请加明经机器人为好友，并发“邀请码”给它，就可以得到邀请码并通过它进行注册

[pzweng]路人 16:07:31

明总

把小明搜索功能去掉吧

最后是私聊可以搜索

搞的大家的聊天记录太大

明经快报

[dafeilang][dafeilang]++bee 16:21:46

et炸开字 可不可以设置炸开后的线段长度？ 有些字炸开很难看，不够精细

请教哈

[tiyi8888]永远痛 16:22:06

xp

[dafeilang][dafeilang]++bee 16:22:40

？

用的xp的系统

[tiyi8888]永远痛 16:23:25

xp也是炸开块的

呵呵

明经快报

[冶躁] 16:36:46

请问lisp中如何保留小数？

[stoyer] 16:37:39

rtos

[冶躁] 16:40:28

哦 想起来了

[天财]天财 16:44:19

[qqimg]oldimg/{682EBB2C-890B-FE0F-3256-75E7764D01A5}.jpg[/qqimg]

[328302216][328302216]小莫 16:45:03

[qqimg]oldimg/{E0273B97-7C3A-5B3E-7AC5-7B901197879A}.gif[/qqimg]

[LC100]建筑设计 16:53:23

dcl的入门实例教程谁有啊。

[LC100]建筑设计 16:54:04

[qqimg]oldimg/{372C9967-DC39-DFBC-6B69-D07E6712D8AE}.jpg[/qqimg]

我只需要这种简单的几个框而已。

[Sign88]宁波标志 16:54:52

自己找一个例子  学者改改就行的

[LC100]建筑设计 16:55:19

找了。

找不到。

最好就是那种简单的例子了。问题找不到。

[yjpzc][yjpzc]-蓝眼泪 16:55:48

魔法书上有

[LC100]建筑设计 17:00:30

ok

[LC100]建筑设计 17:01:29

[qqimg]oldimg/{F3B5F3AC-22FC-304D-4151-08691F45136B}.jpg[/qqimg]

这个嘛？

[328302216][328302216]小莫 17:02:20

这个应该也可以吧

[328302216][328302216]小莫 17:03:07

[qqimg]oldimg/{7DA76EC1-309D-5DB5-3690-098C2DD104F3}.jpg[/qqimg][qqimg]oldimg/{3B37C321-C148-6A7D-2C73-81C437CE54F0}.jpg[/qqimg]这两个说的也详细

[LC100]建筑设计 17:03:36

找到了，

[LC100]建筑设计 17:09:53

[qqimg]oldimg/{9EE4BAF9-0774-5208-9EA4-9BF832C2715A}.jpg[/qqimg]

[LC100]建筑设计 17:11:08

知道怎么用了。

[328302216][328302216]小莫 17:13:13

我以为都学odcl了呢  

[LC100]建筑设计 17:13:26

我安装了odcl程序

问题是没有教程。

[zhuquanmao]关中 17:20:02

[qqimg]oldimg/{66E40A07-DE45-901A-3D40-34BC869B5A97}.jpg[/qqimg]图纸空间里的这个是什么 怎么改

[LC100]建筑设计 17:21:05

ucs w

(command "ucs" "w")

输入这个就行了。

[zhuquanmao]关中 17:21:48

不行啊

[LC100]建筑设计 17:22:03

shademode

(command "shademode" "2" "_top")

[zhuquanmao]关中 17:23:15

图纸空间用的不多

[LC100]建筑设计 17:23:42

图纸空间这个东西我也没用过。

这个显示对你操作应该没有影响吧。

[zhuquanmao]关中 17:24:59

模型空间这样[qqimg]oldimg/{B8CCA961-3E31-4ACD-D838-118F13F164B4}.jpg[/qqimg]
图纸空间这样[qqimg]oldimg/{8BA2D365-CCE5-5FF8-DEAE-43DD3FF09B10}.jpg[/qqimg]
方向都不一样 不知道怎么弄的

新建视口里的图形就是歪的

[安柱]坐标零点 17:32:11

我是一个苦b的程序员，昨晚加班到现在，困得快睁不开眼了，女上司很关心，问我要不要去吃午饭。我没好气地说，午饭就算了，能让我睡一觉就行了。女上司红着脸说了句讨厌啊，然后坐在我身边不动，好像距离我很近，搞得我很紧张，难道她发现我的程序出了bug？

[小伟jeny]小伟 17:33:12

程序员的世界，你永远不懂啊

[阿然][阿然] 17:33:23

(command "ucs" "" "")(command "plan" "")

[water_system]water_system 17:35:54

[qqimg]oldimg/{CF679891-3466-4441-79A1-247FD5218773}.jpg[/qqimg]
我想让圆外面的线全部剪掉？有什么办法？

AutoCAD2004不支持框选

[VBALISPER]恐龙 17:39:21

F 栏选

[VBALISPER]恐龙 17:40:58

ET 剪一边

[water_system]water_system 17:41:48

2004不支持trim框选

[water_system]water_system 17:42:56

trim选择对象只能单个点

[water_system]water_system 17:44:39

哦 我试试

[water_system]water_system 17:46:12

好像可以啊 我有思路了 谢谢

[VBALISPER]恐龙 17:47:27

[qqimg]oldimg/{E00A7865-28F3-C5A2-99FE-5AF9017AC901}.gif[/qqimg]

[water_system]water_system 17:47:57

O(∩_∩)O~

明经快报

[328302216][328302216]小莫 19:05:06

群共享里面就有 自己找找

明经快报

孑孓空灵 20:49:07

(setq pt1 (getpoint "\n选择角点：")
        pt0 (getpoint pt1 "\n选择方向：")
        ang (angle pt1 pt0)
        )
      (while (/= ang nil)
      (cond   ;;;;点表依逆时针旋转
        ((and (>= ang 0 ) (< ang (* pi 0.5)))
        (setq pt2 (polar pt1 0 jmwc)  pt3 (polar pt2 (* pi 0.5) 55)  pt4 (polar pt3 pi jmhc) pt5 (polar pt4 (* pi 0.5) jmzc) pt6 (polar pt5 pi 55)
          ptlist (list pt1 pt2 pt3 pt4 pt5 pt6)  ))
        ((and (>= ang (* pi 0.5 )) (< ang  pi))
         (setq pt2 (polar pt1 (* pi 0.5) jmwc) pt3 (polar pt2 pi 55) pt4 (polar pt3 (* pi 1.5) jmhc)  pt5 (polar pt4 pi jmzc) pt6 (polar pt5 (* pi 1.5) 55)
          ptlist (list pt1 pt2 pt3 pt4 pt5 pt6)  ))
        ((and (>= ang pi) (< ang  (* 1.5 pi)))
        (setq pt2 (polar pt1 pi jmwc) pt3 (polar pt2 (* pi 1.5) 55)  pt4 (polar pt3 0 jmhc)  pt5 (polar pt4 (* pi 1.5) jmzc)  pt6 (polar pt5 0 55)
          ptlist (list pt1 pt2 pt3 pt4 pt5 pt6)  ))
        ((and (>= ang (* pi 1.5)) (< ang  (* 2 pi)))
        (setq pt2 (polar pt1 (* pi 1.5) jmwc)  pt3 (polar pt2 0 55)  pt4 (polar pt3 (* pi 0.5) jmhc)  pt5 (polar pt4 0 jmzc) pt6 (polar pt5 (* pi 0.5) 55)
          ptlist (list pt1 pt2 pt3 pt4 pt5 pt6)  ))
        (t nil)
        )
      (entmake_xgm ptlist)
      (setq xgm_hatch (entlast) )
      (command "_bhatch" "p" "solid" "10" "0" "s" xgm_hatch ""    ""
           )
        (setq pt1 (getpoint "\n选择角点：")    pt0 (getpoint pt1 "\n选择方向：")    ang (angle pt1 pt0)    )
       )

以上while循环，为什么运行到最后出现point：nil，而不继续向下运行。

明经快报

[wh89103](阿天) 21:25:51

[qqimg]oldimg/{28911A98-A7B3-4164-ECC3-C045A440B8C5}.jpg[/qqimg]

明经快报

[zhuquanmao]关中 22:36:44

为啥别人下了代码  明经币不见增长啊[qqimg]oldimg/{8621F660-98B5-C352-7068-32525CA98430}.gif[/qqimg]

明经快报

[mccad][MCCAD] 22:56:17

因为你金钱增长了

冰～冰 23:01:00

泪求autolisp编程。。。。

[236004]张牙舞爪 23:01:17

编什么

冰～冰 23:01:18

[236004]张牙舞爪 23:01:29

1加1等于几 ？

[ZZXXQQ] 23:01:53

来了都是急茬的

[236004]张牙舞爪 23:02:13

自己写吧，

冰～冰 23:02:23

论文要用的，很绝望啊。。。

[236004]张牙舞爪 23:02:51

[qqimg]oldimg/{C322C0FD-3A3E-E642-9E0A-BFF189AA001E}.gif[/qqimg]

冰～冰 23:03:49

[ZZXXQQ] 23:04:03

defun
getfiled
open
read-line
close
command
...

[236004]张牙舞爪 23:04:25

还有，

while

if

[tiyi8888]永远痛 23:05:17

放到EXCEL中去

处理一下

导入CAD中吧

不要程序的

[ZZXXQQ] 23:05:51

如果使用了(setvar "CMDECHO" 0)程序运行的会更快

[stoyer] 23:06:51

窗口翻得好快，怎么不用entmake

明经快报

[LC100]建筑设计 23:32:09

为什么用不了呢？