2013-06-02 明经 AutoLISP 编程(102918348) 群聊记录：[image={DA34EC3F-ACD1-915A-CF73-64EE62

明经快报

[328302216][328302216]小莫 16:44:53

感觉还是搞不来...

[夏生生][x_s_s_1]生无可恋 16:45:38

你搜索一下entmake leader

文字就很简单了

明经快报

[328302216][328302216]小莫 16:56:02

好像用entnext可以选择到引线了

多谢你们 

[ZZXXQQ] 17:03:02

(entget(cdr(assoc 340 (entget(entlast)))))

明经快报

[328302216][328302216]小莫 17:38:11

不会用这个...
命令: (entget(cdr(assoc 340 (entget(entlast)))))
; 错误: 参数类型错误: lentityp nil

明经快报

[flytoday]过^-^客 20:31:06

[qqimg]oldimg/{A25E47D5-8C4D-BB9C-1F76-CA4C12069A03}.jpg[/qqimg]上次大师说了这种怎么删除边框还在。我忘了麻烦大师们再说下谢谢

[VBALISPER]恐龙 20:32:36

一个系统变量可以设置让它不填充.不知道做好后还能改不.

[ZZXXQQ] 20:34:22

能

【7299969】人生 20:35:32

这个图层命令怎么不好用

[VBALISPER]恐龙 20:35:50

因为它不好用xyp

[ZZXXQQ] 20:35:53

要加载院长的函数库

【7299969】人生 20:36:20

，在哪下载函数

[flytoday]过^-^客 20:37:24

[qqimg]oldimg/{A25E47D5-8C4D-BB9C-1F76-CA4C12069A03}.jpg[/qqimg]麻烦大师们再说下谢谢

[VBALISPER]恐龙 20:37:39

用这个

[VBALISPER]恐龙 20:38:37

过客查一下关于填充的系统变量.好象是fill什么的.

[flytoday]过^-^客 20:38:56

[qqimg]oldimg/{59C2DD97-B72B-46C8-9E6C-24BF324A3D20}.jpg[/qqimg]

[VBALISPER]恐龙 20:40:10

关了行不行嘛

[flytoday]过^-^客 20:40:52

不行

[VBALISPER]恐龙 20:42:07

哦.那你坐等高手来解答

[flytoday]过^-^客 20:42:25

明经快报

[天财]天财 21:14:42

[qqimg]oldimg/{91AE7D65-5E97-C37F-47D1-1C543EFD8A1D}.gif[/qqimg]

[天财]天财 21:15:45

[qqimg]oldimg/{63A478FF-0349-556F-5777-AD5EF7F3C5A8}.jpg[/qqimg]

[flytoday]过^-^客 21:16:34

[qqimg]oldimg/{24F56549-02CB-0464-98E3-455E90840846}.jpg[/qqimg]这个名字很响

[天财]天财 21:17:38

[qqimg]oldimg/{91AE7D65-5E97-C37F-47D1-1C543EFD8A1D}.gif[/qqimg]

[flytoday]过^-^客 21:17:49

明经快报

[alwtyp][alwtyp] 21:47:11

请问标注型式可以复制吗？

[夏生生][x_s_s_1]生无可恋 21:47:47

就是500万了

[alwtyp][alwtyp] 21:48:16

？

[VBALISPER]恐龙 21:48:59

那就差不多嘛

[ZZXXQQ] 21:49:15

贴错群了

[VBALISPER]恐龙 21:49:37

嗯.我发错了

[yxp]小蜜蜂 21:49:41

请问toolbar的对象如何获取？

[ZZXXQQ] 21:52:10

点有三个坐标的

[VBALISPER]恐龙 21:52:53

因为有X,Y,Z,所以不行吗>只能消除X,Y二维的点吗?

ya雀无声 21:53:24

C++好玩么

今天学了一天，感觉不错

[lisp](car (entsel)) 21:53:47

如何把一个元素加入到选择集呢?

[ZZXXQQ] 21:53:50

equal 用于判断数值相等

[yxp]小蜜蜂 21:54:33

只有ent对象才能加入选择集吧？

[夏生生][x_s_s_1]生无可恋 21:54:35

z版equal也可以用来对比点的吧

[yxp]小蜜蜂 21:54:39

ssadd

[lisp](car (entsel)) 21:54:58

我就是希望框选一下在一个范围内的数值,比如大于600,小于2000的加入选择集,别的就不了

[VBALISPER]恐龙 21:56:22

好的,谢谢.我试一下.

[yxp]小蜜蜂 21:56:50

参见 wchatch 函数

[VBALISPER]恐龙 21:57:49

出错了.参数类型错误: 二维/三维点: (6 1.10247e+006 2.40205e+006 0.0)

【逸龙】312205714 21:58:57

[qqimg]oldimg/{8C222182-5019-B1BB-23CB-FB33F47ED796}.jpg[/qqimg]

请问高手

(defun c:as()
  (setq ss(ssget"请选择图框"))
  (setq en(entget (ssname ss 0)))
  (setq elist(cdr(assoc 10 en)))
  (setq a 1)
  (command "ucs" "w")
  (while (/= a nil)
    (command "copy" ss "" elist pause)
    (if （操作空格键或回车键或右键退出） (setq a nil))
    ....
  )
  (print "程序退出")
 )

[ZZXXQQ] 21:59:38

getint

(setq a (getint "操作空格键或回车键或右键退出: "))

【逸龙】312205714 22:00:39

要保证有动态

[ZZXXQQ] 22:02:21

grread

【逸龙】312205714 22:02:51

不行呀，我试过

【逸龙】312205714 22:04:08

pause就可以保证动态

【逸龙】312205714 22:05:19

如何能得到这个pause值是否按键啦？

【逸龙】312205714 22:07:00

高手说一下

【逸龙】312205714 22:08:52

高手在哪里？

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

[qqimg]oldimg/{593544D8-DDE3-E13B-40B6-08077F8D914F}.jpg[/qqimg]

【逸龙】312205714 22:11:06

怎么不说话

[yxp]小蜜蜂 22:11:56

copy是干嘛？

实现动态显示吗？

【逸龙】312205714 22:12:16

嗯

[yxp]小蜜蜂 22:12:23

不需要

【逸龙】312205714 22:12:29

复制

[yxp]小蜜蜂 22:12:40

grread本身可以实现

【逸龙】312205714 22:13:08

不能保证动态呀

[yxp]小蜜蜂 22:13:15

entmod函数

【逸龙】312205714 22:13:17

试过

[yxp]小蜜蜂 22:14:25

先用entmake 创建一个图元，再用entmod修改

就会实现你想要的动态效果

【逸龙】312205714 22:15:04

帮忙修改一我的程序

[VBALISPER]恐龙 22:15:14

Z版,刚才那个去重复点的,你的方法和我复制的方法都可以.是我在点前面加了一个序号,变成(1 X Y Z)了.所以出错了.谢谢指导.

【逸龙】312205714 22:15:24

我试下

[yxp]小蜜蜂 22:16:06

图框是个矩形？

还是个块

【逸龙】312205714 22:16:17

块

[yxp]小蜜蜂 22:16:46

嗯，既然用了 ssget 就应该过滤一下

【逸龙】312205714 22:17:22

可以，调试可不用

明经快报

【逸龙】312205714 22:33:27

好了没有

【逸龙】312205714 22:35:38

高手

【逸龙】312205714 22:37:23

高手？

[yxp]小蜜蜂 22:37:41

我以为你在调试

你说我吗？

(while (= (car (setq mouse (grread t 5 0))) 5)

(entmod (subst (cons 10 (cadr mouse))(assoc 10 en) en))

【逸龙】312205714 22:38:17

嗯，你帮我调试一下

【逸龙】312205714 22:40:26

修改10的群码值

[yxp]小蜜蜂 22:44:35

怎么样？

就是那两行就够了

(defun c:as()
  (princ " 请选择图框")
  (setq en (entget (car (entsel))))
  (while (= (car (setq mouse (grread t 5 0))) 5)
    (entmod (subst (cons 10 (cadr mouse))(assoc 10 en) en))
  )
  (princ)
)

【逸龙】312205714 22:45:58

我要有复制功能（无限）

copy

[yxp]小蜜蜂 22:46:34

....
你在循环体里添加代码啊

【逸龙】312205714 22:46:44

按键退出

[yxp]小蜜蜂 22:47:21

(grread)专门是返回按键的

【逸龙】312205714 22:47:56

哦