2013-07-02 明经 AutoLISP 编程(102918348) 群聊记录：[image={E5054EA3-98F9-D3AF-96C6-DC8678

明经快报

[天财]天财 00:12:25

[qqimg]201307/{E5054EA3-98F9-D3AF-96C6-DC86782BB5B3}.gif[/qqimg]

群里高手如林

明经快报

[野狼谷]笨鸟 08:49:19

求助：
    (load   (strcat  "d:\\input\\" "DCL_" name ".lsp"))
    为啥单行运行上面语句可以，放到程序里加载就出现：
     错误: 参数类型错误: stringp nil

明经快报

[THH] 09:20:38

cad自定义线型如何让线加粗，线段间的字不变啊：？

明经快报

[THH] 09:39:33

[qqimg]201307/{5088AB25-DEFC-50F2-991B-BC1D09CDCF30}.jpg[/qqimg]

自定义线型，如何只让线加粗，字不变？

[THH] 09:47:18

哪位高手写个小程序，打断之先后，在断口处插入自定义的字母，有这样的程序吗？！

[THH] 09:49:49

大虾门，出个招啊！

[阿然][阿然] 09:52:19

给你个思路，就是写字，然后用wipeout遮罩起来，不用打断线条

[THH] 09:52:49

哈哈

试试

[THH] 09:56:57

呵呵，和我想的一样，遮罩覆盖了区域内所有信息

[vormittag]桔子 09:57:52

绘图顺序的问题

[THH] 09:58:08

这个效果和我现在不太适用，而且量太大，还是谢谢了[qqimg]201307/{3B6260FF-C1D5-0AB0-C22C-421843E091B8}.gif[/qqimg]

[328302216][328302216]小莫 09:58:15

遮罩的边框线打印的时候是不是也会出现？

[THH] 09:58:25

恩，对，和Photoshop里边的蒙版一个原理！

[328302216][328302216]小莫 09:58:27

我点打印预览能看到...

[阿然][阿然] 09:58:38

wipeout的边框可以关闭

[328302216][328302216]小莫 09:59:46

哦  刚刚没注意 [qqimg]201307/{3B6260FF-C1D5-0AB0-C22C-421843E091B8}.gif[/qqimg]

[THH] 10:01:27

恩，但是字还得一个一个输，好麻烦哦，自定义线型，可以解决，但是显得图纸中的字母太多了，还不能加粗，一加粗，字体都变粗了，

[繁花落叶] 10:01:44

[qqimg]201307/{D1358B9B-48C8-1BF3-4CC8-43197D6135B3}.jpg[/qqimg]

为什么我的程序，会提示未知命令

[Lwcdgl]coming 10:02:15

lisp 有没有类似goto的函数

[vormittag]桔子 10:02:54

command多了一个空格。

[繁花落叶] 10:03:35

你太犀利了

[THH] 10:03:43

有时间请大虾们指教一二
写一个选一个直线，确定中心位置做一段距离的断口，在断口位置自动插入输入的字符！Perfect！

[繁花落叶] 10:03:53

[阿然][阿然] 10:04:37

[qqimg]201307/{64559EB9-F1A7-F749-CA17-85BCA524E358}.jpg[/qqimg]

自定义线形可以只加粗线，不加粗字

[qqimg]201307/{4C506852-FC63-90D5-59B3-EDFBA8786A27}.jpg[/qqimg]

[THH] 10:05:31

为什么我的有问题：

[qqimg]201307/{7296A445-BDDC-F69A-CB3D-9DA8D21CC79D}.jpg[/qqimg]

[阿然][阿然] 10:05:49

不知道，对自定义线形不熟，帮助看看

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

换个字体

或者用颜色

用颜色是最好的办法

[THH] 10:07:02

参数名怎么写？

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

用图层

你反正只要打印出来是粗的就行

[阿然][阿然] 10:08:06

*GB_LINE,Gas line ----GB----GB----GB----GB----GB----GB--
A,.5,-.2,["GB",STANDARD,S=.1,R=0.0,X=-0.1,Y=-.05],-.25

[THH] 10:08:13

[qqimg]201307/{6317DE94-ADA4-EF66-3542-D06036E8338F}.jpg[/qqimg]

是不是自动选线粗，不行啊？

[阿然][阿然] 10:08:29

[qqimg]201307/{D7D2E37B-A842-8D38-E03A-449C5A962CFC}.jpg[/qqimg]

我这里没有出现字变粗的情况

[THH] 10:08:59

怎么弄的

[阿然][阿然] 10:09:20

就是把gas的copy下来改下文字

acad.lin

[cie0588][cie0588] 10:09:30

一个用的是现实线宽，一个是PL线加粗吧

显示线宽

[阿然][阿然] 10:09:47

恩，我这个是pline加粗

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

[qqimg]201307/{FFE5ED30-9B90-F42C-F351-10ED8E1AE26A}.jpg[/qqimg]

[THH] 10:10:01

这样啊

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

[qqimg]201307/{E52F7642-402E-02D2-708F-FED662A0E23C}.jpg[/qqimg]打印的时候加粗红色，颜色你自己定

别啥玩意儿都想着编

[阿然][阿然] 10:11:12

这种颜色加粗，字也会粗

[夏生生][x_s_s_1]生无可恋 10:11:23

他不是要加粗吗？

[THH] 10:11:27

对啊

[阿然][阿然] 10:11:33

他只要线粗

字不粗

[THH] 10:11:36

只要线加粗，字不变

字的颜色用什么参数控制呢？

[cie0588][cie0588] 10:12:03

[qqimg]201307/{732324CB-AB9F-6262-D554-6172FC61A649}.jpg[/qqimg]

[qqimg]201307/{E6D0803F-18AB-03B7-6150-2AD77B136E3E}.jpg[/qqimg]

不显示线宽，加粗多线段就是 这样的

[THH] 10:13:17

pline是方法

[cie0588][cie0588] 10:13:17

最后到底粗不粗，和你打印样式有关系。图面上没有关系

[夏生生][x_s_s_1]生无可恋 10:13:38

[qqimg]201307/{9F2D824F-788C-3CAA-104B-A5FF70550E8D}.jpg[/qqimg]

[cie0588][cie0588] 10:13:42

看你打印样式按颜色，还是按线宽之类的。。。

[THH] 10:13:45

恩，打印样式可以调整

[夏生生][x_s_s_1]生无可恋 10:13:58

不加粗就转为PL

[THH] 10:14:13

恩，我一直很关心，自定义线型，如何控制字母的颜色？

[夏生生][x_s_s_1]生无可恋 10:15:14

帮助中有就有，没就没，看看帮助吧

[cie0588][cie0588] 10:16:22

[qqimg]201307/{4D434A8C-3490-C6F6-A3E1-BB4AC00AF9FF}.jpg[/qqimg]

好像没有颜色的选项

[THH] 10:16:40

恩

没有

[qqimg]201307/{BB0AB60B-669B-B7F6-B0C8-4F990F1452DE}.jpg[/qqimg]

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

应该不能吧

[cie0588][cie0588] 10:17:18

只能做成PL线了。线按PL线的宽度打印。文字是文字的宽度

[THH] 10:18:18

PL已经解决问题了，现在焦点转移了

[阿然][阿然] 10:19:08

在怎么加文字，也是一条线，线只有一个颜色

[THH] 10:20:17

恩

[THH] 10:21:35

程序：
在选择的线段中心位置做断口，在断口处插入固定字符。
谁有思路啊？

倾斜度随线段！

[VBALISPER]恐龙 10:25:31

ET可以做假断口,文字遮罩

[THH] 10:25:57

[qqimg]201307/{10C35ACE-02B8-3CB1-720C-8C3675B0B2D8}.jpg[/qqimg]

lisp能不能实现那种功能啊，我只懂点Lisp

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

基本就是这几个函数，你自己凑凑

[VBALISPER]恐龙 10:27:11

ET= EXPRESS TOOLS,CAD自带的工具箱

[THH] 10:27:18

OK

留着，有时间，试试

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

再加个angle

[THH] 10:28:40

恩

谢谢

[vormittag]桔子 10:29:06

textbox

[THH] 10:31:38

ET里边没有

[VBALISPER]恐龙 10:32:23

textmask

[THH] 10:34:46

恩

[THH] 10:36:13

textmask是个办法

[阿然][阿然] 10:36:56

textmask就是wipeout，然后弄成匿名组

[THH] 10:37:38

恩，还是写个程序，只管选择线来的快，呵呵

明经快报

[夏生生][x_s_s_1]生无可恋 11:09:53

(defun c:test1 (/ en ent pt1 pt2 ang str h mid w)
  (setq    en  (car (entsel))
    ent (entget en)
    pt1 (cdr (assoc 10 ent))
    pt2 (cdr (assoc 11 ent))
    ang (angle pt1 pt2)
    str (getstring "\ntext:")
    h   (getreal "\ntexth:")
  )
  (setq mid (mapcar '(lambda (x y) (/ (+ x y) 2)) pt1 pt2))
  (entdel en)
  (setq w (/ (car (cadr (textbox (list (cons 1 str) (cons 40 h))))) 2))
  (entmake (list '(0 . "line")
         (cons 10 pt1)
         (cons 11 (polar mid (+ pi ang) w))
       )
  )
  (entmake (list '(0 . "line")
         (cons 10 (polar mid ang w))
         (cons 11 pt2)
       )
  )
  (entmake (list '(0 . "text")
         '(100 . "AcDbEntity")
         '(100 . "AcDbText")
         (cons 10 mid)
         (cons 1 str)
         (cons 40 h)
         '(41 . 0.75)
         '(72 . 1)
         (cons 11 mid)
         (cons 50 ang)
         '(73 . 2)
       )
  )
)

明经快报

[vormittag]桔子 11:22:15

忘了lsp没有sign函数了，自定义一个sign函数还是要判断。

[vormittag]桔子 11:23:35

直线向量与ucs的X轴向量点积取符号，乘以角度就可以了。

[阿然][阿然] 11:24:44

桔子向量研究的挺透的，我空间解析几何基本为0

[夏生生][x_s_s_1]生无可恋 11:25:25

桔子兄，我刚刚那个连线的图片可以看到否

[vormittag]桔子 11:25:49

没看明白啥意思。

[夏生生][x_s_s_1]生无可恋 11:26:26

也就是很多空间点，连接成矩形网格

[vormittag]桔子 11:27:00

什么数据格式？

[夏生生][x_s_s_1]生无可恋 11:27:09

point

[vormittag]桔子 11:27:21

数据结构

[夏生生][x_s_s_1]生无可恋 11:27:38

难住我了

[vormittag]桔子 11:28:34

五个表，共线的三条红线上的点三个表，绿线上的点两个表？

[夏生生][x_s_s_1]生无可恋 11:28:46

[qqimg]201307/{05406661-E7D2-B472-8825-F84D9E6F0B4B}.jpg[/qqimg]

[夏生生][x_s_s_1]生无可恋 11:30:25

绿色一个表（矩形网），红色一个表（矩形网），黄色为绿色和红色表的并集（三角网）

[夏生生][x_s_s_1]生无可恋 11:31:04

ptlst要排序吗？

[夏生生][x_s_s_1]生无可恋 11:31:38

这样应该不对

[vormittag]桔子 11:31:41

要的，关键是构造好数据结构。

[vormittag]桔子 11:34:30

你这是有限元网格剖分么？

[夏生生][x_s_s_1]生无可恋 11:34:57

不是，是桁架简模，和有限元网格划分很像

我的点是已知的

[vormittag]桔子 11:36:38

空间桁架还是平面桁架？

看样子是空间桁架。

[夏生生][x_s_s_1]生无可恋 11:37:26

[qqimg]201307/{42B2E82B-DAD3-5A9B-83D6-A61EE9D6C362}.jpg[/qqimg]

空间桁架

[夏生生][x_s_s_1]生无可恋 11:38:13

[qqimg]201307/{BFEFCCA1-DF93-D054-7570-32EF6308FBF6}.jpg[/qqimg][qqimg]201307/{DAEF6A13-56A3-6B9E-C47C-4067299CA50F}.jpg[/qqimg]

[夏生生][x_s_s_1]生无可恋 11:39:27

单个还好说，我通过点取拉线，点多了就烦了

[vormittag]桔子 11:39:27

节点总归按特性分类了。

[夏生生][x_s_s_1]生无可恋 11:40:15

按所在层次划分了节点类型

[kwok][kwok]巭隼 11:41:27

3D了，这么先进

[vormittag]桔子 11:41:29

好像还得有些集合的运算。

[夏生生][x_s_s_1]生无可恋 11:41:54

查了些资料，好像是非常复杂

[vormittag]桔子 11:41:58

和、差、并、补。

[夏生生][x_s_s_1]生无可恋 11:42:12

自己的数学及几何基础太差，搞不定

在这里5个5个的拉呢

[vormittag]桔子 11:43:26

这种异型的东西就先别用程序了，太复杂了。程序写完了，整个工程都要完工了。

[cie0588][cie0588] 11:43:59

右下角显示线宽就是这样的了

[夏生生][x_s_s_1]生无可恋 11:44:47

sb建筑佬一顿乱画，求公式都求不出，前段时间我不是问过关于圆柱的方程嘛，我好不容易搞出来建筑说不是柱面，也不是球面，具体是什么面他也不知道

[夏生生][x_s_s_1]生无可恋 11:45:39

我干脆就不求公式了，直接用体去求了

[vormittag]桔子 11:45:39

[夏生生][x_s_s_1]生无可恋 11:46:21

直接拉的画一不注意就拉错

我都是分段编程的了

画到哪编到哪，直接画会搞死去

[vormittag]桔子 11:47:04

临时当脚本用也不错。

[夏生生][x_s_s_1]生无可恋 11:47:16

嗯

[vormittag]桔子 11:47:45

全世界的结构佬都在被建筑佬蹂躏啊。

[夏生生][x_s_s_1]生无可恋 11:47:55

[kwok][kwok]巭隼 11:48:00

请指指一下，我点选红线，怎么让下面的字也一起选中?

[qqimg]201307/{4C74739A-D27F-CC3A-559A-6C74F54AE4C3}.jpg[/qqimg]

[夏生生][x_s_s_1]生无可恋 11:48:18

红线和字的关系

[kwok][kwok]巭隼 11:48:33

没有关系只放在线下面

[夏生生][x_s_s_1]生无可恋 11:48:42

距离是任意的？

[阿然][阿然] 11:48:58

做结构的都是很可怜

[夏生生][x_s_s_1]生无可恋 11:49:29

也不是，我们单位建筑的水平低了

[kwok][kwok]巭隼 11:49:30

是的，但离线都比较近的

[vormittag]桔子 11:49:46

你想选文字就直接选文字，至于懒成这样么？

[夏生生][x_s_s_1]生无可恋 11:49:51

和哈工大配合的是后他们都是建筑提供公式

时候

[夏生生][x_s_s_1]生无可恋 11:50:35

有些建筑人员几何很强的，例如高飞鸟版主（疑似建筑师）

[vormittag]桔子 11:51:06

但是很多建筑在结构上很难做。

[flytoday]过^-^客 11:51:10

就是建筑师

[kwok][kwok]巭隼 11:51:15

我笨方法是通过点选的点做了一个以矩形的宽度范围的框选

[偏爱云~小吴] 11:51:22

你们嘛事单位啊

[夏生生][x_s_s_1]生无可恋 11:51:40

草鸡设计院了

[vormittag]桔子 11:52:10

结构上难做的东西都是建筑搞的，搞好了是他们的功劳，做不出来是结构没本事。

[偏爱云~小吴] 11:52:15

呵呵,不用这样自嘲的

[vormittag]桔子 11:52:26

超级设计院

[偏爱云~小吴] 11:52:47

牛比

[夏生生][x_s_s_1]生无可恋 11:54:06

做桥的也要受建筑专业折磨

[偏爱云~小吴] 11:54:45

桔子大哥,前两天帮我改的哪个程序加个文字筛选然后线性默认怎么写

[夏生生][x_s_s_1]生无可恋 11:55:04

[qqimg]201307/{37EDD6FB-6688-DA50-9D01-1D8E02514E3E}.jpg[/qqimg]这已经是业内公理了

[mitenickevin]kevin 11:55:06

我们院结构是老大，建筑没地位。

[偏爱云~小吴] 11:55:26

弱弱的问下,建筑就这么屎

[夏生生][x_s_s_1]生无可恋 11:55:27

那是草台班子

有牛逼的

建筑牛逼设计院也牛逼

[偏爱云~小吴] 11:55:50

我家外甥刚准备报

[mitenickevin]kevin 11:55:56

建筑设计好的造型，结构说做出不来。

[7299969]人生 11:56:16

有个专业牛逼就行了

[vormittag]桔子 11:56:19

桥梁还好，建筑管不到我们。桥梁和道路是相互制约。

[夏生生][x_s_s_1]生无可恋 11:56:41

有时桥梁的造型还是建筑师搞的

[7299969]人生 11:56:42

建筑结构都牛不太好找

[kwok][kwok]巭隼 11:56:47

，一[qqimg]201307/{F2E59F54-F22D-0AF0-0EB3-1B1679F3E5DF}.jpg[/qqimg]现在没有结构弄不出来的吧

[mitenickevin]kevin 11:56:53

我们院结构认为很麻烦的东西，就会说四个字。“做不出业”

[kwok][kwok]巭隼 11:56:54

除非不想弄

[夏生生][x_s_s_1]生无可恋 11:57:10

结构首先要在保证安全的情况下优先保证建筑造型

[mitenickevin]kevin 11:57:17

就是他认为麻烦。

[vormittag]桔子 11:57:26

结构做不出来的多了去了。

[夏生生][x_s_s_1]生无可恋 11:57:33

只不过是成本上增加甲方能否接受

[vormittag]桔子 11:57:52

1000m跨径的桥， 20cm梁高，你做一个我看看。

[夏生生][x_s_s_1]生无可恋 11:58:08

老牌建筑师的结构概念很强的，很少做出结构做不出的建筑

[mitenickevin]kevin 11:58:18

基本上没有结构做不出来的东西。只是他们不想去实现而以。

[夏生生][x_s_s_1]生无可恋 11:58:22

那是没结构概念的建筑师设计出的东西

[kwok][kwok]巭隼 11:58:40

[qqimg]201307/{05B96AAF-A80C-7750-15E8-04F1EB10CA04}.jpg[/qqimg]

[vormittag]桔子 11:58:54

你把结构想的太神了。

[7299969]人生 11:59:06

协商，合作才对

[csc123456]顽强 11:59:17

要看是不是临时工

[mitenickevin]kevin 11:59:25

[qqimg]201307/{42EB6E48-EA3D-95FA-0FAA-97D59F68384D}.jpg[/qqimg]

[kwok][kwok]巭隼 12:00:00

现在临时工多呀

[偏爱云~小吴] 12:00:06

我说人家鸟巢都造出来了,还有什么结构解决不了的

[夏生生][x_s_s_1]生无可恋 12:00:15

大家进鸟巢看看

那真的是鸟巢

[mitenickevin]kevin 12:00:37

你们要是看了小鬼子的东西，我们的结构我都不想说了

[夏生生][x_s_s_1]生无可恋 12:00:52

为了满足外立面，破坏了建筑内部功能

[偏爱云~小吴] 12:00:54

还是你们无能人家法国人怎么能搞定的

[mitenickevin]kevin 12:01:01

那个是用CATIA做的。

[vormittag]桔子 12:01:24

结构都是中国人做的。

[csc123456]顽强 12:01:48

人家只做概念哈

[偏爱云~小吴] 12:01:55

迪拜那么多反常规的建筑不也搞定了

[kwok][kwok]巭隼 12:02:08

[qqimg]201307/{1E01EB37-987D-8E4B-2C4B-D8B276A0BE2F}.jpg[/qqimg]

[flytoday]过^-^客 12:02:14

鸟巢…高飞鸟参加设计了

[vormittag]桔子 12:02:15

看来你不是太懂结构

[夏生生][x_s_s_1]生无可恋 12:02:18

悬挑9米，给你300mm的结构高度，如何做得出咯

[mitenickevin]kevin 12:02:24

建模是中国人，想法是别人的

[偏爱云~小吴] 12:02:29

不是说是法国搞的么

[OWEN7][qqou7]ya雀无声 12:02:54

高飞鸟参加设计了？

[夏生生][x_s_s_1]生无可恋 12:03:00

kevin兄进内部看过没有？

[偏爱云~小吴] 12:03:07

真心的不懂

[夏生生][x_s_s_1]生无可恋 12:03:09

多大的代价

那个东西方案本身就不合理

[vormittag]桔子 12:03:30

这种工程就是烧钱。

[偏爱云~小吴] 12:03:51

面子工程还是要的

[夏生生][x_s_s_1]生无可恋 12:03:53

开饭咯[qqimg]201307/{AAD26CF6-FD56-D30D-69B7-B5D7FFA0DF9C}.gif[/qqimg]

[vormittag]桔子 12:03:54

鸟巢、裤衩都是不合理结构。

[mitenickevin]kevin 12:04:03

中国就是钱多

[夏生生][x_s_s_1]生无可恋 12:04:16

国家大剧院也不是什么好东西

[yifei]绝然 12:04:18

那些年 好像是戴高乐机场顶出问题了 上海虹桥 好像是同一个人设计的。。

最后结论是设计没问题

要是神十失败了。。你们肯定骂声一片

[AMKYUD][AMKYUD]??? 12:04:32

大家觉得裤衩好看吗

[偏爱云~小吴] 12:04:46

裤衩怎么不合理,感觉结构上没什么问题啊

不好看归不好看

[mitenickevin]kevin 12:05:34

结构的东西不太懂。

[yifei]绝然 12:05:38

有那个自信也没有那个胆量

[偏爱云~小吴] 12:05:57

你看看我们鼓楼医院搞的跟坟场似的

哎

[vormittag]桔子 12:06:31

你保持一个拉完屎以后刚站起来的姿势，大腿呈水平，呆两分钟你就知道合不合理了。

[AMKYUD][AMKYUD]??? 12:06:44

人家领导觉得好看

[偏爱云~小吴] 12:07:46

人字形,结构还算稳定吧

[mitenickevin]kevin 12:08:09

明经快报

[无痕]午夜咖啡 13:02:26

人字形---那是埃菲尔铁塔。钢”门“字型，是大裤衩，能一样么

[vormittag]桔子 13:03:38

大裤衩就是拉完屎起身的造型。

[无痕]午夜咖啡 13:06:53

也就是开腿扎马翘臀，等着老百姓艹的姿势

[enixing]enixing 13:07:04

那是体现中国传统武术根基呢

一切从扎马开始

明经快报

[mmh1][mmh1]漫步地球 14:30:16

no function definition: ROMPT

明经快报

[gtj116600]轶凡 15:04:49

(command ".move" ss "" "non" "@" "\")

[gtj116600]轶凡 15:05:42

请教一个问题，请高手吧上述语句帮帮忙，给解释解释呗

明经快报

[tiyi8888]永远D痛 15:17:27

在CAD操作一下就知道了

移动  选择，不捕捉

，，