求高手大神編寫AutoCAD外掛程式可以同時匯出多個圓的圓心座標和半徑

2021-07-30 05:48:46 字數 4482 閱讀 5755

1樓:匿名使用者

用cad自己的命令就可以完成,你可以試試,除了圓,其它很多資料都能用 dataextraction(資料提取)命令統計。

這裡可以拖動標題欄調整順序,比如可以把半徑放在座標後面,在「列排序選項」中,類似excel**的排序,可以設定優先順序。

之前的1.dxe檔案可以留著,如果圖中的圓位置大小有變化,利用這個檔案可以直接更新cad檔案中的**,excel**也是與之鏈結著,會直接更新,前提是dwg的檔名不要變化。更新的命令是datalinkupdate。

我想把cad中很多圓的圓心座標匯出來,請問怎麼辦

2樓:朱正偉

autolisp程式,複製到(記事本),以(sx3.lsp)命名,載入到autocad就可以使用,匯出的檔案在d盤,開啟d盤就可以看到,命令為(sx3),自己修改命令就可以;

3樓:

可以編寫乙個小外掛程式解決。

高手進,autocad中如何標註多個相同尺寸的圓?

4樓:匿名使用者

標題問題

方法:標註出乙個圓的尺寸,選中尺寸,co空格複製即可以得到多個相同尺寸。

描述問題:

將半徑標註出。

2.輸入命令ed,空格,單擊半徑標註尺寸,將原尺寸刪除del,輸入6x r(半徑),確定即可。

5樓:匿名使用者

用數量-%%c直徑數值來表示,或者用數量×%%c直徑數值,如3×%%c10

6樓:匿名使用者

呵呵,這個簡單,從選單欄裡選則標註——半徑——然後選擇要標註的圓,確定後雙擊此標註,修改上面資料的顯示即可,比如字型號、內容、是否居中等。

如何獲取autocad裡的一條多段線的各個端點的座標值並生成到excel裡

7樓:

可直接複製到電子**進行分列,提出你需要依次點的座標或者直接輸入list,效果一樣

c#已知乙個圓的圓心的座標和半徑,怎樣畫乙個圓

8樓:匿名使用者

可以用baigraphics畫圓:

graphics g = this.creategraphics();

pen p = new pen(color.black);

g.drawellipse(p, 50, 50, 200, 200);//這裡50,50指橢du圓zhi的邊框的左上dao角的 x ,y座標,200,200指橢圓的寬和高。

9樓:匿名使用者

gdi+畫呀。

baivoid form1_paint(object sender, painteventargs e)

cad能一次改多個圓的大小嗎?

10樓:匿名使用者

要看什麼情況了,一般是可以的,全選要改大小的圓,用縮放命令就可以做到,希望對你有幫助。

11樓:匿名使用者

畫乙個25直徑的圓 選中--ma--框選原有的10個20的就可以了

12樓:

可以的方法如下:

修改前選中各圓

同時按下 ctrl +1

如圖修改後

vb中,已知圓上兩點和半徑值,求圓心座標的程式。

13樓:匿名使用者

問題:已知圓上的兩點座標和半徑,求圓心。

數學分析:這個題目,涉及到簡單的數學問題,但是計算比較繁瑣。

假設已知圓上的兩點座標分別為n(x1,y1)和m(x2,y2),半徑為r,圓心座標為o(a,b),根據數學知識可得到:

(x1-a)^2 + (y1-b)^2 = r^2----(1)式

(x2-a)^2 + (y2-b)^2 = r^2----(2)式

分別上述兩個式子得到

(x1)^2 - 2*x1*a + a^2 + (y1)^2 - 2*y1*b + b^2 = r^2 ----(3)式

(x2)^2 - 2*x2*a + a^2 + (y2)^2 - 2*y2*b + b^2 = r^2 ----(4)式

(3)式 - (4)式

得到:x1^2 - x2^2 + 2*(x2-x1)*a + y1^2 - y2^2 + 2*(y2-y1)*b = 0

變形得到:

a = (x2^2 - x1^2 + y2^2 - y1^2)/2/(x2-x1) - (y2-y1)/(x2-x2) * b

設:c1 = (x2^2 - x1^2 + y2^2 - y1^2)/2/(x2-x1)

設:c2 = (y2-y1)/(x2-x2)

a = c1 - c2 * b ----(5)式

把(5)式代入(1)式,得到;

x1^2 - 2*x1*(c1-c2*b) + (c1-c2*b)^2 + y1^2 -2*y1*b + b^2 = r^2

簡化為關於b的一元二次方程一般形式;

(c2^2+1)*b^2 + (2*x1*c1-2*c1*c2-2*y1)*b + x1^2-2*x1*c1+c1^2+y1^2-r^2 = 0

二次項係數:a = (c2^2+1)

一次項係數:b = (2*x1*c1-2*c1*c2-2*y1)

常數項: c = x1^2-2*x1*c1+c1^2+y1^2-r^2

根的判別式:derta = b^2 - 4*a*c

如果:derta < 0 則無解

derta >0 有兩個不同的解

derta =0 有兩個相同的解

**:在窗體上新增7個文字框:

text1 --輸入已知圓上點第1個的x座標

text2 --輸入已知圓上點第1個的y座標

text3 --輸入已知圓上點第2個的x座標

text4 --輸入已知圓上點第2個的y座標

text5 --輸入已知圓的半徑

text6 --輸出圓心的x座標

text7 --輸出圓心的y座標

新增乙個按鈕;

**如下:

private sub command1_click()

dim x1, y1, x2, y2, r as single

dim x01, y01, x02, y02 as single

dim a, b, c as single

dim derta as single

dim c1, c2 as single

x1 = val(text1.text)

y1 = val(text2.text)

x2 = val(text3.text)

y2 = val(text4.text)

r = val(text5.text)

c1 = (x2 ^ 2 - x1 ^ 2 + y2 ^ 2 - y1 ^ 2) / 2 / (x2 - x1)

c2 = (y2 - y1) / (x2 - x1)

a = (c2 ^ 2 + 1)

b = 2 * x1 * c2 - 2 * c1 * c2 - 2 * y1

c = x1 ^ 2 - 2 * x1 * c1 + c1 ^ 2 + y1 ^ 2 - r ^ 2

derta = b ^ 2 - 4 * a * c

if derta >= 0 then

derta = derta ^ (0.5)

y01 = (-b + derta) / 2 / a

y02 = (-b - derta) / 2 / a

x01 = c1 - c2 * y01

x02 = c1 - c2 * y02

'因為是一元二次方程,得到2個實數根,需要略去乙個增根

if abs((x1 - x01) ^ 2 + (y1 - y01) ^ 2 - r ^ 2) < abs((x1 - x02) ^ 2 + (y1 - y02) ^ 2 - r ^ 2) then

text6.text = x01

text7.text = y01

else

text6.text = x02

text7.text = y02

end if

else

msgbox("無解!")

text6.text = derta

end if

end sub

14樓:前沿建築技術

圓弧座標計算,仔細看圖。c點圓心是計算出來的吧。

已知起點終點和半徑就行了。

15樓:匿名使用者

有數學公式的話 就可以做的

好久沒接觸這個公式了

應該求出來的圓心有兩個的。

公牛插線板 2根線 頭怎麼接 求大神

公牛防脈衝插線板非常出名 很簡單,電源線的火線接l介面上,零線接n介面上,沒有地線e介面就空著不用管它。如果還是不懂,可以拍個完整的 給你畫圖。公牛插座有三根線 哪根線不用接 公牛插座有三根線,黃綠 色的線不用接。黃綠色的一般為地線。根據電源線色譜規定,黃綠色的線是接地保護線。任何電器都必須接地保護...

求VB程式設計大神,求高手解答急急急

private sub mand1 click dim m as long,n as longm text1 n text2 label3.caption m 和 n 的最大公約數是 m,n end sub private sub mand2 click dim m as long,n as lon...

求大神用幫C語言編寫程式。實現迴圈輸入a,b的值,輸出a的總數,b的總數。當輸入a 0,b 0時結束迴圈

include void main while a 0 b 0 printf a的總值為 d,b的總值為 d n sum1,sum2 請輸入a,b的值,用逗號隔開。3,4請輸入a,b的值,用逗號隔開。1,2請輸入a,b的值,用逗號隔開。2,3請輸入a,b的值,用逗號隔開。0,0a的總值為6,b的總值...