查看: 1888|回复: 4
UID336842主题帖子精华0积分856阅读权限30通道币0 个威望0 明经币0 个金钱5 个贡献21 激情688 注册时间最后登录在线时间252 小时分享
中级会员, 积分 856, 距离下一级还需 144 积分
帖子精华0通道币0 个明经币0 个
本帖最后由 xman00 于
21:55 编辑
求助：LSP编写，三维多段线绘制矩形
效果：用三维多段线绘制矩形，操作：指定第一个角点，输入尺寸。重点是线的类型为三维多段线，即四个角点Z坐标固定为0.
看了下论坛相关的矩形绘制的贴子，因本人对LSP一窍不通，只能根据我的理解提供一下思路，希望高人们帮忙解决一下。
由3DPOLY自己画矩形的话，需输入四个角点坐标，此处与用二维多段线PLINE自己绘制矩形的步骤一致了。（此处矩形与系统自带命令RECTANG矩形绘制一样是正交矩形，非斜交）。
;;;矩形绘制系统过程界面
命令: rec RECTANG
指定第一个角点或 [倒角(C)/标高(E)/圆角(F)/厚度(T)/宽度(W)]:
指定另一个角点或 [面积(A)/尺寸(D)/旋转(R)]: d
指定矩形的长度 &30.00&: 30
指定矩形的宽度 &30.00&: 30
指定另一个角点或 [面积(A)/尺寸(D)/旋转(R)]:
由多段线（二维，三维无区别）绘制距离需输入P1,P2,P3,P4四个角点坐标，P1为用户点击取得，与REC命令中指定第一个角点一致，P4可通过多段线绘制前三个点后C闭合命令获取。P2，P3的值与REC命令下 D尺寸命令输入信息矩形的长度 ，矩形的宽度有计算关系（此处，Z坐标固定为0值，X或Y方向的增量对应为长度和宽度输入值)。
我能描述的就这些了，再次恳请大家帮忙写下LSP程序。
PS：长度和宽度输入值和REC命令中一样有记忆功能；捕捉不要关闭咯。
[倒角(C)/标高(E)/圆角(F)/厚度(T)/宽度(W)]:和 [面积(A)/旋转(R)]选项均不要哈，命令执行过程如下界面：
命令: recc
指定第一个角点:
指定矩形的长度 &30.00&:&&30
指定矩形的宽度 &30.00&:&&30
指定另一个角点（和REC命令中一样，即选择生成的矩形的象限位置）。
UID336842主题帖子精华0积分856阅读权限30通道币0 个威望0 明经币0 个金钱5 个贡献21 激情688 注册时间最后登录在线时间252 小时分享
中级会员, 积分 856, 距离下一级还需 144 积分
帖子精华0通道币0 个明经币0 个
自己顶一个先，求教高手哇
UID161460主题帖子精华26积分59998阅读权限150通道币0 个威望40 明经币5715 个金钱4381 个贡献888 激情21940 注册时间最后登录在线时间3329 小时分享
★★★★★★★
帖子精华26通道币0 个明经币5715 个
(defun c:tt()
&&(setq ent (entlast))
&&(command &_rectang&)
&&(while (= 1 (getvar &cmdactive&))
&&(command pause)
& & )
&&(if (not (equal ent (setq ent (entlast))))
& & (progn
& && &(setq pl (vl-remove-if-not '(lambda (x) (= 10 (car x))) (entget ent))
& & & && &&&pl (mapcar '(lambda (x) (append (cdr x) '(0))) pl)
& & & && &&&)
& && &(entdel ent)
& && &(command &_3dpoly&)
& && &(foreach pt pl&&(command &_non& pt))
& && &(command &_c&)
& && &)
& & )
&&)
UID125561主题帖子精华0积分14382阅读权限60通道币0 个威望4 明经币152 个金钱3240 个贡献619 激情9018 注册时间最后登录在线时间1300 小时分享
钻石会员, 积分 14382, 距离下一级还需 618 积分
帖子精华0通道币0 个明经币152 个
G版牛，什么都难不到.
UID336842主题帖子精华0积分856阅读权限30通道币0 个威望0 明经币0 个金钱5 个贡献21 激情688 注册时间最后登录在线时间252 小时分享
中级会员, 积分 856, 距离下一级还需 144 积分
帖子精华0通道币0 个明经币0 个
G大，真是G大啊，万分感谢。只能称赞一个，强。
论坛年度贡献勋章
论坛年度贡献勋章
& 明经通道 版权所有 本站代码，在未取得本站及作者授权的情况下，不得用于商业用途
Powered byCAD命令的使用之图文解说_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
评价文档：
CAD命令的使用之图文解说
阅读已结束，如果下载本文需要使用
想免费下载本文？
把文档贴到Blog、BBS或个人站等：
普通尺寸(450*500pix)
较大尺寸(630*500pix)
你可能喜欢怎样在CAD中让用样条曲线画的图变为多段线 - CAD之家
您的位置：>>>
怎样在CAD中让用样条曲线画的图变为多段线
首先，要说明的是，在AutoCAD中，没有某个命令是可以直接将样条曲线转换成多段线的。
要得到这个结果的话，其原理，其实是用多段线来拟合样条曲线。
将样条曲线转换为多段线的方法如下：
首先，先要确保你的AutoCAD已经安装了Express工具包。
之后，选中要进行转换的样条曲线。
然后运行flatten命令。
进入命令后，再回车一下就好了。
之后，选中这个对象，你就会发现上面多了好多蓝色的夹点，而对象的特性也已经变成了&多段线&。
命令介绍：Express - modify - flatten objects
flatten&&将三维几何图形（当然，也可以是二维图形）转化为二维对象，形式为多段线。
这个就是将样条曲线转换为多段线的原理。在CAD中用多段线画个指定尺寸的矩形 怎么操作?_百度知道
在CAD中用多段线画个指定尺寸的矩形 怎么操作?
指定尺寸在后面输入@(长)直接用矩形命令画呗，命令是REC空格，（宽）长宽中间用都好隔开
其他类似问题
为您推荐：
您可能关注的推广回答者：回答者：
cad的相关知识
其他3条回答
pl命令，这是很基础的，随便找个教材都有
欢迎划入QQ群：
里面有很多高手 教学视频马上就能在短时间内做出来
这么简单的
看来你要加强学习
呵呵多线段——任意点一点——输入你要的数据——选择方向——…………（重复后两步） 画前要打开正交哦
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁}