cdr中画线进行要怎么样操作 _cdr

cdr中画线进行要怎么样操作
本文章演示机型：戴尔-成就5890 ，适用系统：windows10家庭版，软件版本：CorelDRAW 2021；
创建CDR文档后打开工具箱中的曲线工具，任意选择一个工具都可以画线，但【手绘工具】和【2点线工具】只能画直线，不能画弧线，而【贝塞尔工具】和【钢笔工具】，则即可以画直线，也能画弧线，这里选择【贝塞尔工具】，单击确定直线的起点后，平移鼠标到终点位置，再次单击鼠标即可画出一条直线，或者在画布中单击确定直线的起点后，在第二个点的位置按住鼠标拖动，即可画出弧线；
选中线条后按【F12】进入轮廓笔设置界面，可以修改线条的粗细、颜色等，需要波浪线时，选中直线后选择【变形工具】，在上方属性栏中选择【拉链变形】和【平滑变形】，然后修改【拉链振幅】和【拉链频率】的数值即可，需要使用虚线时，选中线条后打开属性栏中的【线条样式】下拉选择框，选择一种需要的虚线样式即可；
本期文章就到这里，感谢阅读。

文章插图
谁可以给我一些CAD的好用LISP程序可以用反应器实现，前提是画线和输入文字必须用定义的函数一次性操作完成.lisp代码如下：
(vl-load-com)
(defunc:line_txt(/ptpt1pt2entlinehandtxtvlaobjtmp)
(setqpt1(getpoint"\n指定第一点:"))
(setqpt2(getpoint"\n指定下一点:"))
(setqpt(list(/(+(carpt1)(carpt2))2)(/(+(cadrpt1)(cadrpt2))2)(/(+(caddrpt1)(caddrpt2))2)))
(command"._line"pt1pt2"")
(setqentline(entlast))
(setqvlaobj(cons(vlax-ename->vla-objectentline)'()));;将直线转换为vla对象
(setqhandtxt'((0."text"))
handtxt(appendhandtxt(list(append'(10)pt1)))
handtxt(appendhandtxt(list(append'(11)pt)))
handtxt(appendhandtxt(list(cons40(getdist"\n指定高度:"))))
handtxt(appendhandtxt(list(cons721)))
handtxt(appendhandtxt(list(cons730)))
【cdr中画线进行要怎么样操作】handtxt(appendhandtxt(list(cons50(anglept1pt2))))
handtxt(appendhandtxt(list(cons1(getstring"\n输入文字:>")))))
(entmakehandtxt)
(setqhandtxt(cdr(assoc5(entget(entlast)))))
(vlr-pers(vlr-object-reactorvlaobjhandtxt'((:vlr-modified.linemodefy))))
)
(defunlinemodefy(entlineenttxtparameter-list/ptpt1pt2)
(setqenttxt(entget(handent(vlr-dataenttxt))))
(setqentline(entget(vlax-vla-object->enameentline)))
(setqpt1(cdr(assoc10entline))pt2(cdr(assoc11entline)))
(setqpt(list(/(+(carpt1)(carpt2))2)(/(+(cadrpt1)(cadrpt2))2)(/(+(caddrpt1)(caddrpt2))2)))
(setqenttxt(subst(cons50(anglept1pt2))(assoc50enttxt)enttxt)
enttxt(subst(append'(10)pt1)(assoc10enttxt)enttxt)
enttxt(subst(append'(11)pt)(assoc11enttxt)enttxt))
(entmodenttxt)
)
也可以用属性块实现，将文字与直线定义成属性块，打开块编辑器，在参数选项板中设定点参数和旋转参数，在动作选项板中定义要执行的动作，……，具体的自己参照属性块的做吧。