2013-08-09 明经 AutoLISP 编程(102918348) 群聊记录：(defun la_mx ( lt_x n_x / );创建图层 (entm

明经快报

[啵浪鼓] 00:15:21

(defun la_mx ( lt_x n_x / );创建图层
(entmake (list '(0 . "LAYER") 
               '(100 . "AcDbSymbolTableRecord") 
               '(100 . "AcDbLayerTableRecord")
               '(70 . 0) 
                (cons 6 lt_x)
                (cons 2 n_x)
         )
)
(princ)
)
(la_mx "DASHED" "abcd")

明经快报

[tryhi]大海 11:43:46

[qqimg]201308/{9840B9F0-920D-3A41-F0A6-4F0B62B2B73C}.jpg[/qqimg]

请问一下这个“对正”是那个表

哪个

((-1 . ) (0 . "TEXT") (330 . ) (5 . "670") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "tk") (6 . "Continuous") (100 . "AcDbText") (10 505492.0 2.55026e+006 0.0) (40 . 2.5) (1 . "秘密") (50 . 0.0) (41 . 1.33) (51 . 0.0) (7 . "tk1") (71 . 0) (72 . 4) (11 505495.0 2.55026e+006 0.0) (210 0.0 0.0 1.0) (100 . "AcDbText") (73 . 0))

[duotu007]查理 11:47:59

[qqimg]201308/{0D14B56E-0289-AA81-E713-63C4F403FD3C}.jpg[/qqimg]

[tryhi]大海 11:48:14

感谢

明经快报

[OWEN7][qqou7]clever 13:44:38

(tblsearch "layer" "BEAM_TE" "BEAM")

这个能做一个列表吗，

[lisp-study]jun 13:46:44

自己写个代码可以

[OWEN7][qqou7]clever 13:48:28

(defun c:TT() 
  (if(not(tblsearch "layer" (LIST "BEAM_TE" "BEAM")))(progn
    (alert "层不存在")
    (quit))
    )
  (setq ename(tblobjname "layer" (LIST "BEAM_TE" "BEAM")))
  (setq ent(entget ename))
  (setq frz(cdr(assoc 70 ent)))
  (if(= frz 1)
    (progn
      (setq ent(subst(cons 70 0)(assoc 70 ent)ent))
      (entmod ent)
      )
    (progn
      (setq ent(subst(cons 70 1)(assoc 70 ent)ent))
      (entmod ent)
      )
    )
  (princ)
  )

这个实现不了呢

额

ENT只能是一个

[pzweng][pzweng]路人 13:54:20

靠你自己完成呀

[OWEN7][qqou7]clever 13:54:38

这样不行

[pzweng][pzweng]路人 13:54:48

你的字搞这么大干嘛

[OWEN7][qqou7]clever 13:55:20

这样不行，为什么

[OWEN7][qqou7]clever 13:57:59

路人兄求指点

[pzweng][pzweng]路人 13:58:19

给你个思路行么？

[OWEN7][qqou7]clever 13:58:38

水平太菜，估计不行

[pzweng][pzweng]路人 13:58:46

我试试看

我也未必可以

[OWEN7][qqou7]clever 13:59:17

嗯，

[pzweng][pzweng]路人 13:59:24

刚才开心在，你怎么不找他

[OWEN7][qqou7]clever 14:00:01

开心 没空，他在忙

[pzweng][pzweng]路人 14:00:32

这个功能只需要他几分钟时间

[【KAIXIN】] [【KAIXIN】]炫翔 14:04:53

用VLA函数

[OWEN7][qqou7]clever 14:05:12

开心 写一个，2分钟

[【KAIXIN】] [【KAIXIN】]炫翔 14:06:22

论坛好象有写

[OWEN7][qqou7]clever 14:06:34

没有

[【KAIXIN】] [【KAIXIN】]炫翔 14:06:39

http://bbs.mjtd.com/thread-99208-1-1.html

[OWEN7][qqou7]clever 14:06:41

搜索过了

[【KAIXIN】] [【KAIXIN】]炫翔 14:07:03

锁定图层是否？

对 冻结

[【KAIXIN】] [【KAIXIN】]炫翔 14:08:01

[qqimg]201308/{37992350-86E1-870A-5296-2DB524160AD4}.jpg[/qqimg]

[qqimg]201308/{085C2A53-1A82-CAE8-2040-20F91D5F173F}.jpg[/qqimg]

[tiyi8888]永远D痛 14:08:17

这个图炸不开

谁能帮我炸开呀

[【KAIXIN】] [【KAIXIN】]炫翔 14:08:46

弄图的目的  就是不让你用现成的

得看懂

[tiyi8888]永远D痛 14:09:02

上次有人能炸开的

哈哈

[【KAIXIN】] [【KAIXIN】]炫翔 14:09:08

不想的话 直接上源码

[【KAIXIN】] [【KAIXIN】]炫翔 14:10:07

去论坛找一句 判断图层是否是冻结状态   遍历下图层名表就可以了

[OWEN7][qqou7]clever 14:10:42

(xx-lay-dj-name "1""2""3")name是列表吧

[【KAIXIN】] [【KAIXIN】]炫翔 14:10:46

命令 判断 是冻结时 就解冻  反之...

是图层名

不是表

[OWEN7][qqou7]clever 14:11:13

name可以是 列表吗

[pzweng][pzweng]路人 14:11:20

你需要哪些图层

[OWEN7][qqou7]clever 14:11:20

图层名 表

[pzweng][pzweng]路人 14:11:24

告诉我一下

[OWEN7][qqou7]clever 14:11:28

那只能是 一个图层？

BEAM  BEAM_TE BEAM_REIN

等等，

可以自己加，最好

[【KAIXIN】] [【KAIXIN】]炫翔 14:12:02

(foreach name (list "1" "2") (xx-lay-dj-name name)

后面少一括号

[OWEN7][qqou7]clever 14:12:26

恩，都试试

我发的那段代码也挺好的，就是不能 列表，

[【KAIXIN】] [【KAIXIN】]炫翔 14:13:12

就是说:不管是名 还是表 都进行处理

[【KAIXIN】] [【KAIXIN】]炫翔 14:13:58

[qqimg]201308/{24731E72-F813-3E77-CA61-603606E76115}.jpg[/qqimg]

慢慢的升级中

[pzweng][pzweng]路人 14:14:00

写好了

[OWEN7][qqou7]clever 14:14:19

好快

[【KAIXIN】] [【KAIXIN】]炫翔 14:14:26

抓住LISP的优势 坚决不学ARX等

[OWEN7][qqou7]clever 14:14:47

优势是 表

[pzweng][pzweng]路人 14:14:59

试试看吧

[pzweng][pzweng]路人 14:15:59

总共3句

呵呵

[【KAIXIN】] [【KAIXIN】]炫翔 14:16:06

70是图层的状态？

好像是  印象中

[pzweng][pzweng]路人 14:16:31

第一次设定变量，第二次判断图层是否存在，第三句切换

[OWEN7][qqou7]clever 14:16:40

取消COMMAND

再写一段

[OWEN7][qqou7]clever 14:17:15

我不知道为什么，特别反感command。

[pzweng][pzweng]路人 14:17:20

你又不画图，用command又无所谓

[pzweng][pzweng]路人 14:18:49

那你自己改一下吧

用entmod

[OWEN7][qqou7]clever 14:18:59

恩，

[pzweng][pzweng]路人 14:19:13

或用activex模型对像

command在画图元的时候很讨厌

其它一点也不碍事

[OWEN7][qqou7]clever 14:20:08

entmod还要取ENT

[pzweng][pzweng]路人 14:20:26

这里用command应该快些

[【KAIXIN】] [【KAIXIN】]炫翔 14:20:38

(and (member (cons 331 (tblobjname "layer" layer)) (entget vp)))
layer-----图层名
vp--------视口的图元名

返回T则冻结，nil则未冻结

[OWEN7][qqou7]clever 14:21:16

那就command吧

懒得改

[pzweng][pzweng]路人 14:22:25

改也快的

不过要自己动手试试

[OWEN7][qqou7]clever 14:23:45

你会当然快

我学了大半年，结果还是不会，只能看别人的代码

可能学习方法有问题

[mmh1][mmh1]漫步地球 14:25:20

command 版本不同，格式不一样

[OWEN7][qqou7]clever 14:25:36

对啊

这是悲剧，

[【KAIXIN】] [【KAIXIN】]炫翔 14:26:18

是的

[pzweng][pzweng]路人 14:26:20

改一下就行了呗

[【KAIXIN】] [【KAIXIN】]炫翔 14:26:25

一般用函数处理

一两个还行 多了就...

[pzweng][pzweng]路人 14:28:15

那就别换CAD版三

本

[xigemapenis]霁昶 14:30:26

今天好热呀，有北京的吗?

[pzweng][pzweng]路人 14:35:43

本人公司网络被限制，求高手帮忙破解

[pzweng][pzweng]路人 14:36:32

只需能登陆论坛，能发帖上传附就行

[野狼谷]笨鸟 14:36:34

这个群够呛

[pzweng][pzweng]路人 14:37:43

不需能进入色情网站和一些娱乐性质的网站,只求能进入明经与晓东就足矣

[500w008]宝林 14:37:58

[qqimg]201308/{5719EF34-16A3-D417-372B-91C7CB368EED}.GIF[/qqimg]

[野狼谷]笨鸟 14:38:25

你自己买个蓝牙接收器，手机当服务器

[pzweng][pzweng]路人 14:38:35

USB全封掉了

[野狼谷]笨鸟 14:38:43

现在网费很便宜

[pzweng][pzweng]路人 14:38:48

连鼠标与键盘全是圆接口

[野狼谷]笨鸟 14:39:14

哈哈哈，你们公司保密性很好啊

[mmh1][mmh1]漫步地球 14:39:18

带监控的话，再怎么改都白搭

明天网管就改了

[mmh1][mmh1]漫步地球 14:39:58

请网管吃饭，让网管给看看权限

开开

[野狼谷]笨鸟 14:40:15

自己搞个笔记本，接公司显示器

[mmh1][mmh1]漫步地球 14:40:45

估计都锁定了IP和物理地址

[野狼谷]笨鸟 14:41:00

双主机、一个显示器

[野狼谷]笨鸟 14:41:36

把笔记本藏桌下

[mmh1][mmh1]漫步地球 14:42:05

我刚来公司的时候也是被限制了，然后和网管关系搞好了，慢慢的就都OK了

[野狼谷]笨鸟 14:43:28

网管也是淫啊

[mmh1][mmh1]漫步地球 14:43:45

呵呵

[mmh1][mmh1]漫步地球 14:44:36

问个问题，很多大小不一的矩形块，的排料问题，能否解决？

[500w008]宝林 14:44:55

怎么用ENTMAKE写标注

[qqimg]201308/{652E5FBA-720C-64B1-7906-7EBFBD9DDDB0}.gif[/qqimg]

[dcl1214]昌立 14:45:02

[qqimg]201308/{BCA415B6-219B-8773-3A39-8F846BA85F23}.jpg[/qqimg]

dcl如何做到层级展开的？

[pzweng][pzweng]路人 14:45:32

我们公司网络包给外面公司的

[mmh1][mmh1]漫步地球 14:46:07

[OWEN7][qqou7]clever 14:47:19

[500w008]宝林   是什么程序

[mmh1][mmh1]漫步地球 14:48:37

[qqimg]201308/{B2363258-3303-3C1F-06AA-A835B96F5A79}.jpg[/qqimg]
我想查找A的时候选中第一个外围，查找B的时候选中B所在的外围，有没有办法实现？可否做标记？

[500w008]宝林 14:49:03

标注 ENTMAKE

[pzweng][pzweng]路人 14:50:19

[qqimg]201308/{1C4395CE-2ECA-AA3C-7815-1E6CCA06EE63}.gif[/qqimg]

[500w008]宝林 14:53:46

明经快报

[OWEN7][qqou7]clever 15:14:01

(defun c:test(/ layers temlay ent)
  (setvar "cmdecho" 0)
  (setq    layers '("BEAM_TE" "BEAM_R_TE" "BEAM" "BEAM_REIN") ;这里加入图层
    temlay '()
  )
  (mapcar '(lambda (x)
         (if (tblsearch "layer" X)
           (setq temlay (cons x temlay))
         )
       )
      layers
  )
  (setq ent(entget (tblobjname "layer" x)))
  (mapcar
    '(lambda (x)
       (if (= 1 (cdr (assoc 70 (entget (tblobjname "layer" x)))))
    (progn(setq ent(subst(cons 70 0)(assoc 70 ent)ent))
      (entmod ent)
      )
     (progn
      (setq ent(subst(cons 70 1)(assoc 70 ent)ent))
      (entmod ent)
      )

;; (command ".layer" "t" x "")
     ;;(command ".layer" "f" x "")
       ))
       temlay
  )
  (setvar "cmdecho" 1)
  (princ)
  )

明经快报

[OWEN7][qqou7]clever 15:33:29

还是不行，哎，服了

路人帮忙改为 DXF模型，

明经快报

[wosyuwu]容颜 16:08:26

[qqimg]201308/{ECCD529A-C0C9-7EF5-95E5-A4E6175996EC}.jpg[/qqimg]

[wosyuwu]容颜 16:09:52

[qqimg]201308/{C022350D-3F46-8C75-C9D3-6E7382717532}.jpg[/qqimg]

[wosyuwu]容颜 16:13:50

[qqimg]201308/{24885B5A-DA55-26ED-8DC0-09965EDE431F}.jpg[/qqimg]

[南川] 16:14:43

恶心的图片不要发了

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

[qqimg]201308/{51D9FCB8-2D70-15B3-0797-8A637C60DF0B}.jpg[/qqimg]

[pzweng][pzweng]路人 16:20:42

car

[Angel1995][Angel1995]Angel 16:20:55

结果(1 2 3)(4 5 6))

速度

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

[qqimg]201308/{F1FC32B3-812F-1A9B-837B-EDD17CB11A4F}.gif[/qqimg]

[OWEN7][qqou7]clever 16:25:06

路人

[wosyuwu]容颜 16:29:51

买了一个西瓜，切开一看，全家人都哭了[qqimg]201308/{22B5FFAA-4ED8-34BA-F5DC-455819038712}.jpg[/qqimg]

[duotu007]查理 16:30:30

这种瓜是吃白肉的，红的不能吃

[csc123456]顽强 16:33:00

这皮儿也太厚了点吧

[pzweng][pzweng]路人 16:41:55

墙头芦苇，山间竹笋

明经快报

[linshiyin2]大地 16:54:57

筒子们，亟需一个签名jpg转矢量化的软件

[duotu007]查理 16:56:07

R2V

[linshiyin2]大地 16:56:26

这个不好用，一大堆按钮

原来有一个非常好用，忘记放哪里了

[duotu007]查理 16:57:09

想起来分享下啊

[linshiyin2]大地 16:57:48

[qqimg]201308/{92380378-03A1-761A-E45A-4A99BF14C93C}.jpg[/qqimg]矢量化后是线段组成的

非轮廓线

[duotu007]查理 16:58:49

[qqimg]201308/{AD01E2E9-DC0E-9E3E-998A-6B40DE4BD4DB}.jpg[/qqimg]

[linshiyin2]大地 16:59:12

非空心矢量化

[qqimg]201308/{8D04E109-991F-5AB1-CD36-7C4D0B6E5204}.jpg[/qqimg]

[duotu007]查理 17:00:22

数据岂不是很大

[linshiyin2]大地 17:00:46

[qqimg]201308/{596CE2E7-3900-CD2C-108B-3D13F9042739}.jpg[/qqimg]

明经快报

[夏生生][x_s_s_1]生无可恋 17:24:38

何苦

描了填充就是的

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

可恋

有事请教一下

[夏生生][x_s_s_1]生无可恋 17:25:24

请讲

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

(entmod (subst (cons 70 1) (assoc 70 en) en))))这句是把图层解冻
为什么图元不显示
图层解冻了

[夏生生][x_s_s_1]生无可恋 17:26:03

名字有多少咧

直接图片插入

看看60组码

[pzweng][pzweng]路人 17:26:43

可恋试试程序

我还是第一次碰到这种情况

[夏生生][x_s_s_1]生无可恋 17:26:58

好

[OWEN7][qqou7]clever 17:27:21

观望

[夏生生][x_s_s_1]生无可恋 17:36:31

怪了

研究下

[夏生生][x_s_s_1]生无可恋 17:38:58

图元还在

[OWEN7][qqou7]clever 17:39:36

点击一下图层管理器的冻结，就显示了

[pzweng][pzweng]路人 17:39:58

是的

[夏生生][x_s_s_1]生无可恋 17:45:50

entupd

[pzweng][pzweng]路人 17:45:56

没用

早试过了

[夏生生][x_s_s_1]生无可恋 17:46:02

有用

我试过了

[pzweng][pzweng]路人 17:46:10

不会吧

[夏生生][x_s_s_1]生无可恋 17:46:12

你要entupd图元

[pzweng][pzweng]路人 17:46:12

我再试试

这个知道

(entupd (tblobjname "layer" x))

[夏生生][x_s_s_1]生无可恋 17:46:56

不是

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

你别用activex模型对象

[夏生生][x_s_s_1]生无可恋 17:47:29

不要更新图层

[pzweng][pzweng]路人 17:47:30

用lisp

[夏生生][x_s_s_1]生无可恋 17:47:35

要更新图元

是lisp啊

[pzweng][pzweng]路人 17:47:43

每个图元？

[夏生生][x_s_s_1]生无可恋 17:47:51

是的

[pzweng][pzweng]路人 17:47:58

图层所在的图元？

[夏生生][x_s_s_1]生无可恋 17:48:16

直接更新所有图元就得了

[pzweng][pzweng]路人 17:48:42

那如何获取图层所在的图元？

ssget不行

块里也有图元

那怎么更新

块内的呢？

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

你自己试试就知道了

块内的自动就更新了，不会出现你的那种情况

[pzweng][pzweng]路人 17:51:29

不行，没有块按你的方法还差不多

[夏生生][x_s_s_1]生无可恋 17:51:48

有块连我那个方法都不用

你自己试试

[pzweng][pzweng]路人 17:53:09

你把完整的发来

[夏生生][x_s_s_1]生无可恋 17:53:45

[qqimg]201308/{571E0633-CCB1-0BAA-1868-B2B49E12EC0D}.gif[/qqimg]

只是调了几行代码测试您的程序

[OWEN7][qqou7]clever 17:54:21

写个完整的

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

这要效率不是太低了？

[夏生生][x_s_s_1]生无可恋 17:54:48

是的

直接用command

图层操作还是比较快的，毕竟就那么几个

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

我感觉不对

我找到原因了

但是今天没时间解决了

[夏生生][x_s_s_1]生无可恋 17:55:40

why？

[OWEN7][qqou7]clever 17:56:03

路人别急

[pzweng][pzweng]路人 17:56:24

这样就不有问题

[OWEN7][qqou7]clever 17:56:27

一个肯定没问题

列表中最后一个也正常

[夏生生][x_s_s_1]生无可恋 17:56:47

您用foreach试试

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

试过了

我想过了可能只能用while

明天试试

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

我有空了试试

现在赶图

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

批量就不显示

OK

[pzweng][pzweng]路人 17:58:19

闪人了

明经快报

[yeahyeah]王晓平 21:11:06

？command

明经快报

[tryhi]大海 22:47:17

缩放有没有办法变形缩放，就是把一个正方形缩放成一个矩形

[tiyi8888]永远D痛 22:47:36

XY，不等边缩放

[tryhi]大海 22:48:09

[qqimg]201308/{B3F7DD7F-5283-D180-BD84-9A7FEAC47613}.jpg[/qqimg]也是用这个吗？

[无痕]午夜咖啡 22:51:48

[tryhi]大海 22:52:10

[tiyi8888]永远D痛(778465507)  22:49:15
XY，不等边缩放

感觉，解决了

感谢

[dafeilang][dafeilang]++bee 22:52:26

请问一下，复制excel表格粘贴为autocad图元，为什么不能生成表格？生成的是文字和线

[tryhi]大海 22:52:38

复制粘贴为块后输入比例即可