2013-05-13 明经 AutoLISP 编程(102918348) 群聊记录：请问按1:0.3放坡的直线应该怎么画、

明经快报

[JAY913]SagapoЖ 08:33:27

请问按1:0.3放坡的直线应该怎么画、

[tiyi8888]永远痛 08:38:50

先画线，再剪切就行了

[JAY913]SagapoЖ 08:39:25

剪切？、

[tiyi8888]永远痛 08:40:12

或者延长呀

一会回

反过来而已

[Sign88]宁波标志 08:45:06

[qqimg]oldimg/{DEED1C96-3670-2981-433B-653560D14105}.jpg[/qqimg]
估计是这样

[JAY913]SagapoЖ 08:45:36

这个就是用直角边来控制嘛

[tiyi8888]永远痛 08:45:46

反了，1：0.3

1是高

0.3是长度

是X

[Sign88]宁波标志 08:46:29

哈哈
我不懂这个

[tiyi8888]永远痛 08:47:16

搞个程序也不错

学习了

[JAY913]SagapoЖ 08:47:41

嗯，这个快

[cie0588][cie0588] 08:48:44

[qqimg]oldimg/{F181636A-24BC-0E68-0FD0-97B4F5390D5A}.jpg[/qqimg]

1:0.3的边坡 肯定是这样的。。。

【7299969】人生 08:50:01

vl-cmdf干嘛的

[tiyi8888]永远痛 08:50:03

支持

明经快报

【7299969】人生 09:04:22

cad工具箱菜单加载卸载的代码，谁有

[lisp-study]jun 09:05:42

cad能不能两张图同步对比

明经快报

[夏生生][x_s_s_1]生无可恋 10:04:07

这个会entmake致死

好麻烦的

[xiaomm09]江湖 10:04:16

？

实体没法用？

[夏生生][x_s_s_1]生无可恋 10:04:40

你entget一个就知道了

[xiaomm09]江湖 10:04:51

实体建模 怎么样才比较快？

[夏生生][x_s_s_1]生无可恋 10:05:21

用arx吧

[xiaomm09]江湖 10:05:24

我试过一个 里面的 组码 全是乱的，

[夏生生][x_s_s_1]生无可恋 10:05:25

可以自定义

[xiaomm09]江湖 10:05:32

arx....。。

[夏生生][x_s_s_1]生无可恋 10:05:43

不是乱的要解码

[xiaomm09]江湖 10:05:47

不是有版本限制的吗？

怎样解码？

[夏生生][x_s_s_1]生无可恋 10:06:16

上网搜索一下吧

我是没看懂，放弃了

[xiaomm09]江湖 10:07:43

我也搞过一段 没搞明白。

实体 对cad 还是复杂了点。

笑对人生 10:08:03

求助：谁有“雨箭风刀”大侠的批量偏移程序发给我一份呗，本人感激不尽

[夏生生][x_s_s_1]生无可恋 10:08:27

http://www.theswamp.org/index.php?action=search2

[夏生生][x_s_s_1]生无可恋 10:12:47

[qqimg]oldimg/{DCE0F191-2C63-40C8-603A-E2318E9AC28D}.jpg[/qqimg]研究去吧

[xiaomm09]江湖 10:15:18

,/7:-:r,*-9>-;@) V V V V |"

这一堆啥东西？

[阿然][阿然] 10:17:23

[qqimg]oldimg/{517AE8E7-32A9-6A4B-E53F-1D33DC40349D}.jpg[/qqimg]

[xiaomm09]江湖 10:17:54

不能这么生成。

[夏生生][x_s_s_1]生无可恋 10:22:53

这是theswamp中的大神写的，没测试

[xiaomm09]江湖 10:24:37

你的截图资料 能否发一份？

[阿然][阿然] 10:25:00

那个satformat哪里有？

[夏生生][x_s_s_1]生无可恋 10:25:27

我发给你

[阿然][阿然] 10:25:33

[lisp](car (entsel)) 10:27:29

如何快速获得图层的颜色号?比如我选了一个图层上的某个图元(该图元颜色随层)

[阿然][阿然] 10:32:03

(cdr (assoc 62 (car (tblsearch "Layer" (cdr (assoc 8 (entget (car (entsel))))))

不知道括号够不够

[lisp](car (entsel)) 10:32:54

不够

[夏生生][x_s_s_1]生无可恋 10:33:08

不是这样的

[夏生生][x_s_s_1]生无可恋 10:33:54

assoc 62 tblobjname

[阿然][阿然] 10:34:04

(cdr (assoc 62 (tblsearch "Layer" (cdr (assoc 8 (entget (car (entsel))))))))

[阿然][阿然] 10:34:42

这下够了

[夏生生][x_s_s_1]生无可恋 10:34:50

我错了，是tblsearch

明经快报

[Sign88]宁波标志 11:20:35

应该是可以的

明经快报

[lisp](car (entsel)) 12:32:35

[qqimg]oldimg/{1439031C-2BAA-4D8C-1937-EF6F01AEFA3F}.jpg[/qqimg]

为什么我看不到?

明经快报

[mccad][MCCAD] 12:58:21

有点奇怪，我是在后台数据库中恢复出来的

[永不言弃]梦 12:58:50

请教一下怎样把得到的多段线的点坐标转成表

(104.4 80.4566)
(117.009 89.2329)
(138.871 88.4245)
(149.86 85.5376)
(154.025 75.1447)
(150.67 61.5184)
(144.424 57.4767)
(131.468 58.285)
(121.52 60.4791)
(110.646 64.8672)
(105.788 70.1792)

[mccad][MCCAD] 12:58:54

从未出来过这种问题，一发帖就自动被屏蔽掉，而且后台回收站中都找不到

[lisp](car (entsel)) 12:59:11

好了,现在已经看到了

[不死猫][nonsmall]不死猫 13:04:23

因为我还没发布

只是保存了草稿

现在应该可以看了

[mccad][MCCAD] 13:11:32

呵呵，我查了功能，确实后台disporder字段为－4时，是草稿状态。

应该是机器人的捕捉点有问题

[不死猫][nonsmall]不死猫 13:13:34

刷出一个bug

[236004]张牙舞爪 13:17:29

问下，制作安装包用什么软件？

明经快报

[xzz007]lisp编程 13:40:53

可以用inno

【7299969】人生 13:41:24

inno是什么

明经快报

[xzz007]lisp编程 13:51:33

打包软件

明经快报

【7299969】人生 14:06:50

cad工具箱可以做吗

[236004]张牙舞爪 14:08:30

inno 怎么用？

【7299969】人生 14:11:11

有教程吗

明经快报

[lisp](car (entsel)) 14:33:26

[qqimg]oldimg/{150D8CA9-393C-940A-77FE-DA5F5FD9BD06}.jpg[/qqimg] 为什么我设置的是0.5mm,但是最后的打印却不是0.5mm呢?

[阿然][阿然] 14:39:23

pline线如果有宽度会优先使用pline的宽度

[236004]张牙舞爪 14:40:25

[qqimg]oldimg/{150D8CA9-393C-940A-77FE-DA5F5FD9BD06}.jpg[/qqimg]

这个图上的线宽，可以用LSP代码或者是，系统变量更改吗？

[LC100]建筑设计 14:42:56

可以

copy 一个模板到CAD那里

[236004]张牙舞爪 14:43:07

什么

除了这个还有其它的方法吗？

[LC100]建筑设计 14:43:50

我用lsp来控制图层里面的信息

我平常是按图层来区分粗细的。

[236004]张牙舞爪 14:44:16

[qqimg]oldimg/{150D8CA9-393C-940A-77FE-DA5F5FD9BD06}.jpg[/qqimg]

这个图上的线宽，可以用LSP代码或者是，系统变量更改吗？

[qqimg]oldimg/{FB0F3B24-25FB-675E-CBE7-7BDB270BF5FB}.jpg[/qqimg]这个线宽

[LC100]建筑设计 14:44:37

[qqimg]oldimg/{2296B01C-4C30-07F6-E6D0-FF17C2CAB595}.jpg[/qqimg]

lsp可以控制这里的。至于打印样式我就不知道了。

[236004]张牙舞爪 14:45:22

打印样式，我弄了好久，没有人知道嘛

[LC100]建筑设计 14:46:04

方法可以跟你说一个就是你建好这个模式，用bat来复制过去。都不用手动安装，我的就是这么操作的。

[236004]张牙舞爪 14:46:33

我也是这样的，

[simon8001][simon8001]随风 14:53:42

(COMMAND "ERASE" (SSGET "X") "")
一般在编程之前有这么一句  主要的作用是什么？

[阿然][阿然] 14:54:54

删除所有图元

[simon8001][simon8001]随风 14:56:25

那也就是清空图纸呗！

[mccad][MCCAD] 14:58:45

一般来说，线宽信息都是在图层中做控制，而非在打印样式里

打印样式很难通过LSP做变更，因为它已经是另外一个文件下的配置

[mccad][MCCAD] 14:59:50

在打印样式里的设置，那是以前比较老的做法，可能是R12－R14之间的一些做法(或2000版不太清楚)

[236004]张牙舞爪 15:00:13

改变打样式里的笔宽，比直接改线宽，打出来的线宽漂亮些。

[阿然][阿然] 15:05:18

线宽这东西还是个人习惯问题

[阿然][阿然] 15:05:50

感觉画面很凌乱

[VBALISPER]恐龙 15:08:15

在图层那里设置的线宽,看起来就是宽得很.和其它线的相对性变得很不真实.视觉效果不好.

[vormittag]桔子 15:08:32

图层的打印线宽，又不是让你画成带线宽的多段线。

[cie0588][cie0588] 15:09:07

我习惯用带宽度的线

StEf 15:09:11

:UsersStEfDesktop500新建文件夹/296-130-II-12.dwg" 500trim qsave close
open "C:UsersStEfDesktop500新建文件夹/296-130-II-13.dwg" 500trim qsave closeopen "C:UsersStEfDesktop500新建文件夹/296-130-I-61.dwg" 500trim qsave close
open "C:UsersStEfDesktop500新建文件夹/296-130-I-71.dwg" 500trim qsave close
open "C:UsersStEfDesktop500新建文件夹/296-130-I-81.dwg" 500trim qsave close
open "C:UsersStEfDesktop500新建文件夹/296-130-I-91.dwg" 500trim qsave close
open "C:UsersStEfDesktop500新建文件夹/296-130-II-02.dwg" 500trim qsave close
open "C:UsersStEfDesktop500新建文件夹/296-130-II-03.dwg" 500trim qsave close
open "C:UsersStEfDesktop500新建文件夹/296-130-II-04.dwg" 500trim qsave close
open "C:UsersStEfDesktop500新建文件夹/296-130-II-05.dwg" 500trim qsave close
open "C

[vormittag]桔子 15:09:42

图层的打印线宽可以不显示的。

StEf 15:09:48

这是我做的脚本文件，执行过程中有时会崩溃，为什么？？