2013-05-20 明经 AutoLISP 编程(102918348) 群聊记录：账号哪儿来的？

明经快报

[328302216][328302216]小莫 15:52:31

在布局里面不能用entmake吗？

[不死猫][nonsmall]不死猫 15:54:02

左边是原配

[不死猫][nonsmall]不死猫 15:55:58

镜头第一幕看见男的被打，打人的应是抓到他们的原配，
第二个被打的就是左面的，因此是左原配右小三

[328302216][328302216]小莫 15:57:04

其实两个都是小三 

[不死猫][nonsmall]不死猫 15:57:23

如果第一个被打的是小三  那就真是那男的是小三了

[HNFSF](看海) 15:58:38

猫猫，ctrl+c，ctrl+v一个图块A到另一个图中（图中也包含有块A），怎么用ctrl+v进来的图块A替代原图中的图块A

[不死猫][nonsmall]不死猫 15:59:33

画图的问题基本不会

[HNFSF](看海) 15:59:45

这个是编程的问题

[不死猫][nonsmall]不死猫 15:59:45

[qqimg]oldimg/{DE81DF66-04D7-5E3B-AB79-787BFAC20D58}.gif[/qqimg]

同名图块 默认覆盖

[HNFSF](看海) 16:00:20

就是在ctrl+v进来的时候要先检查图中是否有块A

[不死猫][nonsmall]不死猫 16:00:40

写个反应器呗

[HNFSF](看海) 16:00:50

不是覆盖吧，是按同原来的

[不死猫][nonsmall]不死猫 16:01:00

估计比较麻烦

[HNFSF](看海) 16:01:16

不麻烦都不找猫猫了

院长没搞定

[不死猫][nonsmall]不死猫 16:01:24

单独写个插块程序

[HNFSF](看海) 16:01:55

因为看到天正改写了ctrl+v，所以决定应该还是有可能

命令: T81_TPasteClip
点取位置或 [转90度(A)/左右翻(S)/上下翻(D)/对齐(F)/改转角(R)/改基点(T)]

[不死猫][nonsmall]不死猫 16:02:59

简单的-  1 记录现有图块名  2 重命名所有图块名  3 插入图块 4 检查与记录是否冲突 5 冲突则重命名 6 还原所有图块名

[HNFSF](看海) 16:05:18

重命名的有可能和图中的有冲突啊

[HNFSF](看海) 16:05:50

还有嵌套块的问题

应该是冲突则替换

笑对人生 16:07:17

咨询一下

(vlax-property-available-p obj prop [check-modify])

中的vlax-property-available-p函数怎样使用

看到实例是：

想问题的问题就是：

(vlax-property-available-p WhatsMyLine “Color”)行不行

笑对人生 16:09:56

怎样验证

[HNFSF](看海) 16:11:19

还有怎么提取ctrl+c内容中的图块？

读内存？

笑对人生 16:17:58

希望各位高手发表高见

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

list的简单界面怎么处理。

我现在想学一下

[qqimg]oldimg/{1029CBAA-9D96-8BA8-082F-C38F0F943262}.jpg[/qqimg]

比如这种是怎么做出来的

有教程么

明经快报

[mccad][MCCAD] 17:18:48

小明看来又被TX屏蔽了

私聊吧，私聊没影响

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

哦，还可以私聊啊

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

[qqimg]oldimg/{76DFA4D5-748E-0892-EA02-EE9B036509B9}.gif[/qqimg]

[雨的节奏][雨的节奏] 17:19:47

[pzweng]路人 17:20:20

这车子中风了吧

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

[328302216][328302216]小莫 17:21:26

高手些看来都是闲得很啊   还有空用这个来开发些小游戏玩

笑对人生 17:24:24

呵呵，这可是高手中的高手呀

牛的很呀

[tzan8752]测量工 17:25:14

笑对人生 17:25:15

不死猫，听着就是响当当的人物

笑对人生 17:26:36

下次猫老师培训，怎么忙也的学学，跟高手学才能有长进呀

[cmbcmbcjh]兮兮 17:29:13

[qqimg]oldimg/{76DFA4D5-748E-0892-EA02-EE9B036509B9}.gif[/qqimg]

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

这个是草图大师做的哗哈哈哈

water_system 17:30:11

什么软件？

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

SketchUp草图大师

我们做建筑效果图建筑的时候也用这个软件

water_system 17:30:59

哦

了解

[328302216][328302216]小莫 17:35:54

(defun c:txhy()
  (setq v1 (getvar "cmdecho"))                  
  (setvar "cmdecho" 0)

  (setq hy (getfiled "图形还原" "" "txt" 2))
  (setq hy1 (open hy "r"))
  (setq hy2 (read (read-line hy1)))
  
   (while hy2
     (entmake hy2)
     (setq hy2 (read (read-line hy1)))
   )
  (close hy1)
  (setvar "cmdecho" v1)
  )

[328302216][328302216]小莫 17:36:36

我这个程序在模型里面可以执行，在布局里面执行提示  命令: TXHY
; 错误: 参数类型错误: stringp nil

是怎么回事？

[328302216][328302216]小莫 17:37:35

是不是布局里面用不了entmake？

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

文件内容
((0 . "LINE") (5 . "2B68") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "07结构") (100 . "AcDbLine") (10 4628.07 4234.24 0.0) (11 5703.07 4234.24 0.0) (210 0.0 0.0 1.0))
((0 . "LINE") (5 . "2B67") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "07结构") (100 . "AcDbLine") (10 4628.07 4234.24 0.0) (11 5703.07 4234.24 0.0) (210 0.0 0.0 1.0))
((0 . "LINE") (5 . "2B66") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "07结构") (100 . "AcDbLine") (10 5703.07 4234.24 0.0) (11 5703.07 3854.24 0.0) (210 0.0 0.0 1.0))
((0 . "LINE") (5 . "2B65") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "07结构") (100 . "AcDbLine") (10 5703.07 3854.24 0.0) (11 5933.07 3854.24 0.0) (210 0.0 0.0 1.0))
((0 . "LINE") (5 . "2B64") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "07结构") (100 . "AcDbLine") (10 5933.07 3854.24 0.0) (11 5933.07 4154.24 0.0) (210 0.0 0.0 1.0))

[328302216][328302216]小莫 17:42:16

模型里有效果，可以把线画出来，布局里面没效果，什么都没画！这是什么情况？各位懂的指定一下

[328302216][328302216]小莫 17:43:00

指定=指点

[328302216][328302216]小莫 17:46:54

[LC100]建筑设计 17:51:17

`你是说线吗？

线型之类是吗？

如果是，我能告诉你为什么

明经快报

[328302216][328302216]小莫 18:04:45

应该不是线型的问题吧

[328302216][328302216]小莫 18:05:30

看来只能用另外的方法了

日月星 18:08:42

正在研究一个程序，不知道它是怎么自动加载fas文件的，1.注册表没有，2.启动组没有，3.mnu文件也没有，4.安装文件中也没有外接程序，5.autolsp文件也没有。纯粹的用lisp编写的，不知哪位高手能指点下还有其他的自动加载fas的方法吗？

[328302216][328302216]小莫 18:11:16

这么高端

日月星 18:11:51

哎，不知道，正在研究

[LC100]建筑设计 18:12:15

发给我看一下，

日月星 18:12:39

我加你为好友

[天财]天财 18:16:23

[qqimg]oldimg/{41A0506A-B96A-767D-7DF5-CDBFDE81E6CB}.jpg[/qqimg]
[qqimg]oldimg/{C456CC8B-8EB9-CFB0-4A6D-B86E39035384}.jpg[/qqimg]
干十年你存款有110万没 
[qqimg]oldimg/{0C12C54B-579A-A2E8-9658-F1CB3E63118E}.gif[/qqimg] 人家还包吃住

[328302216][328302216]小莫 18:19:14

但是也受了不少苦啊   而且没钱也可以活的很快了

[ds-limt]-厨师木 18:20:17

大家好，能帮我看个TXT文件吗？

[ds-limt]-厨师木 18:20:50

怎么识别txt文件的逗号是全角还是半角？

[328302216][328302216]小莫 18:21:33

查找替换

[ds-limt]-厨师木 18:22:03

看不出来，

[qqimg]oldimg/{70BAA674-C803-EB37-EDB5-7C1294B7CEF9}.jpg[/qqimg]

[ds-limt]-厨师木 18:23:27

就是替换也不行，我的CAD是2002的

明经快报

[flytoday]过^-^客 19:04:29

今天520
一男生，生性腼腆。向女孩表白，用纸条写上：5201314（我爱你一生一世）。纸条回来后写着(520+1314)×10倍，此男生欣喜若狂。
同桌冷冷地说道：
呆子，计算结果是18340（一巴扇死你）

明经快报

[VBALISPER]恐龙 19:26:39

两种逗号各写一个就知道了.你两张图都是半角

明经快报

[weiqi]weiqi 20:10:50

1.一日支嘴甜无时歇。
2.吕等下肉着痛。
3.懒过屎虫。
4.一日甜甜木电脑。
5，出去迈卡晚蹬。
6，欢无爱食猛！食慢收床。
7.淤薯仔饲吕了无用。
8.一日甜甜椅到晚晚欢无爱食猛早。
9.担死担卖变。
10.吕个是多斗笨头夺来个。
11.吃哩尚欠，烧护哩卖。
12.甲领父块衰形病病样。
13.一日甜吃掉米定。
14.吕者个书读无用个。
15.小鬼动戏，一日无时无店。
16.照案吕欢无爱猛猛去椅。
17.分你气了着破相。
18书哩读卖，耍哩尚欠。
19.吕者讨债仔正好啊。
20.再除人，我掠你卖分外省仔。
21.趟日掂掂多被康底耍手机，等下只目着青夜。
22.一夜无咩事，早下椅麦掂熬夜。
23.懒人屎尿哆。
24.走起奥，一夜哩晚晚椅，一日哩椅晚晚。
25.食家两碗落去，等下肚正卖困。
26.考这鬼分物，去去叫领父签名。
27，作业做直未，未好猛猛认真去做。
28，别人奴仔尚乖呐，免人防罗，饲吕食掉米个。
29.天时言，着知穿烧，莫分伊寒着。
30.死精仔，讨债仔。白仁仔，公仔。
那些年，妈妈整天在你耳边唠叨的日子，看看你有多少条中枪了。

[328302216][328302216]小莫 20:11:46

明经快报

[ZZXXQQ] 20:38:17

[328302216]小莫(328302216)：要删去数据中的410组码

[328302216][328302216]小莫 20:40:11

哦  好的 谢谢Z版  我明天再试试

明经快报

[mccad][MCCAD] 21:05:47

[qqimg]oldimg/{18CEF73C-4637-A42D-6E6B-36ADE75FB1B4}.jpg[/qqimg]开始讲潮州话了

[328302216][328302216]小莫 21:09:12

额  原来那是潮州话啊    怪不得看不懂

[VBALISPER]恐龙 21:10:06

4。整天摸电脑？

[328302216][328302216]小莫 21:11:02

谁翻译一下 

[xiaomm09]江湖 21:11:13

[LC100]建筑设计 21:12:38

good good 死大di up

good good 死大di day day up

[328302216][328302216]小莫 21:13:13

明经快报

[kwok][kwok]巭隼 21:44:34

请问一下面提示参数太少
(setq EN (entsel))
(setq p1 (apply '(vlax-curve-getClosestPointTo en)))
需要再加什么?

明经快报

[kwok][kwok]巭隼 21:55:02

(cadr en)取得的是线的最近端点了， 我测了是这样，为什么呢

[qqimg]oldimg/{D0C85A29-B4D2-ED69-27D7-D120C0ACA6E7}.jpg[/qqimg]

我想达到上图那样

[ZZXXQQ] 21:56:26

如果已经打开了最近点的捕捉，(cadr en)就是最近点

[kwok][kwok]巭隼 21:56:43

原来是这样，

怪不得

谢谢

[mccad][MCCAD] 22:02:30

1.一日支嘴甜无时歇：每天嘴巴不停(指叽叽喳喳)

[mccad][MCCAD] 22:03:46

2.吕等下肉着痛。：你等下得挨揍

[mccad][MCCAD] 22:04:23

3.懒过屎虫。：如屎虫一样懒

4.一日甜甜木电脑。天天玩电脑

5，出去迈卡晚蹬。：出去不要太晚回家

[mccad][MCCAD] 22:05:30

6，欢无爱食猛！食慢收床。：还不快点吃，吃得慢的收拾桌子

[mccad][MCCAD] 22:06:20

7.淤薯仔饲吕了无用。：不懂事的小孩，养了没有用

[天财]天财 22:07:22

目涩

[mccad][MCCAD] 22:07:46

其实真的翻译还有点难，呵呵

[ZZXXQQ] 22:08:15

有点象外语

[mccad][MCCAD] 22:08:39

这些话基本上都是小时候自己的父母经常唠叨的话

[mccad][MCCAD] 22:09:32

[qqimg]oldimg/{AEC6ED5D-2244-3F86-C484-D7EA7CDFD10E}.jpg[/qqimg]好吃懒做

[天财]天财 22:09:55

目涉死

是什么意思

[qqimg]oldimg/{FAE3F042-770D-7CC6-E34B-4EBA300E4957}.GIF[/qqimg]

[mccad][MCCAD] 22:10:08

[qqimg]oldimg/{361A5EFF-A26E-B2EE-4359-CECCE25CB252}.jpg[/qqimg]这个意思也差不多

[mccad][MCCAD] 22:10:54

目涩死 指累想睡觉

[天财]天财 22:11:12

担你知

[weiqi]weiqi 22:11:28

...

[天财]天财 22:11:54

日无浪事 夜浪无事

[天财]天财 22:12:34

迫过火

[weiqi]weiqi 22:12:44

紫住紫娘死副雅

紫住资娘死副雅

[天财]天财 22:13:35

无亩过奸苦

[qqimg]oldimg/{740CAECF-D919-B89F-F026-2AEC60436832}.GIF[/qqimg]

[weiqi]weiqi 22:13:57

。。。。

[fsxm]飞诗 22:14:11

[qqimg]oldimg/{87D78D34-5DCA-B9A2-3AFC-5B19F11E0A9C}.gif[/qqimg]都在说火星话

[天财]天财 22:14:34

无亩过奸苦 ---没有老婆好辛苦

咋亩 --女人

[weiqi]weiqi 22:15:24

咋亩 --女人 是闽难话吧

咋亩 --女人 是闽南话吧

[mccad][MCCAD] 22:16:04

姿娘 就比较文雅了

[weiqi]weiqi 22:16:12

[mccad][MCCAD] 22:16:25

有姿色的小娘子 就是指女人，多好

[weiqi]weiqi 22:16:47

。。。。

[天财]天财 22:17:08

过咸 ----好色

[weiqi]weiqi 22:17:20

过咸 ----好色？。。。

过咸 ----抠门

[天财]天财 22:17:49

条股过咸--黄色笑话

[weiqi]weiqi 22:18:11

过塞 ---- 才是 好色

这个是。

条股过咸--黄色笑话 这个是。

[天财]天财 22:20:50

了胆作年物----怎么办

[weiqi]weiqi 22:20:59

让明总带我们去垛鸡。。。

[weiqi]weiqi 22:22:47

[qqimg]oldimg/{DE0D066E-8DAA-6A4C-4C53-E2A182F41EF7}.jpg[/qqimg]

[LC100]建筑设计 22:24:47

牙灭哆

[LC100]建筑设计 22:25:30

Z
  Z
 Z
z

[weiqi]weiqi 22:26:06

吕等下肉着痛

[LC100]建筑设计 22:26:32

乌里妈叉

[weiqi]weiqi 22:26:46

[天财]天财 22:27:22

 你见过鸡会笑吗

[mccad][MCCAD] 22:28:00

下线了，你们玩吧

[天财]天财 22:28:05

我以前在家乡时候 一只鸡经常学人笑声 声轻蔑那种笑

[mccad][MCCAD] 22:28:14

目涩死

[weiqi]weiqi 22:28:26

猛猛去睡

[weiqi]weiqi 22:29:03

猫学人哭就很多

狐来猫

[lisp-study]jun 22:29:39

请问lisp可以操作多线样式么

[LC100]建筑设计 22:29:58

可以

好像

[weiqi]weiqi 22:30:13

[lisp-study]jun 22:30:17

有例子么

学习学习

[weiqi]weiqi 22:33:12

组码2

[lisp-study]jun 22:34:45

可以entmake？

[weiqi]weiqi 22:35:05

不是 entmake 是另外个函数更改的那个，

[lisp-study]jun 22:35:48

就是dxf操作嘛

[weiqi]weiqi 22:35:59

entmod

[lisp-study]jun 22:36:44

噢 我是想问能不能entmake多线样式

好像不得行

[ZZXXQQ] 22:40:38

论坛上Gu版写过

[lisp-study]jun 22:41:08

我怎么搜了半天没搜到呀

[weiqi]weiqi 22:41:15

entmod 貌似也不行~不知道出错在哪~

(defun c:ttz()    
(setq en (car (entsel))) 
    (setq ed (entget en))
    (setq ed
          (subst (cons 2 "23123")(assoc 8 ed)ed)
     )          ; ; ; 将ed的样式改为改为“23123”
    (entmod ed) ; ; ; 修改图元en在图形中的组码2
)

[lisp-study]jun 22:41:51

这个我晓得哈 谢谢

[weiqi]weiqi 22:42:12

[qqimg]oldimg/{0DDA8458-A896-9339-0A8F-4DADB518311B}.jpg[/qqimg]

[weiqi]weiqi 22:42:51

改不动 不知道什么情况~