明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 3373|回复: 20

[LISP群(1)] 2013-05-29 明经 AutoLISP 编程(102918348) 群聊记录:[image={647A09C4-94C1-1C8F-EF79-FF3359

 关闭 [复制链接]
发表于 2013-5-29 08:25:32 | 显示全部楼层 |阅读模式
[zhuquanmao]关中 08:25:32
[qqimg]oldimg/{647A09C4-94C1-1C8F-EF79-FF3359FDC1D2}.jpg[/qqimg]怎么把他正过来?
[ds-limt]-厨师木 08:26:24
ucs,w
plan,w
[zhuquanmao]关中 08:26:57
真还没用过这个命令
厨师画图也这么厉害
[ds-limt]-厨师木 08:27:56
嗯,我是画锅
[阿然][阿然] 08:29:04
http://bbs.mjtd.com/thread-90335-1-1.html现在大佬们都不讨论这样的内容了
 楼主| 发表于 2013-5-29 08:59:17 | 显示全部楼层
[linshiyin2]大地 08:59:17
是最高尚宫吧
 楼主| 发表于 2013-5-29 09:21:14 | 显示全部楼层
[zhuquanmao]关中 09:21:14
为啥我自定义的菜单每次都需要重新加载一遍才能出现 WIN7+理正
[kwok][kwok]巭隼 09:29:55
请问一下,怎么在点表的每个点上画一条垂直线?
[夏生生][x_s_s_1]生无可恋 09:31:10
垂直点表?
[夏生生][x_s_s_1]生无可恋 09:32:02
垂直于谁?
[夏生生][x_s_s_1]生无可恋 09:32:52
一个点的垂直线有无数条
[kwok][kwok]巭隼 09:32:56
newplst 这个表生成的一条线,然后想在每个点处再画一条垂直的线
一品缘 09:33:00
[qqimg]oldimg/{5D1435D8-F0DF-8A91-6B99-4DCD44B6DED7}.gif[/qqimg]
急求高手能帮我遍这种出来
[夏生生][x_s_s_1]生无可恋 09:33:39
不可能只画一条,会有两条
[kwok][kwok]巭隼 09:33:42
newplst 这个表生成的一条线,然后想在每个点处再画一条垂直的线,也就是垂直由点表生成的线
[kwok][kwok]巭隼 09:35:11
那为什么画圆就只有一个圆,上面发的码是在论坛找到的,就是不到画垂直线的
[夏生生][x_s_s_1]生无可恋 09:35:37
[qqimg]oldimg/{08E53D3A-BAF4-8C82-131B-B7C33F19A820}.jpg[/qqimg]
哥你是学啥的
[kwok][kwok]巭隼 09:36:19
不会过样,点表生成的是直线
[夏生生][x_s_s_1]生无可恋 09:37:12
所谓垂线至少有两个必要条件垂直于谁,所过点
你自己想想你的问题成立不
[kwok][kwok]巭隼 09:38:45
[qqimg]oldimg/{BB22783B-9188-B4E7-C153-54AC152FBB0F}.jpg[/qqimg]
[kwok][kwok]巭隼 09:40:14
画圆是解决了,现在想画一线垂直线,在已有多段线的每个端点newplst
[夏生生][x_s_s_1]生无可恋 09:44:48
组成两个点表,相应的可以表一元素1和表二元素1可形成一条直线,然后求出该直线的angle,polar你需要的距离角度为angle+(/ pi 2)
[夏生生][x_s_s_1]生无可恋 09:45:20
你的明白?
[kwok][kwok]巭隼 09:46:33
我想加个点
(setq p3 (polar p1 (* pi 0.5) 1000))定这条线的长度,然后点表以这个来画,可以不
[夏生生][x_s_s_1]生无可恋 09:47:23
你的线是平行于X轴的呢?
你的线是不平行于X轴的呢?
[kwok][kwok]巭隼 09:47:37
是的确
[夏生生][x_s_s_1]生无可恋 09:47:48
先要有角度
[夏生生][x_s_s_1]生无可恋 09:48:37
按照我刚才的思路可以做到这样的效果[qqimg]oldimg/{B26BF537-B967-528F-81C1-78D1E9B818C8}.jpg[/qqimg]
 楼主| 发表于 2013-5-29 09:59:00 | 显示全部楼层
[夏生生][x_s_s_1]生无可恋 09:59:00
[qqimg]oldimg/{39DF1DF6-62E2-DC4B-185F-C5145C2878EB}.jpg[/qqimg]
[夏生生][x_s_s_1]生无可恋 10:01:28
你如果需要再处理这些线的话可以将entmake改为entmakex
[kwok][kwok]巭隼 10:01:39
谢谢
[夏生生][x_s_s_1]生无可恋 10:01:47
不客气
[kwok][kwok]巭隼 10:02:41
我在学论坛里的一个lsp把多线段展直并画垂直线
[夏生生][x_s_s_1]生无可恋 10:05:13
画展开线吧
圆弧部分不好处理
[kwok][kwok]巭隼 10:06:05
是的,
[vormittag]桔子 10:10:10
每一段长度求出来画直线不就结了?
[夏生生][x_s_s_1]生无可恋 10:12:19
对于拟合的可以先判断点距小于多少的点删除
[328302216][328302216]小莫 10:13:48
怎么得到多行文字的方框坐标?用textbox好像只能得到单行文字的方框对角点坐标!!
[328302216][328302216]小莫 10:16:25
 楼主| 发表于 2013-5-29 10:30:17 | 显示全部楼层
[阿然][阿然] 10:30:17
试一试多行文字的42和43组码
[328302216][328302216]小莫 10:33:39
嗯  谢谢 阿然兄
[夏生生][x_s_s_1]生无可恋 10:35:14
阿然兄,请问(bpoly pt [ss vector])中的向量是任意的吗
[阿然][阿然] 10:37:42
我原来理解的是bpoly用的是射线法测试闭合区域,给了vector就是给他指定几个方向做射线
也不知道是不是这样
[夏生生][x_s_s_1]生无可恋 10:38:30
谢谢,您这么一解释感觉应该是的
[阿然][阿然] 10:39:00
还是要大佬出来总结发言下才是王道
[夏生生][x_s_s_1]生无可恋 10:39:41
还有bhatch这两个函数折磨我很久了,现在还是用command呢
[阿然][阿然] 10:40:05
hatch我用vla的方法
[夏生生][x_s_s_1]生无可恋 10:41:14
[夏生生][x_s_s_1]生无可恋 10:42:33
hatch这鬼东西entmake搞死人
我搞了个很不理想
尤其是渐变色部分
[阿然][阿然] 10:43:11
我这个不通用,你看着改吧
[夏生生][x_s_s_1]生无可恋 10:43:33
谢谢了,通用很难
[夏生生][x_s_s_1]生无可恋 10:44:26
考虑的东西太多,研究了他的组码,对于二次曲线比较困难
 楼主| 发表于 2013-5-29 11:30:30 | 显示全部楼层
一品缘 11:30:30
有谁能帮我写这样的一个程序:在多个封闭区域的多段线的情况下把它们桥接起来成为一个整体,而且桥接的两条线的距离是0.1MM,如下图GIF动态图片所表示,桥接后仍然是多段线!
[qqimg]oldimg/{CDDC1D37-FF55-C980-CF22-1D77C87A8D64}.gif[/qqimg]
[kwok][kwok]巭隼 11:33:01
画双线修剪,闭合?
一品缘 11:33:17
对了
一品缘 11:33:47
就是你说的这种效果
[夏生生][x_s_s_1]生无可恋 11:33:50
给我一包烟,我帮你写
一品缘 11:34:13
呵呵呵,烟不是问题
关键是你能不能帮我写
[kwok][kwok]巭隼 11:34:55
好象论坛有双线修剪的,闭合用pedit,
[阿然][阿然] 11:35:27
桥接以后两个闭合框是同一个闭合线?
一品缘 11:35:38
是的
[夏生生][x_s_s_1]生无可恋 11:36:07
桥接以后两个闭合框是同一个闭合线不会写
[lisp](car (entsel)) 11:36:08
明经里面的e2002是谁呀?
[夏生生][x_s_s_1]生无可恋 11:36:14
只能遮挡
[lisp](car (entsel)) 11:36:16
我很想联系他
@e2002
[阿然][阿然] 11:36:39
难度不大,是体力活
[夏生生][x_s_s_1]生无可恋 11:36:52
搞基友?
[蔡__洛]不快乐 11:37:00
好事
[夏生生][x_s_s_1]生无可恋 11:37:09
看他的图都断开了,如何还统一闭合线
[阿然][阿然] 11:37:13
无基不欢
[蔡__洛]不快乐 11:37:23
这个东西 是建筑还是 机械领域的东西?
[阿然][阿然] 11:37:33
感觉象电路板
[蔡__洛]不快乐 11:37:44
不懂
[bmy07]白欣 11:37:54
“NAME=城西大道” 如何去掉"NAME=" 变成"城西大道"
一品缘 11:37:58
是线切割
[kwok][kwok]巭隼 11:37:59
应是用来切割的
[bmy07]白欣 11:38:05
有没有这种函数
[蔡__洛]不快乐 11:38:07
不安装.net组件能用ActiveX不?
[lisp](car (entsel)) 11:38:07
有谁知道如何用autocad来调用vim?
[夏生生][x_s_s_1]生无可恋 11:38:34
搜索=然后substr
[bmy07]白欣 11:38:50
没有其他方法吗
[lisp](car (entsel)) 11:39:22
有谁知道如何用autocad来调用vim?
[夏生生][x_s_s_1]生无可恋 11:39:23
vl-string族的函数看看,方法在里面
[bmy07]白欣 11:39:34
好的
看睥
看看,谢谢
[蔡__洛]不快乐 11:40:19
直接(substr "" "NAME=" “NAME=城西大道”)
[夏生生][x_s_s_1]生无可恋 11:40:28
vl-string-search配合substr的方法就可以解决您的问题
貌似不行
[夏生生][x_s_s_1]生无可恋 11:41:37
substr不是这么用的[qqimg]oldimg/{8DDF1234-A583-BB12-C7D6-84CE80FAB840}.jpg[/qqimg]
[蔡__洛]不快乐 11:42:11
哈哈 搞错了
记成subst了
[bmy07]白欣 11:42:52
[bmy07]白欣 11:43:30
找到了 vl-string-left-trim
[阿然][阿然] 11:43:54
(substr "NAME=城西大道" 6)
[蔡__洛]不快乐 11:44:17
从字符串的开始删除指定字符

(vl-string-left-trim character-set string)
参数

character-set

字符串,列出要被删除的字符。

string

字符串,从中删除 character-set。

返回值

字符串,包含 string 的子字符串,其中所有 charac ter-set 中的字符都已被删除。

示例

_$ (vl-string-left-trim "  " "  STR ")
"STR "
_$ (vl-string-left-trim "12456789" "12463CPO is not R2D2")
"3CPO is not R2D2"
_$ (vl-string-left-trim " " "     There are too many spaces here")
"There are too many spaces here"
[bmy07]白欣 11:44:17
好像这个也可以
[夏生生][x_s_s_1]生无可恋 11:45:23
对于不定式我那种方法还是比较好的
[bmy07]白欣 11:45:47
嗯,谢谢大家
[阿然][阿然] 11:46:39
(substr "NAME=城西大道" (+ (vl-string-position (ascii "=") "NAME=城西大道") 2))
[蔡__洛]不快乐 11:47:25
soga
[阿然][阿然] 11:48:21
(defun tt( str chr)
(substr str (+ (vl-string-position (ascii chr) str) 2))
)
(tt "NAME=城西大道" "=")
[bmy07]白欣 11:51:16
想删除哪都可以
[夏生生][x_s_s_1]生无可恋 11:53:37
要丰满一点就要先判断全角半角
一品缘 11:54:10
谁有双线修剪的LISP程序啊??急求!!
 楼主| 发表于 2013-5-29 12:12:49 | 显示全部楼层
ya雀无声 12:12:49
有一个历史难题
[qqimg]oldimg/{8A1A4F3A-BE8C-5185-4A51-845B2462E8A3}.jpg[/qqimg]
[qqimg]oldimg/{B2383431-9598-2BB2-48DD-D72F82798E62}.jpg[/qqimg]这个怎么样快速剪成上面那个图一样
不分图层
 楼主| 发表于 2013-5-29 12:35:35 | 显示全部楼层
[邹锋]Tony 12:35:35
如何 将一个图元,从0,0,0 升到 0,0, DIST
 楼主| 发表于 2013-5-29 12:51:24 | 显示全部楼层
一品缘 12:51:24
[qqimg]oldimg/{D78EC342-A612-1B77-8957-33C183A1A42A}.gif[/qqimg]搞了这么久,没人能做得出如图所示双线修剪???
一品缘 12:53:24
郁闷啊
[夏生生][x_s_s_1]生无可恋 12:54:12
自己搞,郁闷啥啊
求人不如求己
一品缘 12:54:36
呵呵,不会啊
[邹锋]Tony 12:58:50
?vlax-3d-point
 楼主| 发表于 2013-5-29 13:08:57 | 显示全部楼层
[ds-limt]-厨师木 13:08:57
ucs,w
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-11-6 07:21 , Processed in 0.211427 second(s), 27 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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