2013-06-01 明经 AutoLISP 编程(102918348) 群聊记录：我想原位复制一个图元！是不是只要将图元名去掉，剩下的交给entmake就可以

明经快报

[【KAIXIN】] [【KAIXIN】]炫翔 15:18:35

找到交点 断开 应该可以实现

明经快报

[仲文玉][仲文玉]wygjx 15:35:34

？

[仲文玉][仲文玉]wygjx 15:37:47

直的很好写吧

为啥自己不试着写一下？

一品缘 15:39:08

我不会

明经快报

[仲文玉][仲文玉]wygjx 15:51:13

类似这样？

[仲文玉][仲文玉]wygjx 15:52:03

[qqimg]oldimg/{2B9A286D-0B7C-81F6-FB11-03547DFD3141}.gif[/qqimg]

明经快报

[【KAIXIN】] [【KAIXIN】]炫翔 16:11:03

有圆弧的多段线
如果删除长度小于1.5MM的线段

各位来探讨下

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

删掉后，延伸删掉的两端

[仲文玉][仲文玉]wygjx 16:14:47

思路相同，重建

[雨的节奏][雨的节奏] 16:21:44

怎样把一个表里的点连起来啊

[kwok][kwok]巭隼 16:22:42

要先排序吧

[雨的节奏][雨的节奏] 16:27:01

楼上正解啊

[pzweng]路人 16:28:14

RetVal = object.GetInterfaceObject(ProgID)

proID有哪些？

[雨的节奏][雨的节奏] 16:28:28

[qqimg]oldimg/{4E42F3DE-0331-A5E0-E26A-7A1DD46AF3AC}.gif[/qqimg]

那位兄弟要的功能写出来了、、

[pzweng]路人 16:28:59

这么快啊

[阿然][阿然] 16:29:10

[雨的节奏][雨的节奏] 16:29:26

简单弄弄、其实他是要选择石材、画切割线路

[pzweng]路人 16:29:37

RetVal = object.GetInterfaceObject(ProgID)
proID有哪些？

[阿然][阿然] 16:30:58

很多，包括excel.application之类的

基本上所有面向对象的都有

[pzweng]路人 16:31:50

CAD里的

[阿然][阿然] 16:32:12

这个是打开cad外部的

[pzweng]路人 16:32:13

_$ (vla-GetInterfaceObject myacad "excel.application")
; 错误: Automation 错误。 加载应用程序时出现问题

[阿然][阿然] 16:32:17

cad内部的就是cad自己

[pzweng]路人 16:32:34

比如(vla-GetInterfaceObject myacad "AutoCAD.AcadLayerStateManager.16")

[kwok][kwok]巭隼 16:38:01

线切割那个，异形也可以吗

明经快报

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

6 92kA1C34b1202363ee8a7b    1f90HjpIJTfvBX656kjW{4e42f3de-0331-a5e0-e26a-7a1dd46af3ac}.jpgA

异形可以？

[【KAIXIN】] [【KAIXIN】]炫翔 17:00:14

[qqimg]oldimg/{E7D0A8F0-21B1-C2F9-5A27-36AE37E2928B}.jpg[/qqimg]

这样的玩意 可以连接吗？

框选的

[阿然][阿然] 17:02:59

框选，然后列出所有端点，然后从最大最小点画一条直线，按照vlax-curve-getdistatpoint line (vlax-curve-getclosestpointto 端点)来排序

[阿然][阿然] 17:03:33

对于特殊的单元没办法

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

不能用直线[qqimg]oldimg/{BF9FBCA0-9374-1D5F-35D4-C46729F6C39B}.gif[/qqimg]

必须用倒角的方法

看看LISP能否实现

延伸的方法 先放在后面

[阿然][阿然] 17:04:27

直接计算交点

[【KAIXIN】] [【KAIXIN】]炫翔 17:06:51

[qqimg]oldimg/{1D7EC5AE-0AFA-57DD-8929-00B65DFA7FC7}.gif[/qqimg]

阿然 功力大增

说说思路

[阿然][阿然] 17:09:20

先把图元排序，比如按照中点从上到下，然后依次vla-intersectwith得到交点

[lisp](car (entsel)) 17:10:00

已知某一点p,那么如何把p这点用命令缩放到屏幕的中心呢?

[天财]天财 17:10:47

这么强大

[阿然][阿然] 17:11:06

然后把图元上距离这个点最近的端点坐标改到这个点上，如果有圆弧操作就会麻烦点，计算新的bulge，最后join起来

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

[qqimg]oldimg/{21D9A6C2-40C3-63D2-33AA-DCA15FE04FA3}.gif[/qqimg]

[阿然][阿然] 17:12:16

(vla-zoomcenter (vlax-3d-point pt) 比例系数)

[阿然][阿然] 17:13:03

(vla-zoomcenter acadobj (vlax-3d-point pt) 比例系数)

[阿然][阿然] 17:13:39

(command "zoom" "c" pt scale)

[天财]天财 17:14:28

有没打开图自动将图放大100倍的函数

[pzweng]路人 17:17:10

只能是反应器

明经快报

一品缘 17:33:54

我要高度而且荣幸地向大家介绍一位助人为乐的Q友，他的Q名就叫“雨的节奏”，帮我解决了一个困扰我多年CAD共边线切割而且批量画的问题，帮我编写了一个又好又快的程序，为线切割的共边画线给予了极大的贡献！他的这种助人为乐的精神永远值得我们赞美和学习！

[lisp](car (entsel)) 17:36:13

演示一下

动画演示一下

一品缘 17:38:29

我要把他的这个编写程序送给所有线切割的朋友，但功劳永远是“雨的节奏”的，我永远记住他的Q号和Q名！我尊敬的“雨的节奏”[qqimg]oldimg/{3B6260FF-C1D5-0AB0-C22C-421843E091B8}.gif[/qqimg][qqimg]oldimg/{3B6260FF-C1D5-0AB0-C22C-421843E091B8}.gif[/qqimg]

[111118528]精灵 17:39:08

什么样的程序？

一品缘 17:39:43

[qqimg]oldimg/{9F16C009-2A3E-413D-A2A1-99C61A976E1A}.gif[/qqimg]

就是这样

很实用

[111118528]精灵 17:40:36

共享下看看

[111118528]精灵 17:42:18

这个水刀插件挺好用啊

一品缘 17:42:24

他还在继续优化到最完美为止，到时候共享要“雨的节奏”说了算

[111118528]精灵 17:42:47

OK

一品缘 17:43:27

嗯嗯嗯，我们要尊重他的开放！

嗯嗯嗯，我们要尊重他的开发！

明经快报

[111118528]精灵 19:30:42

多线段自动标注（dimx） 共享的好像用不了啦

明经快报

[jslxt]落水笑天 19:54:46

最近工作不稳定  今天刚开个淘宝店  想做个广告 你们会打我嘛

[雨的节奏][雨的节奏] 19:54:57

不打，是卖什么的

[236004]张牙舞爪 19:55:13

肯定是程序

[jslxt]落水笑天 19:56:18

内衣

[xiaomm09]江湖 19:56:26

[VBALISPER]恐龙 19:56:38

[236004]张牙舞爪 19:56:40

女内衣?

[jslxt]落水笑天 19:56:50

你们要不打我就发

都有

[236004]张牙舞爪 19:56:54

[face137.gif]

你是女的？

[jslxt]落水笑天 19:58:06

谁规定只有女的才开内衣店呀

[雨的节奏][雨的节奏] 19:58:37

这个可以有、内裤平均两个月要换一批

发链接吧，我收藏一下

[236004]张牙舞爪 19:58:55

[jslxt]落水笑天 20:01:42

http://shop103960521.taobao.com/shop/view_shop.htm?tracelog=twddp

不要打我就好 哦

[雨的节奏][雨的节奏] 20:02:05

信用还是零啊、、

我来做你第一个客户吧

[jslxt]落水笑天 20:04:31

今天刚开张

还没开壶呢

我容易么

[236004]张牙舞爪 20:09:24

全是女的

[雨的节奏][雨的节奏] 20:10:15

那我买一套女人的放家里、、哈哈

会不会好变态

[jslxt]落水笑天 20:11:07

可以送人的吗

[雨的节奏][雨的节奏] 20:12:10

[qqimg]oldimg/{65784DBF-4B30-C2CD-981C-342CE821DCC2}.gif[/qqimg]也觉得变态、、、

我们喜欢裸睡、、

[yjpzc][yjpzc]-蓝眼泪 20:12:34

那情侣内内不错  可以送情人 送小三 

[雨的节奏][雨的节奏] 20:12:41

再说女人穿再性感还不也是让男人脱得更兴奋一点而已

我就嫌脱起来麻烦、、

[jslxt]落水笑天 20:13:15

[qqimg]oldimg/{16E3E635-B1A9-C611-F942-31F0300493A2}.jpg[/qqimg]

[雨的节奏][雨的节奏] 20:14:00

不是吧

[yjpzc][yjpzc]-蓝眼泪 20:14:21

[雨的节奏][雨的节奏] 20:14:34

、、、真的还假的啊

[jslxt]落水笑天 20:14:52

现在人才太多了   呵呵

[雨的节奏][雨的节奏] 20:15:15

红果果的威胁啊、、

明经快报

[ddbb2008]笨笨 20:37:42

明经快报

[water_system]water_system 20:57:31

倒角之后想恢复怎么办