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的曲線，不過有個問題是直接導入的曲線導入時會自動轉成非曲線，點會偏移從而導致曲線跟直線交接的地方不閉合。