2013-06-15 明经 AutoLISP 编程(102918348) 群聊记录：两点的中点

明经快报

[linshiyin2]大地 00:31:06

两点的中点

哪个函数

明经快报

[weiqi]weiqi 01:27:21

想当年,我装3721,就是因为有清理痕迹功能.哈哈

不用每次都自己去点..

明经快报

[天财]天财 02:11:19

;; [功能] 获取两点的中点坐标
;; [参数] p1，p2---二维点或三维点
(defun lt:midpoint (p1 p2) (mapcar '(lambda (x y) (/ (+ x y) 2.)) p1 p2))

明经快报

[ds-limt]-厨师木 03:09:43

好厉害

明经快报

[天财]天财 03:37:48

不错

明经快报

[linshiyin2]大地 09:21:13

如何剪切掉对象外部部分，

(command "trim" en1 "" en2  en3 "")不好使，有时候外部剪掉，有时候内部剪掉

[VBALISPER]恐龙 09:24:34

选择对象的时候,图形一定要在窗口内

[236004]张牙舞爪 09:25:28

准备学C#

[236004]张牙舞爪 09:26:15

[qqimg]oldimg/{E3874742-B80C-E1BF-4523-91116CC9E598}.gif[/qqimg]

[linshiyin2]大地 09:29:48

图形一定要在窗口内这个可以控制用zoom

问题是，如何让其只剪掉外部保留内部

怎么控制

[VBALISPER]恐龙 09:31:12

把你的边界向外偏移0.1mm,用偏移的线作为栏选的线

[q530496591][q530496591]小菜鸟 09:31:40

[linshiyin2]大地 09:34:20

[qqimg]oldimg/{FE3A179D-8D34-1C6A-3D0D-C1EEF4496178}.jpg[/qqimg]

剪掉篮框外部

框选不好弄吧，是个矩形

[VBALISPER]恐龙 09:35:35

把蓝框向外偏移呀.最后用栏选

[linshiyin2]大地 09:36:02

栏选我试试

[linshiyin2]大地 09:36:59

栏选是需要点啊

[q530496591][q530496591]小菜鸟 09:37:21

那也只能剪多段线吧？

[VBALISPER]恐龙 09:37:30

你都有线了,提取点表

[linshiyin2]大地 09:37:33

f后面跟栏选点？还要获取点？

[linshiyin2]大地 09:38:40

栏选的意思是不是和画线的点相交的部分剪掉

[linshiyin2]大地 09:39:31

栏选确实能解决，步骤比较复杂

[VBALISPER]恐龙 09:39:37

栏选是选择,不是剪掉

[linshiyin2]大地 09:40:11

就是这个意思

刚才手动试过了，能解决这个问题

[VBALISPER]恐龙 09:40:29

不复杂,就是偏移一条线,再得到生成的线的各个拐点坐标.最后就开始剪切了.

[linshiyin2]大地 09:42:03

我自己搞一下吧，因为我知道哪边会需要剪掉，拐点点坐标也知道，只需求知两个点酒ok

[linshiyin2]大地 09:42:43

偏移也不用，直接得到框外0.001距离后的点

[VBALISPER]恐龙 09:42:55

是的,

明经快报

[linshiyin2]大地 09:59:17

[qqimg]oldimg/{7F38F950-E0B4-7CAD-0025-EFAA0ED76602}.jpg[/qqimg]

已经自动剪掉外部了，谢谢恐龙

[OWEN7]ya雀无声 10:01:46

谁给一个 OPENDCL源码学习一下？

[linshiyin2]大地 10:02:20

我推荐一个

[OWEN7]ya雀无声 10:02:41

谢谢

[VBALISPER]恐龙 10:02:51

好象画的是零件的剖面图啊

[linshiyin2]大地 10:03:57

我找找，我觉得那个odcl基本上可以解决一般的问题

[OWEN7]ya雀无声 10:04:27

期待

[linshiyin2]大地 10:07:53

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

就是这个

[linshiyin2]大地 10:09:04

http://bbs.mjtd.com/thread-22137-1-1.html这个是学习资料，看完这两个基本上你就会自己搞了，odcl好用就是自己可以生成代码，你只需要复制粘贴就行

明经快报

[青豆豆1991]夏叶 10:44:49

( defun gcjhs　( dd)
　( setq dd1 ( fix dd) ) 　　　
　( setq dd2 ( 3 ( - dd dd1) 100) )
　( setq dd2 ( atof ( rtos dd2 2 10) ) )
　( setq dd3 ( fix dd2) )
　( setq dd4 ( / dd3 60. 0) ) 　　　
　( setq dd5 ( 3 ( - dd2 dd3) 100) )
　( setq dd6 ( / dd5 3600. 0) ) 
　( setq dd7 ( + dd1 dd4 dd6) )
　( setq dd7 ( - 360 dd7) )
　( setq dd7 ( / ( 3 dd7 p i) 180) )
　)麻烦看一下这个程序有什么问题

[VBALISPER]恐龙 10:45:25

3是什么意思

[青豆豆1991]夏叶 10:45:41

不知道 我复制下来的

[VBALISPER]恐龙 10:46:06

60. 0呢?

[阿然][阿然] 10:46:12

( setq dd2 ( 3 ( - dd dd1) 100) )

[caoyin][caoyin] 10:46:56

( 3 ( - dd dd1) 100)？？？

这样也可以？

[青豆豆1991]夏叶 10:47:28

这个程序是将度分秒转换为弧度

[阿然][阿然] 10:47:35

照书上抄的估计

[青豆豆1991]夏叶 10:47:43

我也不知道啊

[阿然][阿然] 10:48:01

3是*

[青豆豆1991]夏叶 10:48:03

要不你们哪位大侠帮忙编一个？

目的是度分秒转换为弧度

[雨的节奏][雨的节奏] 10:48:22

[qqimg]oldimg/{FF5B691A-719D-0667-E4B6-237B0188B2AA}.GIF[/qqimg]

[青豆豆1991]夏叶 10:48:34

拜托了

[阿然][阿然] 10:48:37

( setq dd7 ( / ( 3 dd7 p i) 180) )
p i要连在一起

[青豆豆1991]夏叶 10:48:53

哦

[VBALISPER]恐龙 10:49:26

60. 0呢?
分家了

[青豆豆1991]夏叶 10:49:40

哦

别的还有问题吗

你们也看不懂60.0？

[kwok][kwok]巭隼 10:50:44

可能是60.0也可能是60.  0

[lisp-study]jun 10:51:15

60.0 撒

[青豆豆1991]夏叶 10:51:17

应该是60.0

[kwok][kwok]巭隼 10:51:58

想的话是60.0，不然后面0没什么用

[青豆豆1991]夏叶 10:52:02

好像还有别的错误呢

还提示语法错误

[青豆豆1991]夏叶 10:54:36

大侠们

[青豆豆1991]夏叶 10:56:22

( defun fwjjs　(p t1 p t2)
　( setq fwj ( + p t1 p t2 p i) )
　( if ( > fwj ( 3 2 p i) )
　( setq fwj ( - fwj ( 3 2 p i) ) ) )
　( if ( > fwj ( 3 2 p i) )
　( setq fwj ( - fwj ( 3 2 p i) ) ) )
　( setq fwj fwj)
　)
）

那这个呢？、

[kwok][kwok]巭隼 10:57:05

前面不是说了pi要连一起

你改一下

[青豆豆1991]夏叶 10:57:32

哦哦

这个改过来了

[kwok][kwok]巭隼 10:57:38

32我看也是连一起

[青豆豆1991]夏叶 10:57:57

连起来是什么意思啊

[kwok][kwok]巭隼 10:58:07

(p t1 p t2) 
(pt1 pt2)

[VBALISPER]恐龙 10:58:33

3 --->  *

[青豆豆1991]夏叶 10:58:34

嗯

[VBALISPER]恐龙 10:58:38

太恐怖了

[kwok][kwok]巭隼 10:58:46

汗，这些是哪里复制的，

[青豆豆1991]夏叶 10:58:50

什么意思

[青豆豆1991]夏叶 10:59:30

从知网下下的

都是发表过的 不知道为什么会有错误

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

( defun fwjjs　(pt1 pt2)
　( setq fwj ( + pt1 pt2 pi) )
　( if ( > fwj ( 32 pi) )
　( setq fwj ( - fwj ( 32 pi) ) ) )
　( if ( > fwj ( 32 pi) )
　( setq fwj ( - fwj ( 32 pi) ) ) )
　( setq fwj fwj)
　)
）

[青豆豆1991]夏叶 11:00:36

这个是对的？

[阿然][阿然] 11:01:01

。。。。这最基本的+-*/，还是先看看书吧

[青豆豆1991]夏叶 11:01:19

来不及了 明天答辩呢

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

自己搞一下就行了，可以网页格式问题，
你自己用重输入一遍，

[sqbao] 11:01:41

本科

[青豆豆1991]夏叶 11:01:47

嗯

[sqbao] 11:01:51

。。。。。。。。

[阿然][阿然] 11:02:08

忙着找富二代呢

[sqbao] 11:02:13

一般本科毕业不会难为人。

[青豆豆1991]夏叶 11:02:16

切

[sqbao] 11:02:26

富二代？

。。。。

[青豆豆1991]夏叶 11:02:29

你们不帮忙还说风凉话

[阿然][阿然] 11:04:03

本来还想帮忙的，就你这学习的样，一个月前就这样，一个月后还这样，自己都不努力，别人凭什么帮你，说风凉话已经很客气了，你要庆幸我不是群主

更要庆幸我不是你的导师

[lisp-study]jun 11:04:29

阿然发飙了

[青豆豆1991]夏叶 11:04:36

好吧

不用帮忙了

谢谢你们了

[sqbao] 11:04:51

然哥怒了。

[青豆豆1991]夏叶 11:04:56

非常感谢

[阿然][阿然] 11:05:10

不用客气，可以跪安了

[sqbao] 11:05:18

现在看书应该来的及

就把基础的部分看明白就够了

[【KAIXIN】] [【KAIXIN】]炫翔 11:05:29

[青豆豆1991]夏叶 11:05:43

嗯 我自己来吧 谢谢了啊

[lisp-study]jun 11:05:45

@[青豆豆1991]夏叶 先把基本的函数搞懂 拿例子来练习 慢慢就会了

[sqbao] 11:05:56

估计来不及了

[lisp-study]jun 11:06:00

重在思考

[sqbao] 11:06:02

明天答辩

[lisp-study]jun 11:06:14

[sqbao] 11:06:21

把基本函数 例子看一遍问题不大

[lisp-study]jun 11:06:23

那是来不及了

[sqbao] 11:06:48

没事 我本科比你还差

3年基本没去上过课

[阿然][阿然] 11:07:07

( defun fwjjs　(pt1 pt2)
　( setq fwj ( + pt1 pt2 pi) )
　( if ( > fwj (* 2 pi) )
　( setq fwj ( - fwj (* 2 pi) ) ) )
　( if ( > fwj (* 2 pi) )
　( setq fwj ( - fwj (* 2 pi) ) ) )
　( setq fwj fwj)
　)
)看你答辩的份上，下次自己看看书再问，估计没下次了

[lisp-study]jun 11:07:12

那本铁道部的魔法书是我的启蒙老师 哈哈 推荐一下

[sqbao] 11:07:25

上班以后好好学就行

[青豆豆1991]夏叶 11:07:27

哦 知道了

谢谢了啊

[阿然][阿然] 11:08:03

程序是改了，如果是给定pt1和pt2计算方位角，结果是错误的

[青豆豆1991]夏叶 11:08:37

哦

[VBALISPER]恐龙 11:08:53

( setq fwj ( + pt1 pt2 pi) )
看着就不对.

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

*为什么会变成3,这个网页码转换得怪

[kwok][kwok]巭隼 11:11:23

但+这些又不变

[sqbao] 11:11:34

应该是cnki的文章

[阿然][阿然] 11:12:14

[qqimg]oldimg/{EE4BB5D4-EBE9-2569-7EE2-1579E376A158}.jpg[/qqimg]

[lisp-study]jun 11:12:43

[lisp-study]jun 11:13:28

阿然适合搞研究 很有专研精神

明经快报

[425852280]-影子 11:33:31

CAD怎么录制GIF

[VBALISPER]恐龙 11:34:48

GGG软件

[阿然][阿然] 11:36:39

(defun fwjjs (pt1 pt2)
  (if (not (tblsearch "ucs" "fwjjs"))
    (progn
      (command "ucs" "n" "3" "0,0" "0,1" "")
      (command "ucs" "s" "fwjjs")
    )
  )
  (command "ucs" "r" "fwjjs")
  (setq    fwj (- (* pi 2)
           (angle
         (trans pt1 0 1)
         (trans pt2 0 1)
           )
        )
  )
  (command "ucs" "p")
  (if (equal fwj (* 2 pi) 1e-6)
    0
    fwj
    )
);;;另类方位角计算

[VBALISPER]恐龙 11:37:10

不用这么麻烦吧.

[loveguo]筠筠 11:38:04

另类

[VBALISPER]恐龙 11:38:17

(angle p1 p2) 再转换一下就是了

[阿然][阿然] 11:38:52

只是好玩而已

[VBALISPER]恐龙 11:39:08

嗯.

[lisp-study]jun 11:40:57

最近天天画地下室 眼睛都画肿了  谁有快捷的方法探讨探讨？

[VBALISPER]恐龙 11:41:28

不住地下室就好

[阿然][阿然] 11:41:30

哪边眼睛肿了？

[lisp-study]jun 11:41:52

都肿了 唉 天天熬夜啊 受不了了

[阿然][阿然] 11:42:01

我这里倒是有个办法

[lisp-study]jun 11:42:14

不要另类的哦

[阿然][阿然] 11:42:24

准备冰袋，冰敷你的眼睛，然后消肿后继续画

[lisp-study]jun 11:42:46

那不是自我摧残么

[阿然][阿然] 11:42:59

换更快的电脑

提高手速

[lisp-study]jun 11:43:32

唉 电脑不是问题

自己画的太慢了

[阿然][阿然] 11:44:01

地下室不是一个专业，无能为力啊，精神上鼓励你一下

[lisp-study]jun 11:44:25

谢谢阿然

[kwok][kwok]巭隼 11:44:38

弄个自动生成

[lisp-study]jun 11:44:38

你是啥子专业啊

[VBALISPER]恐龙 11:44:46

你都是程序高手了,编个程序自己画.出去喝茶去.

[kwok][kwok]巭隼 11:45:13

参数化画图

[VBALISPER]恐龙 11:45:31

建筑行业的可以帮你解决疑惑.

[lisp-study]jun 11:45:31

我弄了个箍筋自动生成的 还是很多啊 要自己对 对程序还是不放心

[kwok][kwok]巭隼 11:45:34

所有数据做ex,然后导入生成

[lisp-study]jun 11:45:55

楼上的好主意

[lisp-study]jun 11:47:14

再问一个比较基础的问题哈  lisp能entmake云线么？

[zk2140]Kevin 11:48:40

(vl-load-com)
(setvar "FILEDIA" 0)
(command "menuload" "K_Menu.mns") 
帮忙看下这段，怎么加载了不显示菜单

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

云线就是lwpolyline

每段都有凸度

[lisp-study]jun 11:49:26

随机的凸度？

晕 错了

我试试

[阿然][阿然] 11:49:50

不是

夹的角度都是110度

凸度是-0.5206

[lisp-study]jun 11:50:43

我试试

[zk2140]Kevin 11:55:58

(vl-load-com)
(setvar "FILEDIA" 0)
(command "menuload" "K_Menu.mns") 
帮忙看下这段，成功加载K_Menu.mns后没有在菜单上面显示

[lisp-study]jun 12:00:25

非常感谢阿然 呵呵 我以前一直以为云线跟多线一样很复杂

明经快报

[425852280]-影子 12:13:44

CAD怎么录制动态GIF

[lisp-study]jun 12:14:04

共享里面有个软件

[425852280]-影子 12:14:46

[qqimg]oldimg/{94733669-EC89-399E-EC4C-BB9B402E28A4}.jpg[/qqimg]这个？

[lisp-study]jun 12:15:06

不是

[425852280]-影子 12:15:36

那是？

[lisp-study]jun 12:15:42

阿然 搞定了 呵呵