明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
楼主: 明经快报

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

 关闭 [复制链接]
 楼主| 发表于 2013-6-1 15:18:35 | 显示全部楼层
[【KAIXIN】] [【KAIXIN】]炫翔 15:18:35
找到交点 断开 应该可以实现
 楼主| 发表于 2013-6-1 15:35:34 | 显示全部楼层
[仲文玉][仲文玉]wygjx 15:35:34
[仲文玉][仲文玉]wygjx 15:37:47
直的很好写吧
为啥自己不试着写一下?
一品缘 15:39:08
我不会
 楼主| 发表于 2013-6-1 15:51:13 | 显示全部楼层
[仲文玉][仲文玉]wygjx 15:51:13
类似这样?
[仲文玉][仲文玉]wygjx 15:52:03
[qqimg]oldimg/{2B9A286D-0B7C-81F6-FB11-03547DFD3141}.gif[/qqimg]
 楼主| 发表于 2013-6-1 16:11:03 | 显示全部楼层
[【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
线切割那个,异形也可以吗
 楼主| 发表于 2013-6-1 16:55:21 | 显示全部楼层
[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
只能是反应器
 楼主| 发表于 2013-6-1 17:33:54 | 显示全部楼层
一品缘 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
嗯嗯嗯,我们要尊重他的开放!
嗯嗯嗯,我们要尊重他的开发!
 楼主| 发表于 2013-6-1 19:30:42 | 显示全部楼层
[111118528]精灵 19:30:42
多线段自动标注(dimx) 共享的好像用不了啦
 楼主| 发表于 2013-6-1 19:54:46 | 显示全部楼层
[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
不要打我就好 哦
[雨的节奏][雨的节奏] 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
红果果的威胁啊、、
 楼主| 发表于 2013-6-1 20:37:42 | 显示全部楼层
[ddbb2008]笨笨 20:37:42
 楼主| 发表于 2013-6-1 20:57:31 | 显示全部楼层
[water_system]water_system 20:57:31
倒角之后想恢复怎么办
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-11-6 07:23 , Processed in 0.179554 second(s), 16 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表