cad云曲线怎么描绿植

① CAD用多段线怎么精确描图

重新描一遍的话，只有使用程序，描一遍后，对象的Z坐标为当前坐标，Z坐标的发向坐标为1。程序不改变图元的颜色，线型，图层，只改变它的属性。

(defunC:tes(/&ac0&k1&kw1&ob1mspace);重新描一遍对象;圆,椭圆,弧,直线,多段线
(setvar"cmdecho"0)
(setvar"blipmode"0)
(if(nullvlax-mp-object)(vl-load-com))
(command"UCS""")
(setqmSpace(vla-get-ModelSpace(vla-get-ActiveDocument(vlax-get-acad-object)))&n40)
(if(setq&kw1(ssget'((0."CIRCLE,ELLIPSE,ARC,LINE,LWPOLYLINE"))));1
(progn;;1
(setq&n5(rtos(sslength&kw1)20))
(while(setq&k1(ssname&kw10));1
(setq&kw1(ssdel&k1&kw1)&ob1(vlax-ename->vla-object&k1)&ac0(vla-get-objectname&ob1))
(if(member&ac0'("AcDbArc""AcDbCircle""AcDbEllipse""AcDbLine""AcDbPolyline"))(setq&n6(T~20150708~1&ob1&ac0mSpace)))
(setq&n4(+&n4&n6))
(vla-delete&ob1)
);while;1
(princ(strcat"
共处理了"&n5"个曲线，""共删除了长度小于0.05的曲线"(rtos&n420)"个"))
);progn;1
);if;1
(prin1)
)
;;=============
;重新描一遍对象
;==============
(defunT~20150708~1(&ob1&ac0mSpace/&ac0&ang1&ang2&ang3&clo&co1&cx1&dis1&dis2&dis3&end&n1&n2&n3&ob1&ob2&p1&p2&p3&p5&r1&ss1&sta&tc1awewmspace)
(if(<(vlax-curve-getDistAtParam&ob1(vlax-curve-getEndParam&ob1))0.05);1
(setq&n31)
(progn;;1
(setq&sta(vlax-curve-getStartPoint&ob1);起点
&end(vlax-curve-getEndPoint&ob1);端点
&tc1(vla-get-layer&ob1);图层
&co1(vla-get-Color&ob1);颜色
&cx1(vla-get-Linetype&ob1);线型
aw(vlax-curve-isClosed&ob1);闭合
&n30
)
(if(member&ac0'("AcDbArc""AcDbCircle""AcDbEllipse"));2
(progn;;2
(setq&p3(vla-get-Center&ob1)&p1(Vlax-SafeArray->List(Vlax-Variant-Value&p3)))
(if(member&ac0'("AcDbCircle""AcDbArc"))(setq&R1(vla-get-radius&ob1)))
(if(member&ac0'("AcDbArc""AcDbEllipse"))(progn(setq&ang1(vla-get-StartAngle&ob1)&ang2(vla-get-EndAngle&ob1))))
(if(=&ac0"AcDbCircle")(entmake(list'(0."CIRCLE")(cons8&tc1)(cons62&co1)(cons6&cx1)(cons10&p1)(cons40&R1))))
(if(=&ac0"AcDbArc");3-1
(progn;3-1
(setq&dis1(*(vlax-curve-getDistAtParam&ob1(vlax-curve-getEndParam&ob1))0.5)&p5(vlax-curve-getPointAtDist&ob1&dis1))
;(setq&ob2(vla-addArcmSpace&p3&R1&ang1&ang2))
;(vla-put-layer&ob2&tc1)(vla-put-Color&ob2&co1)(vla-put-Linetype&ob2&cx1)
(setq&ang1(rem(angle&p1&sta)(*pi2))&ang2(rem(angle&p1&end)(*pi2)))
(entmake(list'(0."ARC")(cons8&tc1)(cons62&co1)(cons6&cx1)(cons10&p1)(cons40&R1)(cons50&ang1)(cons51&ang2)))
(setq&ob2(entlast)&ob2(vlax-ename->vla-object&ob2))
(setq&dis1(*(vlax-curve-getDistAtParam&ob2(vlax-curve-getEndParam&ob2))0.5)&p2(vlax-curve-getPointAtDist&ob2&dis1))
(if(>=(distance&p5&p2)&R1);3-2
(progn;;3-2
(vla-delete&ob2)
(entmake(list'(0."ARC")(cons8&tc1)(cons62&co1)(cons6&cx1)(cons10&p1)(cons40&R1)(cons50&ang2)(cons51&ang1)))
);progn;3-2
);if;3-2
);progn;3-1
);if;3-1
(if(=&ac0"AcDbEllipse");3-3
(progn;;3-3
(setq&p2(vla-get-MajorAxis&ob1)
&dis3(vla-get-MinorRadius&ob1)
&dis2(vla-get-MajorRadius&ob1)
&dis2(/&dis3&dis2)
)
(setq&ob2(vla-addEllipsemSpace&p3&p2&dis2))
(vla-put-StartAngle&ob2&ang1)
(vla-put-EndAngle&ob2&ang2)
(vla-put-layer&ob2&tc1)(vla-put-Color&ob2&co1)(vla-put-Linetype&ob2&cx1)
(if(=awnil);3-4
(progn;;3-4
(setq&ang3(-(*pi2)&ang2)&ang2(-(*pi2)&ang1)&ang1&ang3)
(setq&p5(vlax-curve-getStartPoint&ob2))
(if(>=(distance&p5&sta)0.01);3-5
(progn;;3-5
(vla-put-StartAngle&ob2&ang1)
(vla-put-EndAngle&ob2&ang2)
);progn;3-5
);if;3-5
);progn;3-4
);if;3-4
);progn;3-3
);3-3
);progn;2
);if;2
(if(=&ac0"AcDbLine")(entmake(list'(0."LINE")(cons8&tc1)(cons62&co1)(cons6&cx1)(cons10&sta)(cons11&end))))
(if(=&ac0"AcDbPolyline");4
(progn;;4
(setq&n1(fix(vlax-curve-getEndParam&ob1))&ss1'()&n20&p2nil)
(ifaw(setq&clo'(70.1))(progn(setq&clo'(70.0)&n1(1+&n1))))
(repeat&n1
(setq&p1(vlax-curve-getPointAtDist&ob1(vlax-curve-getDistAtParam&ob1&n2)))
(if(or(=&p2nil)(and(/=&p2nil)(>(distance&p2&p1)1)))
(progn
(setq&ss1(cons(cons10&p1)&ss1))
(vla-getwidth&ob1&n2'aw'ew)
(setq&ss1(cons(cons40aw)&ss1)&ss1(cons(cons41ew)&ss1))
(setqaw(vla-getBulge&ob1&n2)&ss1(cons(cons42aw)&ss1))
)
)
(setq&p2&p1)
(setq&n2(1+&n2))
);repeat
(setq&ss1(reverse&ss1))
(entmake(append(list'(0."LWPOLYLINE")'(100."AcDbEntity")(cons8&tc1)(cons62&co1)(cons6&cx1)'(100."AcDbPolyline")(cons90(/(length&ss1)4))&clo)&ss1))
);progn;4
);if;4
);progn;1
);if;1
&n3
);复制到记事本,以【.lsp】为后缀命名,打开CAD，autolisp加载，命令【TES】，就会把对象重新描一遍

② 关于cad中的植物的表示方法

除了一些特定的落叶和常绿乔木等有专属的图形表示外，其他的花灌木草花什么的可以任意找图形表示阿。

③ cad2010中绿色植物怎么画

什么样的绿色植物？截个图看看，把图插入，在用样条曲线试试

④ CAD用样条曲线画的绿化色块，填充的话，一直显示分析数据，求解！急急急！

如何给绘制好的CAD图案进行图案填充呢？这就需要先正确了解图案填充。要为一个区域或对象进行图案填充，首先要调用【图案填充】命令！具体操作方法如下：

先打开一张CAD素材图纸或是绘制出一个CAD素材图形，用样条曲线绘制一块地方。

⑤ CAD如何描线条

CAD描线条，是属性对话框？CTRL+1

如果是对象特性的话
在菜单栏下面 右键 选择ACAD 在里面选择“对象特性”就OK

⑥ CAD制图如何画植物

- - 你这个问题。。。。 基本没什么人肯在网上回答你， 因为。。。。 你所说的每回个植物， 画法都不同的， 很多都是答需要原的相切 阵列， 你这个图主要是考操作， 建议你找附近这个比较会的人， 1V1的教你， 我能说的是， 你只要花好这里的一些图的 一部分， 然后用比例缩放成你要的样子， 后来在用阵列 （你这里大多数都是环形阵列的 ，好像我就看到个水车不是阵列是复制出来的） 外面的框也是很好话的。。。。 这个问题看书没用， 要自己去操作， 我CAD基本是自学的。。。。 1年一张高级出来的。。。

⑦ CAD如何画整齐的云线

1、找到你需要圈选的区域，画一更长方形圈选好。例如图中的四个字需要用云线圈选上。

⑧ 在CAD中用云线画绿植 大团绿植中的空隙怎么表示

画完了 偏移一下呗
你看到图发上来看看

⑨ 怎么用CAD画绿化图

步骤如下：

1.在CAD图纸里面建立一个分析图的图层，如下图所示版

⑩ 在cad中画的曲线，导入草图大师中，如何把它描出来（和cad图重合的）

画不了像CAD一样的矢量曲线，用徒手画的也不准确。你是想画闭合了然后挤出吧？最好是直接用CAD的曲线，不过有个问题是直接导入的曲线导入时会自动转成非曲线，点会偏移从而导致曲线跟直线交接的地方不闭合。