[LC100]建筑设计 15:29:07
lsp如何识别天正版本啊
真是急要知道啊。
[VBALISPER]恐龙 15:31:59
删掉天正,安CAD就识别了.
[LC100]建筑设计 15:32:24
我要是识别天正版本号,
别搞错了。
[LC100]建筑设计 15:33:10
我手上安装了8.5及9.0 我用9.0,但总工用8.5,没办法所以命令要通用。
[328302216][328302216]小莫 15:40:01
判断一个对象与其他对象重叠后就让该对象往上移动一个单位,如果还与其他对象重叠就以开始位置往下移动一个单位,还有重叠就以原来位置开始往上移动两个单位,再有重叠就以原来位置开始往下移动两个单位……直到指定对象没有与其他对象重叠为止,这种要怎么循环判断?哪位个点思路
StEf 15:43:59
得看你的对象是啥了。。。。
[夏生生][x_s_s_1]生无可恋 15:44:10
所谓重叠?
[vormittag]桔子 15:44:17
这不是一直在往上移动么?。
[328302216][328302216]小莫 15:44:55
这个重叠包括部分重叠、完全重叠
[阿然][阿然] 15:45:45
。。。。那不是直接移到最前?
[夏生生][x_s_s_1]生无可恋 15:47:11
“还有重叠就以原来位置开始往上移动两个单位,再有重叠就以原来位置开始往下移动两个单位”不是移回去了
[328302216][328302216]小莫 15:47:14
我想得到对象在指定位置生成,如果判断有重叠则移动至离指定位置最近没有与其他对象重叠的位置上
[LC100]建筑设计 15:48:08
如何打开当前天正程序的路径?
[328302216][328302216]小莫 15:48:47
假如原来位置为(0,0)如果重叠就移动到(1,0)如果还有重叠就移动到(-1,0),我是这么个意思
StEf 15:49:06
你说的是文字吗
[328302216][328302216]小莫 15:49:21
嗯 是的
StEf 15:49:21
你所说的对象时文字?
[328302216][328302216]小莫 15:49:33
嗯 就是文字
[夏生生][x_s_s_1]生无可恋 15:50:10
[qqimg]oldimg/{9BAEF7DA-45AD-FE75-C386-1B77E5E0F416}.jpg[/qqimg]哥很少有人用天正,你叫别人怎么回答啊
[328302216][328302216]小莫 15:50:16
如果移动到(-1,0)还有重叠就移动到(2,0)以此类推
[LC100]建筑设计 15:50:58
就算不是天正,打开你现用CAD的路径方法应该一样的吧。
StEf 15:51:03
那好办,boundingbox,然后建region,然后,intersect判断是否有交,然后移动,你看可以吗
[VBALISPER]恐龙 15:51:38
一样?很难说
[夏生生][x_s_s_1]生无可恋 15:51:57
就是因为不一样咯
[LC100]建筑设计 15:52:00
这里有办法读取么?
[328302216][328302216]小莫 15:52:02
判断是否重叠我倒是判断得了,就是不知道按这种移动该怎么判断
[LC100]建筑设计 15:52:03
[qqimg]oldimg/{592D1BD9-D4A8-A8B4-F188-DAB42CF3936D}.jpg[/qqimg]
看来只能写二次命令了
[VBALISPER]恐龙 15:52:55
你看天正能用不嘛.
[LC100]建筑设计 15:53:24
可以啊,都是CAD来的。天正只不过相当于插件
[夏生生][x_s_s_1]生无可恋 15:53:40
你直接搜索arx吧
[LC100]建筑设计 15:53:48
怎么查找?
[夏生生][x_s_s_1]生无可恋 15:53:56
看调用的哪个arx文件
[kwok][kwok]巭隼 15:54:00
(setq m 0)
(repeat (length lst)
(setq d (nth m lst))
(command "_.rectang" pt (strcat "@" (rtos d 2) "," (rtos 50 2)))
(setq pt (polar pt 0 (+ d 5)))
)
为什么这个只能取表里一个值?画出来的矩形都一样宽的
[328302216][328302216]小莫 15:54:50
(setq m(+ m 1))
StEf 15:54:53
文字对象的boundingbox可以取得min、max,如果相交,直接move到制定位置不就ok???
[328302216][328302216]小莫 15:55:49
@[kwok]巭隼 (setq m(+ m 1))
[夏生生][x_s_s_1]生无可恋 15:57:29
(findfile "天正***.arx")
[328302216][328302216]小莫 15:57:39
你的M值一直都是0肯定都是同一个
[夏生生][x_s_s_1]生无可恋 15:58:13
先(arx)看返回的arx名,再(findfile "天正***.arx")
[328302216][328302216]小莫 15:58:53
假如原来位置为(0,0)如果重叠就移动到(1,0)如果还有重叠就移动到(-1,0),如果移动到(-1,0)还有重叠就移动到(2,0)以此类推 这种有没有什么规律?
[pzweng]路人 16:01:58
首先判断有几重
[328302216][328302216]小莫 16:04:01
假如我判断得到重叠后返回大于3,当返回小于等于3后就退出重叠,这个几重是不定的,
[328302216][328302216]小莫 16:04:44
当返回小于等于3后就退出判断
[pzweng]路人 16:05:24
block?
[328302216][328302216]小莫 16:06:40
1 -1 2 -2 3 -3 我想问的相当于是这串数字由没有什么规律
[夏生生][x_s_s_1]生无可恋 16:07:07
有啊
n -n
repeat / 2 n repeat 2
[LC100]建筑设计 16:09:55
明白,谢谢
[328302216][328302216]小莫 16:09:57
好像不是这样的 应该是从0开始向1和-1两边,和我刚刚说的那个好像不一样
[夏生生][x_s_s_1]生无可恋 16:11:51
最简单的方法一直向上走,走到你不能接受的循环,向下走,走到你不能接受的循环,向左走,如此如此
[kwok][kwok]巭隼 16:12:19
[qqimg]oldimg/{16747DC5-6DF2-5B94-7CC3-B8C1613F1DF8}.jpg[/qqimg]你早上帮我弄的取多段线每段长度,对闭合的多段线,会少了最后一段,可以改进的么?
[328302216][328302216]小莫 16:12:26
嗯 这种的话倒是好办
[夏生生][x_s_s_1]生无可恋 16:12:48
我测试了封闭的
没问题啊
试试这个
[328302216][328302216]小莫 16:13:26
如果没办法就只能是先向上走完,然后再向下了
[夏生生][x_s_s_1]生无可恋 16:13:41
你说的也有办法啊
[kwok][kwok]巭隼 16:13:41
我就是用上面那个
[夏生生][x_s_s_1]生无可恋 16:14:32
(while (< i n)(move i)(move -i))
[328302216][328302216]小莫 16:14:39
我也觉得应该是有办法的,只是现在想不出来,所以问问你们
[夏生生][x_s_s_1]生无可恋 16:15:02
[qqimg]oldimg/{AFD6637F-98A0-DF8A-7BBE-B3FBDB08B764}.jpg[/qqimg]
[328302216][328302216]小莫 16:15:31
谢谢 @[x_s_s_1]生无可恋 我试试
[kwok][kwok]巭隼 16:16:02
[qqimg]oldimg/{EFB42AC9-E418-04B3-1F1A-74CB0AE907C6}.gif[/qqimg]
StEf 16:17:36
这事神马??
[雨的节奏][雨的节奏] 16:18:30
这个不错
[alexanderlili][alexanderlili]友缘 16:20:35
请问lisp画小尺寸图元的时候经常错位是哪里的问题
[vormittag]桔子 16:20:57
程序写错了。
StEf 16:20:59
osmode 设为0
[pzweng]路人 16:22:21
程序写错了
真幽默
问的也幽默
[alexanderlili][alexanderlili]友缘 16:23:28
同一个程序有时候对有时候错
StEf 16:23:44
(setvar "OSMODE" 0),开始的时候加一句,有这种可能
[alexanderlili][alexanderlili]友缘 16:24:22
哦 明白了 多谢
StEf 16:24:35
[vormittag]桔子 16:25:25
篮子里有两个苹果,再放两个苹果以后有几个?
用乘法、乘方都能得到正确结果,但是是正确的方法么?
[pzweng]路人 16:26:09
要加才是正确的
[pzweng]路人 16:27:16
2+2 2×2 2^2都得4
这是数学上惟一的数
[dafeilang][dafeilang]++bee 16:31:00
乘法不就是加法的简化吧 要是你放三次,可以用加法算,用乘法也行嘛
一品缘 16:31:23
都是高手
[alexanderlili][alexanderlili]友缘 16:32:30
不明觉厉
在我们凡人的眼里都是一样的
[Lwcdgl]coming 16:33:35
求教各位
(command ".rectang" "non" pmin "non" pmax)
这里的non有什么作用?
[阿然][阿然] 16:33:53
不捕捉
[vormittag]桔子 16:34:03
抑制捕捉
[蔡__洛]不快乐 16:34:04
临时关闭捕捉
一品缘 16:34:21
高手看看
批量偏移
谁能编写出来
[Lwcdgl]coming 16:34:42
哦,[qqimg]oldimg/{0DD1C665-F500-7BDE-A509-74FEC0761B09}.gif[/qqimg]谢谢
一品缘 16:34:47
[qqimg]oldimg/{06777AA4-4484-4530-39A9-009FA1E0CE62}.jpg[/qqimg]
内部有孤岛
[pzweng]路人 16:34:59
一品缘看群规咯
快改名
一品缘 16:35:43
哦哦哦,好想不会改
好像不会改
[pzweng]路人 16:36:19
[qqimg]oldimg/{07C566FE-42ED-ED46-59E7-8F2A1190F819}.jpg[/qqimg]
[kwok][kwok]巭隼 16:38:21
不行呀,提示参数太多劳多得
一品缘 16:38:52
哦哦
改成什么啊
[kwok][kwok]巭隼 16:39:29
[qqimg]oldimg/{8C0482D9-9C56-1B1C-82B5-80819ADFB77B}.jpg[/qqimg]前面是论坛名
后面随便
[夏生生][x_s_s_1]生无可恋 16:42:38
[qqimg]oldimg/{8422663D-4265-1CEA-A378-5EC6315EA5D0}.jpg[/qqimg]
缺点是原来封闭的我给打开了
要是有影响的话,你再处理一下
[kwok][kwok]巭隼 16:43:32
没办法闭合直接求?
[夏生生][x_s_s_1]生无可恋 16:43:37
封闭回去就是
有
告诉你思路,你自己想吧
我有甲方来要图
[kwok][kwok]巭隼 16:44:26
呵呵,谢谢
一品 16:44:37
[qqimg]oldimg/{62BCFD90-57B5-5997-CCE3-2F66FC6FD49E}.jpg[/qqimg]高手看看,做批量批量偏移,有孤岛检测,绿色线往外面扩大,红色线往里面缩小
一品 16:45:08
群殴高手帮忙编写一个程序
[夏生生][x_s_s_1]生无可恋 16:45:08
不懂
先说说你的思路
[pzweng]路人 16:45:19
名字还没改
[夏生生][x_s_s_1]生无可恋 16:45:23
图看不懂
一品 16:45:24
求高手帮忙编写一个程序
[pzweng]路人 16:45:41
去论坛找
一品 16:45:45
就是批量偏移程序
[pzweng]路人 16:46:00
没找到再发帖
[Lwcdgl]coming 16:46:01
我可以帮你试试
[pzweng]路人 16:46:08
把名字改好
[论坛用户名]网名
一品 16:46:43
还不得???
[pzweng]路人 16:46:53
看看大家的
你在论坛里叫什么
[LISP]???IMKYUD 16:47:01
[qqimg]oldimg/{6BB48E5B-FA74-0D23-326C-A23A9CAD4E6D}.jpg[/qqimg]
[夏生生][x_s_s_1]生无可恋 16:47:15
[kwok]巭隼你自己观察一下封闭的多义线的组码是90是顶点数,70是1,这个时候少了一个点,那么就用回我最初给你那个函数
就是这两个函数用if判断
[LISP]???IMKYUD 16:47:30
大家好,这个图形怎么画啊?
[kwok][kwok]巭隼 16:47:43
加个图层控制,应可以做到同时内外偏,
[天知道]北纬20° 16:47:48
[夏生生][x_s_s_1]生无可恋 16:47:53
用command一笔一笔画
[LISP]???IMKYUD 16:48:01
我画出来不平滑
[kwok][kwok]巭隼 16:48:11
好,谢谢[qqimg]oldimg/{D600BCF1-79AB-E5AC-F073-78988E05222C}.jpg[/qqimg]
[LISP]???IMKYUD 16:48:41
我画出来看起来有些尖锐
[阿然][阿然] 16:49:04
pedit fit一下
[夏生生][x_s_s_1]生无可恋 16:49:21
你不用带宽度的PL画
用线宽显示
[LISP]???IMKYUD 16:49:52
而且我画出来那个圆弧圆心跟别人的不一样
[vormittag]桔子 16:50:02
生无可恋的分段求长度写复杂了。
不用把闭合的打开。
[夏生生][x_s_s_1]生无可恋 16:50:18
按您的思路写的啊
[LISP]???IMKYUD 16:50:22
虽然是按照标注的尺寸画的
[夏生生][x_s_s_1]生无可恋 16:50:22
请指示
[阿然][阿然] 16:51:03
[夏生生][x_s_s_1]生无可恋 16:51:19
研究下
[pzweng]路人 16:51:37
是获取多线段长度?
[vormittag]桔子 16:52:00
lwpolyline和polyline的分段长度。
[vormittag]桔子 16:52:56
getdistatparam 简单。xxxpoint要求点的。
[阿然][阿然] 16:54:01
param对有圆弧的能不能行?
[pzweng]路人 16:54:09
(GetPlDivLength (car(entsel)))?
[雨的节奏][雨的节奏] 16:54:35
[qqimg]oldimg/{65784DBF-4B30-C2CD-981C-342CE821DCC2}.gif[/qqimg]
[夏生生][x_s_s_1]生无可恋 16:54:47
可以[qqimg]oldimg/{F2A57A12-4A2F-7629-093B-2757706F3556}.jpg[/qqimg]
[vormittag]桔子 16:55:00
行啊,为什么不行?
[雨的节奏][雨的节奏] 16:55:06
应该还能简单点
[vormittag]桔子 16:55:23
我的变量名起得长。
[pzweng]路人 16:55:35
呵呵
变量名可以简单点
[阿然][阿然] 16:56:17
我也喜欢长变量名,可读性高
[vormittag]桔子 16:56:18
写短了以后就忘了是什么了。
[pzweng]路人 16:57:09
嗯
同感
[328302216][328302216]小莫 16:57:14
我还以为变量名短点好呢
[pzweng]路人 16:57:24
但是变量长占内存
[阿然][阿然] 16:57:41
扯淡
[vormittag]桔子 16:57:42
编译以后没啥区别。
[pzweng]路人 16:58:05
学过C就知道了
我找资料给你看看
[阿然][阿然] 16:59:09
这个对有圆弧段的pline无效
[vormittag]桔子 16:59:18
这只能直线段。
[雨的节奏][雨的节奏] 16:59:32
[qqimg]oldimg/{F6EB4040-2A34-DA7F-D185-F5CBFB55A402}.gif[/qqimg]对
[阿然][阿然] 16:59:51
(vl-remove-if比你这个foreach更快
[pzweng]路人 17:00:26
直线段不就是点与点的距离吗?
[qqimg]oldimg/{11BDFA85-0AFE-1956-0D23-6585A7415095}.jpg[/qqimg]
[阿然][阿然] 17:01:28
这个是解释的阶段,编译以后都一样
[pzweng]路人 17:02:07
只有vlax开头的函数才能得到圆弧段的线长
[pzweng]路人 17:03:26
[qqimg]oldimg/{A317A703-E68B-7678-2CC1-4EC125849F73}.gif[/qqimg]
[qqimg]oldimg/{B0882394-CBF1-D1CF-6F51-6A0ADD9DB2AD}.gif[/qqimg]
[kwok][kwok]巭隼 17:03:38
谢谢[qqimg]oldimg/{C0EB3F65-CAEB-3DAB-AB6B-3C5744983674}.jpg[/qqimg]
[vormittag]桔子 17:06:29
不客气。
[kwok][kwok]巭隼 17:07:33
哇这么临时工
在打小偷
[雨的节奏][雨的节奏] 17:09:08
有没有获取曲线中心点的函数啊
[夏生生][x_s_s_1]生无可恋 17:09:30
写成这样精炼些
[kwok][kwok]巭隼 17:10:08
可以弄成独立函数了,
[vormittag]桔子 17:10:44
开口和闭合的好像还是不一样。
[夏生生][x_s_s_1]生无可恋 17:11:00
我测试了是一样的啊
[vormittag]桔子 17:11:28
嗯,我搞错了。
[328302216][328302216]小莫 17:12:30
(while (< i n)(move i)(move -i)) 这个是不是(move i)和(move -i)都同时执行?
[夏生生][x_s_s_1]生无可恋 17:12:34
实际上就是把您的while 改成repeat,少了转vla
对象
是的
[雨的节奏][雨的节奏] 17:12:54
[qqimg]oldimg/{F6EB4040-2A34-DA7F-D185-F5CBFB55A402}.gif[/qqimg]精彩
[328302216][328302216]小莫 17:13:14
[夏生生][x_s_s_1]生无可恋 17:13:28
不是说同时
[vormittag]桔子 17:13:34
我当成还取 90组码了。
[夏生生][x_s_s_1]生无可恋 17:13:35
而是先1后-1
取90啰嗦
也可以完成
[328302216][328302216]小莫 17:14:07
嗯 我意思就是两个都必须执行对吧
[vormittag]桔子 17:14:22
取90不确定。
同样的90, 闭合的参数要多一个。
[vormittag]桔子 17:15:25
90组码相同,如果是闭合曲线,参数数量多一个。
[雨的节奏][雨的节奏] 17:17:49
有没有求曲线中心点的函数啊
[kwok][kwok]巭隼 17:20:57
曲线中点
[kwok][kwok]巭隼 17:21:29
(vlax-curve-getdistatpoint curve-obj (/ (vlax-curve-getDistAtPoint curve-obj (vlax-curve-getendpoint curve-obj)) 2.0))这个也可以
[雨的节奏][雨的节奏] 17:22:06
谢谢
我的意思是说中心点
假如是个圆呢,那就直接得到圆心
[kwok][kwok]巭隼 17:22:42
我以为是线的中点
[夏生生][x_s_s_1]生无可恋 17:22:43
圆心不是中心点
[kwok][kwok]巭隼 17:23:02
弄错了
[夏生生][x_s_s_1]生无可恋 17:23:13
圆心是形心重心还一个什么心来的
[雨的节奏][雨的节奏] 17:23:21
对对、、
就是要求那个形心还是重心一个什么心来着
[alexanderlili][alexanderlili]友缘 17:23:32
arc组码10不是中心点吗?
[雨的节奏][雨的节奏] 17:23:57
现在是想求曲线的那个什么开心还是重心的一个什么心
[pzweng]路人 17:24:26
原本想简洁,看来还是桔子已经做到了最简洁了
[VBALISPER]恐龙 17:25:15
开心?
[雨的节奏][雨的节奏] 17:25:57
[qqimg]oldimg/{EF5B92FA-042C-9E0D-94F0-E0A000454173}.jpg[/qqimg]
像这样的图形肯定是有个啥心的嘛
[HNFSF](看海) 17:28:31
CAD转换PDF,或者打印成PDF 用什么办法最好?
[VBALISPER]恐龙 17:28:49
可能是质心吧
[雨的节奏][雨的节奏] 17:28:50
打成PDF、安装一个PDF打印机就行了
[cie0588][cie0588] 17:32:24
08版本自带PDF打印机
[HNFSF](看海) 17:32:34
PDF factory 转换 ole 文件的时候看不清楚
08以后的高版本cad能像PDF factory那样将多个图批量形成多页pdf不?
[不死猫][nonsmall]不死猫 17:37:26
与CAD无关
[雨的节奏][雨的节奏] 17:38:09
安装一个虚拟PDF打印机啊
打印图纸的时候选择PDF打印机就行了啊
[HNFSF](看海) 17:41:06
CAD转换PDF,或者打印成PDF 用什么办法最好?
PDF factory 转换 ole 文件的时候看不清楚
08以后的高版本cad能像PDF factory那样将多个图批量形成多页pdf不?
ya雀无声 17:42:59
谁有entmake创建图元的 函数,通用的
[VBALISPER]恐龙 17:43:12
坛里有
[HNFSF](看海) 17:43:16
这个没办法通用吧
[VBALISPER]恐龙 17:43:33
不叫通用,是大全.
[HNFSF](看海) 17:43:37
insert,和text就不一样
[328302216][328302216]小莫 17:53:26
@ya雀无声 找到有没?发个链接
[蔡__洛]不快乐 17:54:05
又要下班了
ya雀无声 17:55:19
[328302216][328302216]小莫 17:55:38
谢谢了
|