如何将石膏线拾取(你好,平时画天花石膏线时要不断地偏移,请问怎么用lisp程序拾取石)

1.你好,平时画天花石膏线时要不断地偏移,请问怎么用lisp程序拾取石

将下面文字存成.lsp文件。命令名是JML,不满意自己改下 c:后的内容。点到了对像也不会虚显哈,反正没点到会报错的,如果一定要虚显自己加两句redraw好了。

;--------根据天花断面投射平面图--------

(defun c:JML ()

(setvar "cmdecho" 0)

(setq cd (getvar "offsetdist"))

(princ "\需要选取单根POLYLINE作为截面线")

(setq ssn (entsel "\n选取截面线"))

(setq listy ())

(setq endata (entget (car ssn)))

(setq n 0)

(repeat (length endata)

(setq pp (nth n endata))

(setq key (car pp))

(if (= key 10)

(progn

(setq pty (caddr pp))

(setq listy (cons pty listy))))

(setq n (+ n 1)))

(setq listy (vl-sort listy (function (lambda (y1 y2) (>= y1 y2)))))

(setq m 0 listd ())

(setq ymax (nth 0 listy))

(repeat (length listy)

(setq pty (nth m listy))

(setq disty (- ymax pty))

(if (and (/= disty 0) (/= disty (car listd)))

(setq listd (cons disty listd)))

(setq m (+ m 1)))

(setq ssc (entsel "\n选取天花外框线"))

(setq pt1 (getpoint "\n点选偏移方向(向内侧)"))

(setq p 0)

(repeat (length listd)

(setvar "offsetdist" (nth p listd))

(command "offset" "" ssc pt1 "")

(if (/= p 0)

(command "change" "l" "" "p" "c" "8" "")

(progn

(setq ss (car ssc))

(setq list1 (cord ss))

(setq list2 (cord (entlast)))

(setq n 0)

(repeat (length list1)

(command "line" (nth n list1) (nth n list2) "")

(command "change" "l" "" "p" "c" "8" "")

(setq n (+ 1 n)))))

(setq p (+ p 1)))

(command "clayer" cl)

(setvar "offsetdist" cd)

(prin1)

)

(defun cord (ssn)

(setq listm ())

(setq endata (entget ssn))

(setq m 0)

(repeat (length endata)

(setq pp (nth m endata))

(setq key (car pp))

(if (= key 10)

(progn

(setq xy (list (cadr pp) (caddr pp)))

(setq listm (cons xy listm))))

(setq m (+ 1 m)))

(setq listn listm)

)

2.关于3dmax石膏线 之前,朋友说石膏线扫描完,有办法让这些分段线条

不知道你说的扫描是什么,一般我们3D做石膏线都是用loft 放样来完成,方法如下,

首先画出脚线的 截面图 然后 用线勾出 要做的脚线的形状路径如图,这里我模拟一个L型脚线

画好后 选择 线 或者 选择 截面形状 都可以, 在创建面板的 复合物体菜单下 找到loft命令 ,点击后 在菜单中选择 拾取图形或拾取路径(根据你一开始选择的是什么就拾取相反的)

然后就会生成石膏线

此时生成的石膏线 不仔细看发现不了问题, 但仔细看 拐角处会发现 拐角比较圆滑 棱角不清晰, 这里可能就是你说的问题所在, 所以我们要取消横向的 光滑 如图

去掉此勾

结果

于最初相比 转角处 更明显 更犀利

至于你说的线分布 这样做的线自然是均匀分布的

3.哪位大神告诉我这样的石膏线要怎样才能做出来,cad,3dmax,圆方都

先用样条 线画出边缘的形状

再用倒角剖面拾取角线剖面,然后这种,至于这种凸出来的排列的部分,可以先做一个,再用间隔工具,拾取之前的路径,放好位置就OK。

4.3d max里吊顶石膏线我拾取剖面 为啥是朝里的 我想要朝外的咋改

第一步

第二步

第三步

拾取倒角剖面之后的样子

重点来了,点击旋转。旋转之后的样子

5.3dmax怎么画石膏线样然后放样

1、首先打开 3dmax, 在顶部视图上绘制一条垂直线、一个圆、一个立方体和一个椭圆。

2、然后点击一条直线,在复合对象下找到放样工具,点击放样工具。

3、然后单击 "创建" 方法下的 "获取图形", 然后单击平面图形, 如单击 "圆", 然后更改直线。

4、在路径旁边输入 "30", 指示节从开始和结束的30个开始放置, 单击 "获取图形", 在点矩形中, 它以30处矩形部分的图形开头。

5、同样,在路径旁输入“60”,点击“获取图形”后,再点椭圆,则结果一样。

6、仔细一看, 这的形状有点突然, 因为三个平面图形的第一个顶点的位置是不一致的, 你可以解决问题, 通过旋转的部分, 首先点击旋转工具, 然后打开角度捕捉, 设置角度45°。

7、然后点击loft下的图形,选择矩形旋转45°,这样图形就不扭曲了。

如何将石膏线拾取

转载请注明出处116知识网 » 如何将石膏线拾取(你好,平时画天花石膏线时要不断地偏移,请问怎么用lisp程序拾取石)

资讯

如何将mpv文件转换成(MPV格式怎么转换成MP4或AVI格式的)

阅读(56)

本文主要为您介绍如何将mpv文件转换成,内容包括怎么用格式工厂把MPV转换成MP4,mpv格式怎么转换成mp4,MPV格式怎么转换成MP4或AVI格式的。视频转换,首当推荐你使用QQ影音了,基于强劲内核,新版本增加了视频转换功能,能够让用户在播放的视频的同时

资讯

如何将设为幻灯水印(POWERPOINT中如何把图片设置为水印效果)

阅读(51)

本文主要为您介绍如何将设为幻灯水印,内容包括POWERPOINT中如何把图片设置为水印效果,在ppt中怎么把图片设置为水印画,PPT的图片怎么设成水印。在POWERPOINT中把图片设置为水印效果,可以在“设计”选项卡,“设置背景格式”中,“填充”图片。以

资讯

如何将纸张背景撤回护眼模式(如何取消word护眼模式)

阅读(50)

本文主要为您介绍如何将纸张背景撤回护眼模式,内容包括如何取消word护眼模式,如何去除word背景护眼色,请问如何把WORD2003文档的背景色取消护眼模式啊。如何将word 背景设置成保护眼睛的绿色 设置方法: 桌面->右键->属性->外观->高级->项目

资讯

如何将kill添加到stc(keiluvision5怎么加stc)

阅读(18)

本文主要为您介绍如何将kill添加到stc,内容包括keiluvision5怎么加stc,怎么在ISIS7Professional中加入stc单片机,如何在uvision2中添加STC头文件。3个方法:【1】数据库替换法(STC官网方法):先备份KEIL安装目录UV2(或者UV3)文件夹下面的UV2.CDB(或

资讯

如何将p值带e(什么是P/E值)

阅读(50)

本文主要为您介绍如何将p值带e,内容包括统计p值怎么算的例题里方差分析表给出的p值5.6272E05这里的E等,什么是P/E值,固态硬盘怎么查看P/E值和已用P/E。市盈率(P/E)对于中国上市公司来说,公司规模(size)、市盈率(P/E)、上一个季度的收益率(momentum)

资讯

如何将5g的导入u盘(如何把5G的文件,复制到16G的U盘上)

阅读(51)

本文主要为您介绍如何将5g的导入u盘,内容包括如何把5G的文件,复制到16G的U盘上,如何用OTG线将手机里超过5G的视频拷到U盘里,如何用OTG线将手机里超过5G的视频拷到U盘里。需要将U盘格式化为NTFS格式,因为FAT32格式不支持单个大于4G的文件。将

资讯

如何将杜娟花弄成盆裁(想把杜鹃花修剪成盆景怎么弄)

阅读(52)

本文主要为您介绍如何将杜娟花弄成盆裁,内容包括想把杜鹃花修剪成盆景怎么弄,杜娟花怎样换盆,请问,杜娟花如何盆栽请具体详细地告诉我。想把杜鹃修剪成盆景,要在春天开花后或秋天结合翻盆进行修剪。比较常见的有三种造型,分别是悬臂式、盘龙

资讯

如何将4张拼接一张(怎么把4张合成1张照片)

阅读(23)

本文主要为您介绍如何将4张拼接一张,内容包括美图秀秀怎么把四张照片拼成一张,如何将4张照片合为一张(把4张拼一块的那种),怎么把4张合成1张照片。你好这位朋友!操作很简便。你那四张画面都是同样大小吧,一张一张的拼接就可以了。方法如下:启动p

资讯

如何将qq信息彻底删除(要怎么把自己的qq聊天记录彻底删掉)

阅读(19)

本文主要为您介绍如何将qq信息彻底删除,内容包括要怎么把自己的qq聊天记录彻底删掉,如何把QQ里的消息彻底清除,手机登时看不到记录,如何永久性删除QQ聊天记录。清除聊天记录有几种方法。 一个是整个QQ号的聊天记录清除,进入QQ安装目录,找到与

资讯

如何将mpv文件转换成(MPV格式怎么转换成MP4或AVI格式的)

阅读(56)

本文主要为您介绍如何将mpv文件转换成,内容包括怎么用格式工厂把MPV转换成MP4,mpv格式怎么转换成mp4,MPV格式怎么转换成MP4或AVI格式的。视频转换,首当推荐你使用QQ影音了,基于强劲内核,新版本增加了视频转换功能,能够让用户在播放的视频的同时

资讯

如何将设为幻灯水印(POWERPOINT中如何把图片设置为水印效果)

阅读(51)

本文主要为您介绍如何将设为幻灯水印,内容包括POWERPOINT中如何把图片设置为水印效果,在ppt中怎么把图片设置为水印画,PPT的图片怎么设成水印。在POWERPOINT中把图片设置为水印效果,可以在“设计”选项卡,“设置背景格式”中,“填充”图片。以

资讯

如何将纸张背景撤回护眼模式(如何取消word护眼模式)

阅读(50)

本文主要为您介绍如何将纸张背景撤回护眼模式,内容包括如何取消word护眼模式,如何去除word背景护眼色,请问如何把WORD2003文档的背景色取消护眼模式啊。如何将word 背景设置成保护眼睛的绿色 设置方法: 桌面->右键->属性->外观->高级->项目

资讯

如何将kill添加到stc(keiluvision5怎么加stc)

阅读(18)

本文主要为您介绍如何将kill添加到stc,内容包括keiluvision5怎么加stc,怎么在ISIS7Professional中加入stc单片机,如何在uvision2中添加STC头文件。3个方法:【1】数据库替换法(STC官网方法):先备份KEIL安装目录UV2(或者UV3)文件夹下面的UV2.CDB(或