今日吸收CAD梦想画图---云线
本帖最后由 lihao2014 于 2021-7-2 16:58 编辑在线CAD中云线是由连续圆弧组成的多段线。执行方式（1）单击菜单栏“绘图→云线”。如图：https://admin.mxdraw3d.com/images/ueditor/1390124101988913152.jpg（2）单击菜单栏“功能→批注→云线”。如图：https://admin.mxdraw3d.com/images/ueditor/1390124148445024256.jpg（3）在左下角命令行中输入“_Revcloud”按enter键。如图：https://admin.mxdraw3d.com/images/ueditor/1390124191596023808.jpg操作步骤执行命令之后，命令行会显示以下信息：https://admin.mxdraw3d.com/images/ueditor/1390124231269945344.jpg选项说明（1）第一点：指定云线的起点。（2）当要完成这条云线的绘制时，单击以下鼠标左键。如图所示为绘制云线的图形。https://admin.mxdraw3d.com/images/ueditor/1390124269513609216.jpg
这个云线有啥作用呢{:1110_557:} juty88 发表于 2021-7-1 20:38
这个云线有啥作用呢
审图、校图、着重批注都可以把图形部分圈出来 本帖最后由 xxkz 于 2021-7-2 15:06 编辑
======================
;;find_peak_point_left 找出选择框的左上角点
(defun find_peak_point_left (aa0 bb0 / calu_pos_ori_x calu_pos_ori_y)
(if (> (car aa0) (car bb0))
(setq calu_pos_ori_x (car bb0))
(setq calu_pos_ori_x (car aa0))
)
(if (> (cadr aa0) (cadr bb0))
(setq calu_pos_ori_y (cadr aa0))
(setq calu_pos_ori_y (cadr bb0))
)
(setq calu_pos_ori (list calu_pos_ori_x calu_pos_ori_y 0))
)
;;find_peak_point_right 找出选择框的右下角点
(defun find_peak_point_right (aa0 bb0 / calu_pos_ori_x calu_pos_ori_y)
(if (< (car aa0) (car bb0))
(setq calu_pos_ori_x (car bb0))
(setq calu_pos_ori_x (car aa0))
)
(if (< (cadr aa0) (cadr bb0))
(setq calu_pos_ori_y (cadr aa0))
(setq calu_pos_ori_y (cadr bb0))
)
(setq calu_pos_ori (list calu_pos_ori_x calu_pos_ori_y 0))
)
(defun c:kk ()
(setq oldos (getvar "osmode"))
(setq aa_point (getpoint "\n点取云线起点:"))
(setq bb_point (getcorner aa_point "\n点取云线终点:"))
(setq s_point (find_peak_point_left aa_point bb_point));左上角点
(setq e_point (find_peak_point_right aa_point bb_point));右下角点
(setq AllXyList nil)
(setvar "cmdecho" 0)
(setq dengfen 5) ;等分20份
(if (<= (abs (- (car e_point) (car s_point)))
(abs (- (cadr e_point) (cadr s_point)))
)
(setq steplen (/ (abs (- (car e_point) (car s_point))) dengfen))
(setq steplen (/ (abs (- (cadr e_point) (cadr s_point))) dengfen))
) ;if 步长
;;下面计算应该生成的圆弧个数,实际上短边方向是已知的，不过再判断一次比较方便
(setq x_num (fix (/ (abs (- (car e_point) (car s_point))) steplen)))
;x方向数量
(setq y_num (fix (/ (abs (- (cadr e_point) (cadr s_point))) steplen)))
;y方向数量
(setq s_xunhuan s_point
e_xunhuan e_point
)
;;下面计算所有的点坐标，并存入一个表中供调用
(repeat x_num
(setq next_point
(list (+ (car s_xunhuan) steplen)
(cadr s_xunhuan)
(caddr s_xunhuan)
)
) ;计算下一个点
(setq AllXyList (cons s_xunhuan AllXyList)) ;收集坐标点
(setq s_xunhuan next_point)
) ;计算x方向坐标，方向从左向右
(repeat y_num
(setq next_point
(list (car s_xunhuan)
(- (cadr s_xunhuan) steplen)
(caddr s_xunhuan)
)
) ;计算下一个点
(setq AllXyList (cons s_xunhuan AllXyList)) ;收集坐标点
(setq s_xunhuan next_point)
) ;计算y方向坐标，方向从上到下
(repeat x_num
(setq next_point
(list (- (car s_xunhuan) steplen)
(cadr s_xunhuan)
(caddr s_xunhuan)
)
) ;计算下一个点
(setq AllXyList (cons s_xunhuan AllXyList)) ;收集坐标点
(setq s_xunhuan next_point)
) ;计算x方向坐标，方向从右向左
(repeat y_num
(setq next_point
(list (car s_xunhuan)
(+ (cadr s_xunhuan) steplen)
(caddr s_xunhuan)
)
) ;计算下一个点
(setq AllXyList (cons s_xunhuan AllXyList)) ;收集坐标点
(setq s_xunhuan next_point)
) ;计算y方向坐标，方向从下到上
(setq AllXyList (reverse (cons s_point AllXyList)))
;把起点的坐标加进去，构成闭合图形
(setvar "osmode" 0)
(command ".pline")
(setq FriFlags 0)
(foreach x AllXyList
(command x) ;这个command是关键
(command "w" 0 1 "a")
(if (= FriFlags 0)
(progn
(command "a" -120)
(setq FriFlags 1)
)
(progn
(command -120)
(setq FriFlags (1+ FriFlags))
)
)
) ;foreach
(command (car AllXyList) "");如此才能结束pline
(setvar "osmode" oldos)
)
================上下等号不要复制，将文件复制到文本文档内，另存为*.lsp文件，在CAD里面加载，就可以绘制云线了，命令“KK”
页:
[1]