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

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

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

文章插图
谁可以给我一些CAD的好用LISP程序可以用反应器实现,前提是画线和输入文字必须用定义的函数一次性操作完成.lisp代码如下:
(vl-load-com)
(defunc:line_txt(/ptpt1pt2entlinehandtxtvlaobjtmp)
(setqpt1(getpoint"\n指定第一点:"))
【cdr中画线进行要怎么样操作】(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)))
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)
)
也可以用属性块实现,将文字与直线定义成属性块,打开块编辑器,在参数选项板中设定点参数和旋转参数,在动作选项板中定义要执行的动作,……,具体的自己参照属性块的做吧 。


    推荐阅读