2013-08-03 明经 AutoLISP 编程(102918348) 群聊记录：谁有等高线检查点线

明经快报

[kenroy]何为 09:23:34

谁有等高线检查点线

明经快报

[雨的节奏][雨的节奏] 10:49:19

请注意：苹果5 S已经问世，可悲的是 美国 的苹果5 S 手机 自带的地图里面，把钓鱼岛划给了日本，请大家相互转告，不要再买苹果5 的智能手机，不要做了错事，让美国人 耻笑我们中国人

[pzweng][pzweng]路人 10:52:06

吃着平民饭，操着主席的心

[pzweng][pzweng]路人 10:57:39

再发这些就是鄙视习主席的无能

[vormittag]桔子 10:59:59

不是鄙视谁的无能，是暴露自己的弱智。

[pzweng][pzweng]路人 11:00:30

真是无知

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

明经快报

[fsxm]飞诗 11:14:48

桔子乍了？

[vormittag]桔子 11:15:03

没咋

[fsxm]飞诗 11:15:47

用的着说那么严重

[vormittag]桔子 11:16:32

不就说两句看法么，而且这是我真实的看法，没必要藏着掖着。

[阿然][阿然] 11:17:28

有道理

[fsxm]飞诗 11:17:53

蛋定

[vormittag]桔子 11:19:47

也就是嘴上给出点批评，也没叫嚣着要在肉体上消灭谁，咋就不淡定了？

[mccad][MCCAD] 11:22:02

这是中了病毒

[阿然][阿然] 11:22:48

现在社会即使叫嚣着要肉体上消灭谁，也不算不倓定

[pzweng][pzweng]路人 11:23:19

桔子是愤青

[vormittag]桔子 11:23:45

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

伪科学也是政治手段

你别太认真了

[vormittag]桔子 11:29:24

发生什么事的时候他不反对一下都对不起自己，
有的还要特意和主流观点相背以显示自己特立独行，其实他自己对这件事根本没什么看法。

[pzweng][pzweng]路人 11:32:04

那他为什么要反对

[vormittag]桔子 11:32:52

只能说明你根本就没读懂鲁迅。

[vormittag]桔子 11:34:12

捧胡多为伪君子，骂鲁必是真小人。

[pzweng][pzweng]路人 11:34:56

人的信仰不同而已

[pzweng][pzweng]路人 11:36:00

你指的胡是谁

[vormittag]桔子 11:36:13

胡适啊

[优先级][oldenn]河马 11:38:13

捧胡怎么就伪君子了，求解释

[pzweng][pzweng]路人 11:38:42

对胡不怎么了解

鲁的文章好象每个学期都有

[优先级][oldenn]河马 11:40:36

胡适的学术成就是鲁没法比的

[vormittag]桔子 11:40:52

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

那就不懂了，胡适写的东西与鲁迅写的东西完全不一样

没法做比较

胡适的东西很少看过

[AMKYUD][AMKYUD]??? 11:43:31

鲁迅的拿来主义造就了当今中国的各种抄袭

[阿然][阿然] 11:43:37

我是理科男～，胡鲁都不懂

[XQL]强 11:44:39

(defun c:read()
  (setq ff(open "index.ini" "r"))
  (setq r1(read-line ff))
  (while
    (setq r1(read-line ff))
    (print r1)
    )
  (close ff)
  (princ)
  )

[优先级][oldenn]河马 11:45:12

捧胡多为伪君子，骂鲁必是真小人。这句话最初出自谁人之口？

[XQL]强 11:45:29

哈哈 胡适和鲁迅是因为政治因素

鲁迅符合老毛的口味

胡适 不符合

[AMKYUD][AMKYUD]??? 11:45:46

科学诺奖中国大陆得不到，就是因为中国大陆适合出工程师，出不了伟大的科学家

[优先级][oldenn]河马 11:45:55

百度了一下，是方舟子说的。。。。。

[XQL]强 11:45:58

不要说啥了

不要说争执

[优先级][oldenn]河马 11:47:42

捧胡多为伪君子，骂鲁必是真小人。这句话更多的是符合当局的看法

[XQL]强 11:48:07

呵呵

鲁迅是CCP的。。。

别谈政治啊

[优先级][oldenn]河马 11:49:53

方舟子的最初的时候，迷惑了很多人，现在他的立场很鲜明，现在就是一条狗，需要咬谁就咬谁

[vormittag]桔子 11:50:22

[优先级][oldenn]河马 11:50:41

呵呵

[vormittag]桔子 11:51:55

你跟几百年前在菜市口争着买袁崇焕身上割下来肉的老百姓很像啊。

[XQL]强 11:52:05

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

什么情况

[偏爱云~小吴]偏 11:53:58

其实大家都只有一个目的,活着

[pzweng][pzweng]路人 11:54:39

老毛说的才是硬道理

枪杆子里出政权

其它什么都是狗屁

一直都是弱肉强食的社会

[偏爱云~小吴]偏 11:56:00

谁都没有权利去责怪别人的做法,因为在活着与真理间抉择很难

[pzweng][pzweng]路人 11:58:38

@[偏爱云~小吴]偏

你的论坛里是帐号是这个？

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

不是,是qq号

明经快报

[flytoday]过^-^客 12:11:20

小小吴啥时候加的

明经快报

[lisp-study]jun 12:34:39

请问块内的坐标跟当前坐标系怎么相互转换呢？

[vormittag]桔子 12:35:27

转换矩阵

[lisp-study]jun 12:36:36

就是想问问怎么转换的 有例子么？

[lisp-study]jun 12:37:11

困扰我好久了 一直没解决 
我以前用的比例因子和旋转角度转的

[vormittag]桔子 12:37:28

nentselp 可以获得转换矩阵。

[lisp-study]jun 12:38:09

直接用那个就可以了啊

[vormittag]桔子 12:39:08

不过这个是到世界坐标系的变换矩阵。到用户坐标系也就简单了。或者你直接构造到用户坐标系的变换矩阵。

[pzweng][pzweng]路人 12:39:11

然后对其计算

[vormittag]桔子 12:39:14

看帮助

[pzweng][pzweng]路人 12:39:52

矩阵我都忘了

哎，现在看起好吃力的

[vormittag]桔子 12:40:04

nentselp 的说明，点的变换在论坛里有高飞鸟的帖子。

[lisp-study]jun 12:40:34

如果我不是用的nentsel获得的呢

[vormittag]桔子 12:41:42

看返回值的说明。

自己构造也行。

[lisp-study]jun 12:42:11

矩阵没咋整过

[vormittag]桔子 12:42:49

没整过就去复习一下啊。

[lisp-study]jun 12:45:22

[优先级][oldenn]河马 12:48:34

方舟子比作袁崇焕？......

明经快报

[flytoday]过^-^客 14:55:33

[qqimg]201308/{C95B21C7-1B8C-E829-57CD-ED3468F94C69}.gif[/qqimg]

[qqimg]201308/{A4709A7D-2DB3-C95B-E627-BFE1D8993784}.gif[/qqimg]

明经快报

[kenroy]何为 15:22:10

谁有等高线点线矛盾检查

明经快报

[kenroy]何为 15:32:15

(defun c:dxjc()
(setq EnAng 25)
(setq StpAng 30)
        (setq StpDis 2.0)
(setq SearchR 5.0)
        (setq blc 1)
        (setq bz1 0 bz2 0)
        (setq mm1 0 mm2 0)
(setq StpDis (* StpDis Blc))
        (setq gc (strcat " 输入高程点所在图层:"))
(setq jqxc (strcat " 输入计曲线所在图层:"))
(setq sqxc (strcat " 输入首曲线所在(defun c:dxjc()
(setq EnAng 25)
(setq StpAng 30)
        (setq StpDis 2.0)
(setq SearchR 5.0)
        (setq blc 1)
        (setq bz1 0 bz2 0)
        (setq mm1 0 mm2 0)
(setq StpDis (* StpDis Blc))
        (setq gc (strcat " 输入高程点所在图层:"))
(setq jqxc (strcat " 输入计曲线所在图层:"))
(setq sqxc (strcat " 输入首曲线所在图层:"))
(setq gcd (getstring gc))
(setq jqx (getstring jqxc))
        (setq sqx (getstring sqxc))
(setq LaJqx (strcase jqx))
(setq LaSqx (strcase sqx))
        (setq ss (ssget "X" (list (cons 0 "INSERT") (cons 8 gcd))))
        (setq m 0)
        (setq l 0)
        (if (/= ss nil)
                     (progn
               (while (setq tname (ssname ss m))
                (setq ed (entget tname))
                (setq zb (cdr (assoc 10 ed)))
                (setq z (last (assoc 10 ed)))
                (setq nt0 zb)
              ;   (command"zoom" "c" zb "30")
(setq Done1 1)
        (setq EnDis StpDis)
(while (= Done1 1)

[ds-limt]-厨师木 15:34:48

李金林刚刚编了一个

[kenroy]何为 15:35:27

能共享下吗

[kenroy]何为 15:40:55

大神- -

[kenroy]何为 15:50:35

谁帮我看看啊

明经快报

[vormittag]桔子 17:08:21

(action_tile "k_getlayer" "(alert "5555")(done_dialog 1)") 
或者
(action_tile "k_getlayer" "(done_dialog 4)")

[xiaomm250][lisp_](car (entsel)) 17:10:13

为什么不(action_tile "k_getlayer" "(done_dialog 1)")?

[xiaomm250][lisp_](car (entsel)) 17:15:10

dcl中的内容
jsjbtc250:dialog{
    label="获取图层名";
    :row{
        :edit_box{
            label="图层名";
            key="k_layername";
            //edit_width=10;
        }
        :button{
            label="获取图层>>";
            key="k_getlayer";
        }
    }
    ok_only;
}
实现函数
(defun c:jsj(  / dcL_id dd kkk )
  (set kkk 8888)
  (while kkk
    (setq dcL_id (load_dialog "jsjbtc250.dcl"))
    (new_dialog "jsjbtc250" dcL_id)
    (set_tile "k_layername" "9523")
    (action_tile "k_getlayer" "(done_dialog 1)")
    (action_tile "accept"     "(done_dialog 2)")
    (setq dd (start_dialog))
    (cond
      ((= dd 1) 
          (progn
              (princ "357")
          )
      )
      ((= dd 2) 
           (progn
             (setq kkk nil)
           )
      )
      (T (alert "有错误发生!"))
    )
    (unload_dialog dcL_id)
  )
  (princ)
)
为什么就是出不了对话框呢?

[【KAIXIN】] [【KAIXIN】]炫翔 17:16:01

(while kkk
+++》》
(while (/= kkk NIL)

[xiaomm250][lisp_](car (entsel)) 17:16:30

这个不重要,只要kkk不等于nil就能进入循环

[【KAIXIN】] [【KAIXIN】]炫翔 17:16:39

其实这里应该是设DD的值

[xiaomm250][lisp_](car (entsel)) 17:17:01

真的?

[【KAIXIN】] [【KAIXIN】]炫翔 17:17:15

当然

[xiaomm250][lisp_](car (entsel)) 17:17:25

可是我dd的值是在里面才能得到的

[【KAIXIN】] [【KAIXIN】]炫翔 17:19:54

(setq dd 1) 
(while (= dd 1)

[vormittag]桔子 17:20:31

不用dd也可以，不过就是不管你点什么都重复跳出来这个对话框，死循环而已。

[xiaomm250][lisp_](car (entsel)) 17:20:48

[qqimg]201308/{41E15F01-8E9F-2F14-10CA-DAA8EAF9ADC0}.jpg[/qqimg]  好像是这句的问题,应该是(setq kkk 8888)

[xiaomm250][lisp_](car (entsel)) 17:21:44

这个set是啥意思呢

[【KAIXIN】] [【KAIXIN】]炫翔 17:22:04

试试

[【KAIXIN】] [【KAIXIN】]炫翔 17:24:11

(setq dd 1) 
(while (= dd 1)
 ......
 (if ()(setq dd 2))
)

[【KAIXIN】] [【KAIXIN】]炫翔 17:25:31

(setq dd (start_dialog));开启对话框(用户可见)
  (cond
      ((= dd 1)(getpoint))
      ((= dd 2)(c:xx2))

当DD等于1时  让你一直选取点

等于2时  就执行XX2 执行OK后 退出对话框

[qqimg]201308/{2801A893-4811-8BA6-A4B3-860993DEF051}.gif[/qqimg]

我这个就是用了这个循环 判断

[xiaomm250][lisp_](car (entsel)) 17:27:06

牛人呀

能把源代码给我看看吗

[【KAIXIN】] [【KAIXIN】]炫翔 17:27:45

[qqimg]201308/{EFA02B4E-447A-5170-16FD-94CA7EC8EDB4}.jpg[/qqimg]

我把常用的 玩意都弄成一个标本

方便组装

源码不提供 但是思路乐意分享

[【KAIXIN】] [【KAIXIN】]炫翔 17:29:40

源码只会害人 而思路使人进步[qqimg]201308/{63533FEF-8F33-FB53-7312-0EBE86E3A589}.gif[/qqimg]

[xiaomm250][lisp_](car (entsel)) 17:32:35

我是菜鸟,需要的就是一个好的例子

[【KAIXIN】] [【KAIXIN】]炫翔 17:32:56

含注释的源码，是速成之道

[【KAIXIN】] [【KAIXIN】]炫翔 17:33:31

源码+注释 很要时间

[【KAIXIN】] [【KAIXIN】]炫翔 17:34:04

最后每一个子程序的，注释一句

[xiaomm250][lisp_](car (entsel)) 17:36:07

[qqimg]201308/{3343C1A8-CE77-C6EE-C775-4F3AD0603267}.jpg[/qqimg]

哈哈哈,我自己搞定了

[【KAIXIN】] [【KAIXIN】]炫翔 17:36:15

[qqimg]201308/{A8FE5B27-368C-4C57-B07C-3E4B82C92185}.gif[/qqimg]在群里，我就不方便说，
我已经共享了一个开金工具箱2011的全部源码

够大家入门了，

[xiaomm250][lisp_](car (entsel)) 17:36:31

你的工具箱在什么地方

我下载学习一下

[【KAIXIN】] [【KAIXIN】]炫翔 17:36:38

[500w008]宝林 17:36:44

在那里 我下来学习学习

[【KAIXIN】] [【KAIXIN】]炫翔 17:37:02

百度大把

明经也有

但是很多没有注释

我可不免费提供翻译

纯苦力来的

明经快报

[逸龙]312205714 17:59:38

高手，用LISP，如何修改标注文字颜色？

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

vla-put

[逸龙]312205714 18:00:19

哦

谢谢