AutoCAD的歐特克工程topografia

不僅僅是用於AutoCAD的60 Autolisp例程

Lisp用於轉換和操作


1。 將英尺轉換為米,反之亦然

使用Autolisp生成的此例程允許我們將輸入的值從腳轉換為米,反之亦然,結果顯示在命令行中。

在這裡我們也使用CVunit功能,這個功能口齒不清,其換算值,文件acad.unt(AutoCAD的單位定義),如果你想詳細觀察一下這些價值觀和不同的轉換率,我建議您看到此文件。

要使用此例程,您必須執行以下操作:

  1. 在AutoCAD中加載lisp文件。
  2. 輸入命令的名稱: PIM
  3. 選擇轉換類型:英尺到米或米到英尺
  4. 輸入要轉換的值
  5. 您將在命令行中獲取單位轉換的信息

你可以得到例程 這裡


2。 將所有選定文本相乘

AutoLisp中生成的此例程允許獲取所選文本的所有值的乘法,為使此例程正常工作,所選文本必須是TEXT類型,而不是MTEXT類型。

例如,如果您有3三個文本,每個文本都具有以下值:1,2,3和所有三個文本,則命令的結果將是這三個數字的乘法,它們將等於:6。

要使用此例程,您必須執行以下操作:

  1. 在AutoCAD中加載lisp文件。
  2. 輸入命令的名稱: MUL
  3. 選擇想要獲得乘法的所有文本。
  4. 按鍵 Enter 得到結果。

你可以得到例程 這裡


3。 將英寸轉換為米

這個小例程允許我們將以英寸輸入的值轉換為米,顯示結果在命令行中,還顯示了作為附加信息的一部分的2之間的結果。

您可以修改此命令來轉換其他類型的單位,因此您必須修改源代碼,例如轉換 英寸到厘米 o 分鐘到秒,只需更改功能的參數 “簡歷單位”,在這個命令中cvunit有以下參數:“inches”“meters”,有了這些參數,輸入的值將被取為英寸(inches)並轉換為米(meters),您可以將參數更改為以下:“分”“秒”、“英寸”“厘米”、“英畝”“平方碼”、“英尺”“英寸”等。

要使用此例程,您必須執行以下操作:

  1. 在AutoCAD中加載lisp文件。
  2. 輸入命令的名稱: PM
  3. 輸入要從英寸轉換為米的值

準備好,您將獲得單位轉換的信息.

你可以得到例程 這裡


4。 添加所選圖層的線條長度

此例程允許您添加所選對像圖層中包含的所有行的距離。

此例程允許您添加所選對象層中包含的所有行的距離,如果在所選圖層中找到折線,則它們將被忽略。
一旦找到所有行的總和,就顯示結果。

要使用此例程,您必須執行以下操作:

  1. 在AutoCAD中加載lisp文件。
  2. 輸入命令的名稱: sumlcapa
  3. 選擇要添加的行的圖層中的行

你可以得到例程 這裡是美元5.99


5。 向所選文本添加或減去值

使用AutoLisp進行的這個例程允許我們對選定的文本添加或減去值。

例如,如果您的文本的值為5,並使用此命令並輸入值2,則所選文本將更改,如果輸入值-7,則將更改為值2,文本將更新為3。

請執行以下操作以使用此例程。

  1. 在AutoCAD中加載lisp文件。
  2. 輸入命令的名稱: VSR
  3. 表示要添加或減少的值
  4. 選擇要添加或減少的文本。

你可以得到例程 這裡


6。 從陰影部分獲取區域

此例程允許您獲取橫截面著色的區域,並設置在所選塊屬性中獲取的值。

選擇的陰影必須在描述要獲取的區域類型的圖層中,默認情況下lisp會讀取兩個圖層名稱,分別是:“SombreadoCorte“和”SombreadoRelleno“。

lisp 將圖層中著色器的所有區域相加“SombreadoCorte”和所有區域的圖層陰影“SombreadoRelleno” 並且一旦選擇了影線,區域塊的屬性就會更新,為此必須首先選擇塊的漸進屬性,這是一個不可見的屬性,但是在選擇之前的 lisp 會顯示它並且然後再次隱藏它,這是使用命令“ATTDISP”,然後將選擇剪切和填充區域的屬性,這些屬性將通過找到的區域的值進行更新。

對象的選擇是通過一個窗口來完成的,該窗口包括所有的穿孔,包括區段漸進的文本。

要使用此例程,您必須執行以下操作:

  1. 在AutoCAD中加載lisp文件。
  2. 輸入命令的名稱: 安盛.
  3. 通過窗口選擇所有切割和填充的部分,包括相同的漸進式文本。
  4. 逐個選擇要修改的塊的屬性,從漸進的屬性開始。
  5. 在選擇剪切和填充屬性後,命令將自動結束。

一個樣本的CAD文件附加到lisp,以便更好地了解命令。

你可以得到例程 這裡


7。 獲得直線或折線的斜率

該命令(Autolisp程序)獲得線或折線的斜率值,並獲得線長,水平長度和角度。

當我們想要時,它提供了很大的幫助 控制我們的耳環,為了獲得斜率,可以選擇線或折線,結果可以顯示在屏幕(命令行)上或通過選擇文本(該文本的值將根據找到的斜率的值進行更改)。

值得強調的是,在多段線的情況下,該命令找到僅第一段的斜率。

要使用此例程,您必須執行以下操作:

  1. 在AutoCAD中加載lisp文件。
  2. 輸入命令的名稱: PND
  3. 選擇線或折線以獲得斜率。
  4. 如果需要,您可以選擇一個文本,以找到的斜率替換其值,否則只按 Enter 在屏幕上獲得結果。

你可以得到例程 這裡


8.  在可視化的LISP中獲取所選擇的線或多邊形的總和

這是一個Lisp生成的例程,獲取所選折線或線的長度之和,該和的結果可以通過選擇它在文本中設置,或者只能在命令行上顯示。

您可以通過一個窗口或一個接一個地選擇線條和折線。

找到的長度之和的默認十進制數為2,但可以輸入另一個值。

要使用此例程,您必須執行以下操作:

  1. 在AutoCAD中加載lisp文件。
  2. 輸入命令的名稱: LPL
  3. 輸入長度之和的結果的小數位數
  4. 選擇線或折線以添加其長度
  5. 按鍵 Enter 結束選擇
  6. 選擇一個文本以將其值替換為所獲得的和的值,或按 Enter 再次在命令行上顯示結果

你可以得到例程 這裡


9。 在可視化LISP中的常規生成當前繪圖層的列表

這是一個小例程,可以生成具有當前圖形所有圖層名稱的列表,並將其顯示在命令行上。

要使用此例程,您必須執行以下操作:

在AutoCAD中加載lisp文件。
輸入命令的名稱: lc
結果將是當前圖形的所有圖層的命令行中的列表。

你可以得到例程 這裡


使用坐標


10.插入數據表的AUTOLISP例程

此例程生成具有指定行數和列數的表格,與AutoCAD表格命令相似,但使用起來較輕。

這個例程 生成一個指定行數和列數的表,與AutoCAD表格命令類似,但使用較輕,雖然它不會將數據與Excel鏈接 您可以選擇使用預定義的值填充表 默認情況下為“0.00”並放置在每個單元格中以供稍後編輯。

這個命令也 允許您使用兩個選項生成表,第一個選項允許定義表 通過固定的高度和寬度的細胞 和另一個選項 調整這些值,以便指定數量的行和列 輸入窗口的名稱。

附加選項包括:

  • 默認文字: 您可以告訴命令在每個生成的單元格中插入一個默認值(“0.00”),該值可以自定義,也可以更改為任何其他值。
  • 文字高度: 它是插入文本的高度,默認高度值為“0.25.​​XNUMX”。
  • 理由: 的插入文本,所以有兩個選項: 適合 (適合細胞)和 中間名 (電池的一半)。
  • 顏色: 這是插入的文本將具有的顏色,默認情況下,初始顏色是當前定義的顏色。

要使用此例程,您必須執行以下操作:

  1. 在AutoCAD中加載lisp文件。
  2. 輸入命令的名稱: 塔不拉
  3. 根據所選擇的生成模式,指示一個點或指示兩個點來生成窗口

你可以得到例程 這裡


用於與Excel交互的Lisp例程


11。 將坐標指針導出為CSV文件

使用Autolisp生成的此例程允許您將坐標點導出到Microsoft Excel CSV文件。 您可以從中導出這些坐標的對像是點,文本和塊,只需選擇它們並指示坐標的目標文件。

一定是特別的 保護對像是文本,由於在輸出坐標時考慮到插入點, 取決於這些文本的理由如果您確定文本的正確性是正確的,那麼輸出點就沒有問題。

建議選擇對象 有一個插入點,如 AutoCAD的塊或點導出的坐標是對應的坐標更安全。

如前所述,此例程從點,文本(或Mtext)和塊導出坐標,但是 您可以補充源代碼以考慮其他實體 例如:圈子,線的初始點以及其他對象 在其數據庫中有代碼10.

導出的坐標具有格式 P,N,E,C(Point,North = Y,East = X,Cota = Z) 並導出為CSV文件(以逗號分隔),打開文件時,每個值將佔用其單獨的單元格。

要使用例程,您必須執行以下操作:

  1. 在AutoCAD中加載lisp文件。
  2. 輸入命令的名稱: EPC
  3. 選擇要導出坐標的對象(請注意,您將選擇點,文本和塊(如果找到它們)。
  4. 指示將在其中生成導出坐標的CSV文件的位置和名稱。

你可以得到例程 這裡


12.  從線路到CSV文件的順序出口

AutoCAD生成的AutoCAD程序允許您將所選行末端的坐標點導出到Microsoft Excel CSV文件

導出的坐標對應於 線的起點和終點因此,如果線路被相同點連接,則lisp將讀取2乘以相同的坐標。

在這種情況下,如果需要的話 您應該考慮對坐標進行排序的選項 重複,導出的坐標有 格式P,N,E,C(Point,North = Y,East = X,Dimension = Z) 以及如何導出到 CSV文件 (用逗號分隔),當打開文件時,每個值將以有序的方式佔用其單元格。

要使用例程,您必須執行以下操作:

  1. 在AutoCAD中加載lisp文件。
  2. 輸入命令的名稱: EL3
  3. 選擇將導出起點和終點坐標的線。
  4. 表示將生成導出的坐標的CSV文件的位置和名稱。

你可以得到例程 這裡


13. 常規LISP從MICROSOFT EXCEL進口坐標點

生成用於AutoCAD及其垂直應用程序的此例程將允許您從Microsoft Excel文件中插入點的坐標,此例程不需要指定與要導入的文件相關的詳細信息,因為通過其界面,您將具有範圍需要根據您的需要導入積分。

要導入積分,這是被考慮的 要導入的點文件必須具有XLS擴展名(從Office 2007之前的版本)或XLSX(版本2007或更高版本) 在文件中,坐標格式為格式: P,N,E,C,D, (P塗抹, N奧爾泰, ESTE, COTA, D說明),如下圖所示:

它允許您在3中選擇不同類型的方法來在讀取坐標中插入點對象。

  • 首先是選擇插入一個 AutoCAD Point實體 (由POINT命令生成),請記住,AutoCAD中的點的顯示取決於您使用DDPTYPE命令定義的點顯示類型。
  • 第二個選項包括 選擇圖形中存儲的塊 作為要在讀取坐標中插入的點,默認情況下,例程會創建一個名為“cg-point”的新塊,如果圖形中有塊或圖形中沒有塊,則可以使用該塊。
  • 第三個選項與點的風格有關, 允許您從硬盤導入塊請記住,在這種情況下,創建塊的尺寸會影響插入時塊的可視化。
  • 對於點數據(標籤),iCe 讓您決定要顯示的內容,如果只想顯示一個點,則只需要選擇此選項,與維度文本或點的描述相同。 您可以選擇顯示3標籤數據或不顯示.

您可以控制插入維度文本中的小數位數,將具有標籤的刻度,基點為導入點的位置的相同的旋轉和標籤相對於點的分離,這些選項可以使用名稱存儲它們,以便您可以根據您將導入的點數。

所有這些選項將允許您以快速和清晰的方式從Excel文件導入您的積分,值得澄清的是,點標籤的文本的方式不依賴於例程, 而是當前圖形的當前文本樣式和當前圖層。

前一段時間我發表由用戶開發的程序,但允許進口從文本文件中的坐標但有許多限制,這時候使用這個新的命令將有更多的選擇來控制插入點坐標。

附件文件還提供了一個示例塊,您可以導入該塊,除了具有命令導入坐標所需格式正確的電子表格外,沒有任何不便之處。

要使用例程,您必須執行以下操作:

  1. 在AutoCAD中加載lisp文件。
  2. 輸入命令的名稱: ICE
  3. 在對話框中,指定您認為方便導入點的選項。

你可以得到例程 這裡


14。 將區域從csv文件導入到橫截面

此命令允許您將區域(默認切割和填充)導入到地形的橫截面,導入的區域必須使用CSV(逗號分隔)文件,具體取決於附加的示例文件。

該命令讀取csv文件的第一列中的進度,並在繪圖文件中搜索具有相同漸變的文本,將其相應的剪切和填充區域插入橫截面的右上角。

填挖區默認插入的後綴有:“AC=”和“AR=”,可以通過代碼操作,還有小數位數和插入文字的高度。

要使用此例程,您必須執行以下操作:

  1. 在AutoCAD中加載lisp文件。
  2. 它將包含要插入的文本的圖層設置為當前圖層,例如:“Text-Areas”。
  3. 輸入命令的名稱: arimx
  4. 選擇包含要導入區域的SCV文件
  5. 選擇 你想插入 其對應的區域來自csv文件,如果要全部選擇,只需按鍵 進入。

你可以得到例程 這裡


15。 列出圖紙中插入的圖像的路線

如果您使用圖像,通常需要生成列表,包括其位置路徑,通過此例程,您可以使用當前圖形中插入的所有圖像的路徑生成列表。

此例程不需要輸入任何選項,只需調用該命令,並立即顯示在AutoCAD命令行中,該列表中包含插入圖像的路徑。

要使用例程,您必須執行以下操作:

  1. 在AutoCAD中加載lisp文件。
  2. 輸入命令的名稱: 利馬

你可以得到例程 這裡


16。 用當前文件路徑替換文本

Autolisp開發的這個例程允許我們使用當前文件的路徑和名稱來更新任何文本。

使用此信息更新計劃的信頭時,這是一個很好的幫助。
在獲得的路徑中還包括當前選項卡的名稱,如果它在模型空間中,它將顯示在路徑的末尾:model,否則將顯示當前選項卡。

要使用此例程,您必須執行以下操作:

  1. 在AutoCAD中加載lisp文件。
  2. 輸入命令的名稱: 路線
  3. 選擇要用當前繪圖路徑的值替換的文本,如果不想僅替換一些文本 Enter 在命令行上顯示路徑。

你可以得到例程 這裡


17。 用不同的輸出格式替換當前日期選擇的文本

借助這個良好的例程,我們可以用當前日期的值替換任何文本。

8命令為此日期提供不同類型的格式,從簡單日期類型到長格式日期類型,其中使用AutoLisp以編程方式獲取當前日期的日期名稱。

您可以選擇類型實體 文本 y 多行文字,這些將被選定的格式的當前日期自動替換,可用的日期格式如圖所示,每個都由其號碼標識,用於在命令行中請求時選擇格式的AutoCAD。

要使用此例程,您必須執行以下操作:

  1. 在AutoCAD中加載lisp文件。
  2. 輸入命令的名稱: RF
  3. 由1號碼指示8,日期輸出格式,可以輸入問號(?),以顯示可用的日期格式
  4. 使用所選格式選擇要替換的文本
  5. 按鍵 Enter 結束命令並更新所選文本

你可以得到例程 這裡


18. 發送或傳送選擇的短信的日常LISP

有時,我們要反轉兩個文本的值,例如,數字1346的文本變為1111,反之亦然,這個例程允許我們轉置所選文本的值。

為了達到這個結果,可以一個接一個地指出這兩個文本。

請執行以下操作以使用此例程。

  1. 在AutoCAD中加載lisp文件。
  2. 輸入命令的名稱: TRA
  3. 選擇要轉置的兩個文本。

你可以得到例程 這裡


19。 常規以指示點替換文本內容

此新命令獲取給定點的維度值(Y坐標),並將其設置為所選文本的內容。

這個例程非常有用,例如在使用地形剖面圖時,我們要獲取頂點的高度,並將其設置在指示地形尺寸的文本之一中,也可以在使用地形橫截面時使用​​,希望獲得該部分軸的維度值,並在文本中建立該值,該文本將指示配額值。

在這個命令中,您可以指定哪個比例將具有在文本中設置的維度,它不是所選文本的高度,而是具有要指定的配置文件或部分的比例,例如,如果您的配置文件被縮放10次在垂直方向,必須將10 NC命令設置為一個縮放比例,以便命令在相應的選擇文本中進行相應的劃分並設置相應的值。

要使用此例程,您必須執行以下操作:

  1. 在AutoCAD中加載lisp文件。
  2. 輸入命令的名稱: NC
  3. 表示配額的比例
  4. 輸入文本與給定維數的小數位數(默認為3)
  5. 表示要從中獲取配額的點
  6. 選擇將由所取得的配額值替換的文本,或者您希望按下鍵 Enter 只顯示所取得的配額而不取代任何文字

你可以得到例程 這裡


20。 通過添加前綴或後綴來逐步替換文本並通過指示覆蓋來替換文本的例程

此命令允許您獲取給定點的漸進和維度值(X和Y值),並將其設置在所選的2文本中。

除了每個文本之外,它還會添加一個前綴或後綴,例如,如果標註的尺寸(Y坐標)等於 “CT=”,當選擇高程文本時,該命令將通過獲得的高程值加上指示的前綴來更新選定的文本,例如“CT=236.42”,當選擇漸進式文本時,它將使用該值進行更新得到的X坐標加上後綴 “0+”,例如“0+10.0”。

該命令附帶了漸進式和已定義尺寸的前綴(“0 +”和“CT =”) 並且只能通過修改源代碼來更改,此外,如果需要,可以修改此命令,以便在文本中同時添加前綴和後綴。

要使用此例程,您必須執行以下操作:

  1. 在AutoCAD中加載lisp文件。
  2. 輸入命令的名稱: PC
  3. 表示漸進式(X坐標)和坐標(Y坐標)的值的位置
  4. 選擇漸進文本
  5. 選擇尺寸文字

將使用獲得的數據更新文本的值

你可以得到例程 這裡


21。 ROUTINE AUTOLISP在指示點建立特定的COTA

這是Autolisp中的一個例程,允許我們在給定的點設置一個維度值(Y坐標)。

該命令請求數據(點和值)並執行操作以獲得要在指定點的Y坐標中設置的最終值(在通用坐標系的坐標值(UCS)的指定值輸入值)。

要使用此例程,您必須執行以下操作:

  1. 使用該命令將文件加載到AutoCAD中 APPLOAD 或複製文件並將其粘貼到AutoCAD中。
  2. 輸入命令名稱: OS
  3. 當提示指示維度點時,必須在屏幕上指示一個點(要設置特定維度的點)。
  4. 該命令將提示您輸入維度值以設置或選擇文本:
  5. 在這裡,您必須輸入要在指定點處具有Y坐標的維度值,您可以輸入一個值,或者您可以選擇包含維度值的文本,該命令將僅獲取數值,以防萬一也有一些描述。

要驗證在指定點輸入的尺寸是否已設置,請執行命令ID,指示該點,並在命令行中觀察到Y坐標值現在已輸入值。

你可以得到例程 這裡


22.  AREASX:ROUTINE LISP尋找領域

此命令允許您找到指示對象之間的內部點或通過選擇閉合輪廓的區域,此命令顯示獲取的區域或以其他方式將其設置為所選文本。

Ax命令有以下選項:

初步要求:
指定區域的內部點或[選擇對象/選項] :

在這裡,您必須指明將從中獲取區域的內部點,其他選項如下所述:

選擇對象: 您可以選擇封閉的多邊形來找到您的區域,而不是指定內部點來查找空氣。

選項: 此選項加載“命令選項”對話框,對話框如下:

每個選項如下所述:

小數位數: 區域的小數位數(默認為2)。
要插入的文本的高度:如果您決定在獲取的區域中插入一個文本,則設置將具有所述文本的高度。

區域轉換: 此選項允許您使用找到的區域的值執行操作,每個區域被添加,減去,乘以或除以必須在此選項的下半部分指定的因子。
該命令顯示轉換是否處於活動狀態,以及執行哪些操作以及以什麼值執行轉換。

此選項允許您在繪圖處於不同比例或其他繪圖單位時自定義區域。

應用陰影: 此選項允許每個指示的區域被遮蔽以更好地查看正在找到的區域,允許驗證其是否正確(默認情況下為開啟)。
陰影名稱:您必須在指定區域中指明要應用的陰影名稱(實際默認值)。

(陰影)比例: 此處指示陰影的比例因子,該因子根據所選陰影的類型而變化。

顏色(陰影): 將在指定區域施加陰影的顏色。

完成陰影: 一旦命令應用程序終止,下面的選項就適用。

保持輪廓: 如果啟用,生成的輪廓不會被刪除。

保持陰影: 如果啟用生成的陰影,則不會被刪除。

最終請求:
指定區域的內部點或[選擇對象/插入區域文本/選項] :

插入文字區域: 此選項允許您使用獲得的區域插入文本,而不是選擇一個來替換它。 找到區域的文本有默認前綴:“Area =”,這個前綴可以在程序代碼中修改。

更改文字: 此選項在按下 Enter 鍵或按下鼠標右鍵時激活,這將請求選擇一個文本,例如如果有一個文本內容如下:“AC=0.00m2”並通過命令3.25的區域已經找到,那麼命令將替換文本,將其更新為“AC=3.25m2”。 可以看到,AX只替換要替換文本的數值,所以可以有不同前綴的區域文本,例如:“AR=0.00m2”、“AM=0.00m2”、“切割面積” =0.00m2”、“我的面積=0.00m2”等。

有效和無效的輪廓:

有效的大綱

要使用此例程,您必須執行以下操作:

  1. 在AutoCAD中加載lisp文件。
  2. 輸入命令的名稱: AX
  3. 指出您要查找的區域內的一個點(必須確保要找到的區域必須完全關閉,否則命令將顯示一條錯誤消息)。
  4. 指示內部點數需要多次,命令將憤怒,累積(求和)所有發現的空氣。
  5. 按Enter鍵或右鍵單擊以結束命令,並將現有文本中的區域設置。

你可以得到例程 這裡


選擇對象


23。 選擇所選對像圖層的所有實體

這個小例程與前一個例程執行的操作相同,不同之處在於此處不會輸入圖層的名稱來選擇對象,而是從中選擇要從中獲取圖層名稱的實體。

和前面的例程一樣,實體的選擇是不可見的,而是作為一組被選擇的實體存在的,所以必須指明選擇模式“前一頁”來選擇對象。

要使用此例程,您必須執行以下操作:

  1. 在AutoCAD中加載lisp文件。
  2. 輸入命令的名稱: SSL
  3. 選擇要獲取圖層名稱的對像以選擇其他實體
  4. 通過預測模式選擇實體有效

你可以得到例程 這裡


24。 從選定的折線中刪除內部或外部對象

使用此例程,您可以刪除所選折線的內部或外部區域中的對象,如果指示該選項,則折線相交的對象將被所指示的邊裁剪。

當涉及去除折線以外的物體時,應特別小心 此命令將刪除折線以外的所有對象.

折線選擇 必須是封閉的折線,否則例行程序將第一個段的最後一個點連接起來,通過假想線折疊折線,並消除該線內部或外部的所有內容。

這個選擇是切合實際的, 只適用於手動切割的對象, 例如線,圓,圓弧等,塊和其他合成對像不適合這些可切除的對象。

與lisp 附上一個示例文件 以便在使用最終文件中的命令之前完成相應的測試。

要使用例程,您必須執行以下操作:

  1. 在AutoCAD中加載lisp文件。
  2. 輸入命令的名稱: PolErase
  3. 選擇折線 這將作為界定要消除的對象的邊緣。
  4. 選擇一個 刪除對象選項,您可以選擇以下選項: 窗口 (它只刪除完全在外部或內部的對象), 捕獲 (刪除甚至與折線邊緣相交的對象), 刪除和裁剪 (顧名思義,它將擦除折線內部或外部的對象,並修剪邊框相交的對象。
  5. 表示a 點在哪邊 (內部/外部)將被擦除或修剪。

你可以得到例程 這裡


25。 允許您選擇輸入圖層的所有實體

這是一個lisp例程,允許您選擇指定圖層中的所有實體,不區分可能具有實體的顏色或其他屬性。

這個例程在輸入層的名稱時不區分大小寫,所以你可以以任何方式輸入,只是它寫得好。

要使用此例程,您必須執行以下操作:

  1. 在AutoCAD中加載lisp文件。
  2. 輸入命令的名稱: SCA
  3. 輸入要選擇的對象的圖層名稱
  4. 通過選擇實體有效 previuos

你可以得到例程 這裡


26。 將文本內容複製到另一個文本

這是一個使用autolisp編程語言編寫的例程,它允許我們複製選定文本的內容,並在第二個文本中設置該值以供選擇。

要使用此例程,您必須執行以下操作:
  1. 使用comado在AutoCAD中加載lisp文件 APPLOAD 或者通過複製文件並將其粘貼到AutoCAD中。
  2. 輸入命令的名稱: RT
  3. 選擇要從中獲取該值的文本。
  4. 選擇要用以前獲得的值替換的文本。

正如你所看到的,例程很簡單,但是對於文本編輯來說,這是非常有用的。

應該注意的是,這個例程中使用的語言顯然是AutoLisp,在一個新條目中,我們將發布相同的命令,但是在VisualLisp中編寫,我們將在其中觀察到結構的大小進一步減少。

你可以得到例程 這裡


27。 更改文本的十進制數而不會丟失原始值

這個lisp例程允許您更改所選文本的小數位數,而不會丟失原始的小數位數,您可以使用2小數顯示一個數字,但在內部它將具有一個新的屬性及其原始定義的值。

此新屬性只能由此命令訪問,因為“屬性”對話框未列出此屬性。

lisp允許您更改小數位數,或者使用此例程獲取之前格式化的文本的原始數字, 所以你知道你原來有幾個小數位 如果要重置原始值。

值得注意的是 這些原始值仍然存在 即使文件或AutoCAD已關閉,因此您具有原始數據的安全性 你的價值觀將永遠在那裡,即使將原始價值恢復到文本。

這個新命令可以與動作進行比較 更改Excel小數但唯一的觀察是,這個財產是內部的,正如我們前面所說的那樣 屬性窗口尚未準備就緒 顯示實體的延長日期。

必須特別考慮 選定的文本是數字文本,也就是說,它們只包含數字,否則它們的值將被轉換為“0.00“。

要使用例程,您必須執行以下操作:

  1. 在AutoCAD中加載lisp文件。
  2. 輸入命令的名稱: Arede
  3. 選擇您要執行的選項之一
  4. 選擇要在其中執行操作的(數字)文本

你可以得到例程 這裡


28。 根據所選的第一個對齊多個文本

使用AutoLisp開發的例程,允許我們根據所選的第一個對齊幾個文本。

該程序允許您垂直(列)或水平(行)對齊文本,因此,您只需選擇第一個,這將作為對齊其他文本的基礎。
需要注意的是,作為對齊文本的基礎的點是插入點,如果所有文本都以“左”對齊作為插入點,則所有文本都將相對於該點對齊,它將是統一對齊。 如果文本有不同的對齊方式,它們都將相對於它們的插入點對齊,這將導致文本的對齊方式不一致。

要使用此例程,您必須執行以下操作:

  1. 在AutoCAD中加載lisp文件。
  2. 輸入命令的名稱: ALIT
  3. 選擇將從中獲取對齊軸的基本文本
  1. 選擇要對齊的文本
  1. 完成後,文本根據第一個選擇進行了對齊

你可以得到例程 這裡


29。 複製文本的高度並將其設置為其他選定的文本

AutoLisp中創建的此例程會復制所選文本的高度,並在隨後選擇的文本中進行設置,從而更改其高度。

舉例來說,如果你有3文本,前者有3的高度,接下來的2個6的高度,你想後兩個也有3而不是6的高度,只是第一選擇,其高度有文本3,然後是具有6高度的文本。

請執行以下操作以使用此例程。

  1. 在AutoCAD中加載lisp文件。
  2. 輸入命令的名稱: CA
  3. 選擇高度為要復製或設置的文本。
  4. 選擇要更改首次選擇的高度的文本

你可以得到例程 這裡


30。 選擇文本並設置在塊的屬性中獲得的值

Autolisp和Visual Lisp中的此程序允許選擇一個文本,複製內容的值並在屬於塊的屬性中建立(更新)。

也就是說,如果我們要更新任何塊的屬性,對於現有文本,只需首先選擇文本,然後選擇屬性,並根據所選文本的值更新該屬性。

要使用此例程,您必須執行以下操作:

  1. 在AutoCAD中加載lisp文件。
  2. 輸入命令的名稱: CTA
  3. 選擇包含要復制的值的文本。
  1. 最後選擇屬性來更改度量
  1. 結果如下:

我們可以看到,如果要從特定文本更新屬性的值,則此命令非常有用。

你可以得到例程 這裡


31。 根據輸入的百分比更改文本的高度

AutoLisp中生成的此例程允許我們根據輸入的百分比更改所選文本的高度。

例如,如果您有兩個文本,一個具有高度0.5,另一個高度為1.00,並輸入1.5的百分比,則文本的高度將分別改變為:0.75和1.5。

當需要改變不同高度的許多文本的高度時,這個例程非常有用。

要使用此例程,您必須執行以下操作:

  1. 在AutoCAD中加載lisp文件。
  2. 輸入命令的名稱: ch
  3. 輸入將更改文本高度的百分比,例如:如果輸入0.5,則所有文本將減少一半,如果輸入2,則所有文本將增長一倍
  4. 選擇要修改的文本

你可以得到例程 這裡


32. 順便提一下消除塊的屬性的內容

當你有一個具有許多屬性的塊時,必須刪除其中許多屬性是非常繁瑣的,通常雙擊所選屬性,等待它加載對話框並繼續刪除內容。

為了避免這種繁瑣的工作, 這個小小的例程會減輕你花費的時間 在執行上述任務時。 使用此命令,您只需選擇要刪除內容的屬性即可。

您必須驗證塊中的文本是屬性(有時在它們之間混淆),以便例程正常工作。 注意,這個命令 只刪除屬性的內容,而不是塊的屬性本身.

要使用例程,您必須執行以下操作:

  1. 在AutoCAD中加載lisp文件。
  2. 輸入命令的名稱: BCA
  3. 選擇要刪除其內容的塊的屬性。

你可以得到例程 這裡


33. 複製視覺內容中的文本,並將其設置為所有選定的文字

前一段時間,我與您分享了一個複製文本值並將其建立到另一個選定文本的例程,這個例程將允許您獲取所選文本的值,並將其設置為您選擇的幾個文本。

此新命令的使用非常簡單,您只需要從要復制值的位置選擇文本,然後必須選擇要用此新值替換的所有文本。

要使用此例程,您必須執行以下操作:

  1. 在AutoCAD中加載lisp文件。
  2. 輸入命令的名稱: RTN
  3. 選擇要復制的值的源文本
  4. 選擇將由此新值替換的文本
  5. 按Enter鍵結束命令,並使用新值更新文本

你可以得到例程 這裡


34. 增加或進步的方式減少文字的高度

它是一個lisp,包含兩個命令:Increase and Reduce,這些命令允許修改所選文本的高度,根據所選命令增加或減小其大小。

對文本中的每個點擊進行大小更改,並根據lisp源代碼中指定的因子完成,該因子為1.2。 文本的初始高度乘以 1.2 每次點擊它或在1.2之間劃分它,具體取決於您選擇的命令。

有關每次單擊文本的文本高度的更多信息,該例程將顯示文本中每次更改高度的結果高度。

當您要按比例增加或降低文本高度時,此命令非常有用,而不必具有指定的最終高度,只能視覺。

要使用此例程,您必須執行以下操作:

  1. 在AutoCAD中加載lisp文件。
  2. 輸入命令的名稱: AU (增加)| RE (減少)
  3. 點擊文字可以根據您的需要增加或減少大小的次數
  4. 按Enter鍵結束命令

你可以得到例程 這裡


35.  獲取所選尺寸措施的日程表

以下例程允許您獲取尺寸測量(尺寸),顯示所獲得的值,您可以將其複制粘貼到Microsoft Excel中,並將每個值粘貼到單獨的行中。

要使用此例程,您必須執行以下操作:

  1. 在AutoCAD中加載lisp文件。
  2. 輸入命令的名稱: DimX
  3. 輸入要測量的小數位數(默認為3)
  4. 選擇尺寸以進行測量
  5. 按Enter鍵結束選擇,並在屏幕上顯示所獲得的值

你可以得到例程 這裡


36。 在VISUALLISP中的常規增加了因素對數量的影響

VisualLisp中的例程允許增加所選文本的數字的值。 VisualLisp中生成的此例程允許根據指定的增加因子增加所選文本的數量(逐個)的值。

如果指示值是負數,則後續值將是初始值的減小。

例如,如果初始值為1,並輸入1的增量值,則後續選定的數字將增加一個單位,下一個2,下一個3等等。

要使用此例程,您必須執行以下操作:

  1. 在AutoCAD中加載lisp文件。
  2. 輸入命令的名稱: 公司
  3. 選擇具有初始值的文本
  4. 輸入增量
  5. 選擇您要替換的所有文本
  6. 按Enter鍵結束命令

你可以得到例程 這裡


Lisp用於地形和3D


37。 將3DFace實體轉換為ACIS實體

前段時間我遇到了這個有趣的日常口齒不清,雖然最近我沒有用過,每當我需要幫助了我極大,體積計算,該補充的時刻,民用3D不給我我需要的結果。

這是一個例程 選擇3Dface對象,將它們擠出在一起,並將它們轉換為單個3D Solid對象,它的使用是簡單和剛剛足夠選擇的對象和例程將做所有的工作。

為了更好地了解例程在對像中所做的更改, 你需要有一個3D視圖, 否則鑑於植物不會被觀察到在3D Solid中創造的高度,因為 實體是通過將每個選定的面垂直“向下”投影到當前 z 軸來創建的,到用戶指定的平面和距離。

為了確保網格的所有部分都以固體形式生成, 這個距離不能為零, 但是如果必要的話可以將固體切割成所需的厚度,使用布爾運算或實體編輯操作。 生成的固體在當前層中創建。

如果在小固體結合的最後, 操作停止或掛起 由於內存限制, 您可以嘗試手動加入。

注意事項:

如果相鄰的面不具有相同的坐標,那麼從它們得到的固體之間會有非常小的間隙或重疊,這可能是因為AutoCAD無法加入實體,顯示以下消息:

  •  “相交曲線的包含不一致。”
  •  “頂點和共邊坐標中的信息不一致。”
  •  “不一致的邊面關係。”
  •  “不一致的面部-身體關係。”
    如果生成固件時問題仍然存在,您必須複製一小段距離,然後將副本與原稿合併,以嘗試填補3DFace曲面中的所有間隙,然後重試,直到您解決問題。

要使用例程,您必須執行以下操作:

  1. 在AutoCAD中加載lisp文件。
  2. 輸入命令的名稱: F2S
  3. 選擇3D轉換為固體
  4. 從3DF的每個頂點輸入實體將具有的高度(向下)
  5. 輸入生成固體的方法:自動或手動

你可以得到例程 這裡


38。 從高程插入等高線中的尺寸

有幾次你會發現你有一個文件中的水平曲線,但是這些沒有他們的配額,通過這個例程,你可以在你想要的地形水平曲線中插入尺寸。

要插入的尺寸是具有屬性的塊,這些塊在圖形中創建 毫米. 為了讓你可以毫無問題地使用這個 lisp,你必須使用命令“單位”(單位)定義要插入的內容的單位“毫米”(毫米)。

值得說明的是,對於此例程,將正確的高程插入輪廓線時,它們必須具有高程(坐標z> 0),因為高程是從輪廓曲線上指示的點獲得的如果輪廓線的高程為0(坐標z = 0),即它們沒有高程,則例程將插入具有該值的文本。

按常規要求的規模是指將繪製圖紙的規模,要插入基準尺寸標註文字的值,可以通過增加或減少該值,直到尺寸插入測試你想要的文字大小。

這個例程有2附件: EL_TAG.dwg y EL_TAG2.dwg,這些是具有上述屬性的塊,這些文件可以在任何地方復制,儘管建議它們與例程在同一個文件夾中。

為了AutoCAD加載這些文件,必須在對話框中定義AutoCAD位置的路徑 選項->支持文件搜索路徑。

要使用此例程,您必須執行以下操作:

  1. 在AutoCAD中加載lisp文件。
  2. 輸入命令的名稱: CPE
  3. 表示水平曲線上方的點,以及要插入尺寸的位置
  4. 表示要定義要插入尺寸的旋轉的另一個點
  5. 如果您不想插入更多的維度,可以繼續插入指示插入點的更多維度,按Enter鍵完成命令

你可以得到例程 這裡


39。 繪製切割或填充斜坡的線條

該程序畫出切割或填充斜面的線,這些斜線必須指示或表示平台之間的不平坦度。

為了使用此例程生成斜率線,必須輸入6數據,這將允許根據預期生成斜率線。

以下是要求的數據:

  1. 斜線間距(m):在這裡你必須輸入每條斜線之間的距離。
  2. 選擇最高維度的折線:由於斜率是兩條邊線之間的差異,所以必須指出折線是最高尺寸之一。
  3. 選擇最低維度的折線:同樣的方式必須指出最低維度的折線。
  4. 剪切還是填充?:坡線起點的繪製方向將取決於是挖方還是填方,默認情況下,當按下回車鍵時,將作為填方值“R”。
  5. 最大斜線長度:如果測量值小於斜坡腳的距離,可以觀察到線條與斜線不相交,如果希望斜率主斜坡腳到達與坡腳的邊緣線的交點,應該顯示較大的值,例如200或500。
  6. 人行道之間的距離:人行道是分離的。

您可以觀察以下圖表,以便更好地了解定義:

這裡已經指出了5m的斜線的最大長度。
這裡已經指出了200m的斜線的最大長度(確切的值並不重要,只是給出一個誇張的值,以便當它與斜腳的邊緣線相交時,它被自動切割)。

要使用此例程,您必須執行以下操作:

  1. 您必須將包含要生成的斜坡線的圖層作為當前圖層,例如:“斜線“。
  2. 在AutoCAD中加載lisp文件。
  3. 輸入命令的名稱: 抽搐
  4. 輸入命令所要求的數據。

你可以得到例程 這裡


40。 繪製一條指示斜率的線

此例程允許您繪製一條與您指定的斜率線,只顯示線的插入點和斜率。

斜率由相對於1的值表示,例如:如果要繪製具有2:1斜率的線,則只有2數字應表示為斜率,如果要獲得斜率是1:1.333,您必須輸入0.75。

要進一步說明,如果要獲取1值(1:x)的斜率,必須在補數斜率(x)之間劃分1數。

要使用此例程,您必須執行以下操作:

  1. 在AutoCAD中加載lisp文件。
  2. 輸入命令的名稱: DT
  3. 表示線的插入點
  4. 輸入將具有如上所述的線的斜率

你可以得到例程 這裡


41。 繪製一條指示斜率的直線

通過這個簡單的例程,您可以繪製一條斜線的線條,這樣就足以表示線條的插入點和坡度。

該行生成水平長度為10單位,並且10之間指示的斜率值的垂直長度。

要使用此例程,您必須執行以下操作:

  1. 在AutoCAD中加載lisp文件。
  2. 輸入命令的名稱: LP
  3. 表示線的插入點
  4. 輸入以百分比(ejm:12)為單位的斜率,不含百分號

你可以得到例程 這裡


42。 計算橫截面的切割和填充區域

使用這個lisp例程,您可以從具有自然地形線和放牧線(最後一條路段)的橫截面找到切割和填充區域。

使用這個lisp例程,您可以從具有自然地形線和放牧線(最後一條路段)的橫截面找到切割和填充區域。

為了找到這個區域,您必須選擇地形和放牧折線,並且命令將要求點插入相應區域的文本。

要使用此例程,您必須執行以下操作:

  1. 在AutoCAD中加載lisp文件。
  2. 輸入命令的名稱:
  3. 選擇原始路徑的折線(自然地形)
  4. 選擇道路的折線(Rim或Sub-Slider)
  5. 指示插入所獲區域的文本的點

.rar文件中也包含一個示例CAD文件,用於進一步壓縮該例程。

你可以得到例程 這裡


43。 插入縱向輪廓的斜面

該程序允許您將吉他上的縱向輪廓(折線或線)的斜面插入吉他,只需選擇輪廓(折線),並指示與指示斜坡的文本的垂直位置相對應的點。

如果是一條線,則該命令僅計算終點,因此在折線的情況下找到斜率,該例程獲得每個初始和最終頂點併計算它們之間的斜率的折線。

表示獲得的斜率的文本屬於以下類型,例如:“P = 1.11中的10.49%” 如你所知,這種格式可以修改以適應你們每個人的工作方式。

如上例所示, 當前的文本風格不應該考慮高度,如果產生錯誤,並且不會插入斜率。

程序開始時所顯示的規模只適用於文本的大小,不影響處理斜坡所採取的措施。

要使用此例程,您必須執行以下操作:

  1. 在AutoCAD中加載lisp文件。
  2. 輸入命令的名稱: PNF
  3. 輸入要插入的斜率的文本的比例
  4. 選擇配置文件以計算斜率
  5. 表示用斜面插入文本的參考點

你可以得到例程 這裡


44。 在折線的頂點插入標記

這個lisp例程是對前一個的修改,並允許您在所選折線的所有頂點中插入一個標記,只需選擇它。

插入的標記是為特定尺度生成的繪圖文件(塊),但是它是完全可自定義的,可以像任何圖形一樣進行編輯,只有繪圖的中心點必須被尊重(在這種情況下是塊的圓的中心) )。

在文件的源代碼中,您可以選擇插入圈而不是塊,因為您只需刪除包含此代碼的行的註釋,並註釋插入塊的行。

要使用此例程,您必須執行以下操作:

  1. 在AutoCAD中加載lisp文件。
  2. 輸入命令的名稱: IMA
  3. 選擇要標記其頂點的折線
  4. 表示要導出的文件的路徑和名稱

你可以得到例程 這裡


45。 獲取所選線的斜率

AutoLisp中開發的該程序可以獲得所選行的斜率值。

應該注意的是,這個命令只適用於線條,如果你有一個折線應該被利用或生成一條線以上的折線。

要使用此例程,您必須執行以下操作:

  1. 將lisp文件加載到AutoCAD中。
  2. 輸入命令的名稱: TL
  3. 選擇要獲得斜率的行。
  4. 獲得的信息是斜率H:V.

你可以得到例程 這裡


46. 3包裝用途集合 - 第3部分:從牆壁部分創建輪廓

通過這個例程,您將能夠生成擋土牆的剖面(高程),這個輪廓可以從牆壁的橫截面的數據中得到,這些數據是:漸進式,冠形尺寸和基礎尺寸。

命令要求的比例數據,它不是指輪廓的垂直刻度(輪廓是用等於水平的垂直刻度生成的) 但是配置文件的尺寸(尺寸和其他數據)。

要生成輪廓,首先選擇截面的進展,然後選擇冠度尺寸,最後選擇基礎的底部尺寸。

您必須特別注意選擇數據 因為如果您不選擇文本並單擊屏幕,該命令會將其視為已完成數據選擇以生成配置文件。

隨著例程提供了一個CAD文件,以牆壁橫截面為例,以將Lisp例程付諸實踐。

要使用此例程,您必須執行以下操作:

  1. 在AutoCAD中加載lisp文件。
  2. 輸入命令的名稱: MUP
  3. 輸入配置文件的比例(大小)(例如:75)
  4. 選擇漸進文本
  5. 選擇表冠尺寸的文字
  6. 選擇基礎底部的文本
  7. 一旦您完成了牆上所有部分的選擇,請按 Enter 並且表示將生成牆壁輪廓的冠頂的左上角的點。

你可以得到例程 這裡


47. 3包裝碼頭 - 第2部分:牆壁尺寸(對))

此例程允許您使用以前發布的例程(因為它具有相同的設計標準)生成的一段牆壁的尺寸(尺寸),結果將如下圖(測量根據牆壁的尺寸而變化)。

此例程要求將生成的維度的比例, 該尺度僅指維度線之間的間隔,尺寸和尺寸的尺寸完全取決於當前尺寸樣式 這必須由用戶以前為正在工作的比例生成。

為了產生斜坡,按照上一個例行程序進行,用於產生牆壁,在道路的一部分的坡度的肩部上,需要牆壁的一側指示一點,通過選項來指示牆壁底部的一個點。

值得一提的是,這個例程僅限制了前一篇文章的例程生成的一部分牆因為它使用與牆截面相同的繪圖標準, 您可以在代碼中修改計算點的操作,以防您想要申請另一種類型的牆.

要使用此例程,您必須執行以下操作:

  1. 在AutoCAD中加載lisp文件。
  2. 輸入命令的名稱: MUD
  3. 輸入尺寸線之間的刻度
  4. 表示參考點(P1的圖像)在牆上
  5. 指示牆的方向(左或右)
  6. 表示牆壁部分底部的一點P2的圖像)

你可以得到例程 這裡


48。 裝有牆壁的3路線包 - 第1部分:牆壁部分的創建

這個例程是3的第一個允許產生重力類型的遏制壁壘,前一段時間我們也與你分享了一個生成擋土牆的例程,這次例程生成了一個不同設計(措施)的牆壁。

要記住的是,道路藝術作品(牆壁,涵洞等)對於每項作品來說並不總是相同的設計,這種設計具有構建它們的同一區域的許多因素的功能。

該程序允許您生成具有以下設計標準的擋土牆:

要產生它,你必須指出斜坡的肩膀 在路的一段,在需要牆的一側, 使用Lisp,您可以在任何一側生成牆,為此您只需指明方向 (左或右)。

關於身高,這是使用2選項定義的, 第一個是定義的高度(H),第二個選項是通過牆的基礎的底部的尺寸來定義它,該高度可以由屏幕上的一點指示,程序負責計算高度和所有其他措施。

該計劃準備承擔牆壁高度的兩個標準: 第一個標準是具有恆定高度的牆壁,基礎的基礎不是水平的 第二個標準(最常用的)是牆的高度是可變的基礎的基礎是水平的,不遵循道路的斜坡。

使用此lisp的方式將取決於每個用戶,因此最方便的是,您可以先生成牆計劃而無需任何例程,這樣可以更容易地了解此lisp的正確使用。

要使用此例程,您必須執行以下操作:

  1. 在AutoCAD中加載lisp文件。
  2. 輸入命令的名稱: 毛里求斯
  3. 表示指示側面的肩部的一個點
  4. 指示牆的方向(左或右)
  5. 選擇你如何定義牆的高度(根據地基的高度或高度)

你可以得到例程 這裡


49。 ROUTINE AUTOLISP繪製一個容納牆

這個lisp例程允許您為道路繪製重力牆,在這個lisp中繪製這個牆壁的措施總是相同的(它們是恆定的),改變的唯一措施是牆壁的高度。

產生這個牆壁的點是從特定的牆壁設計的測量中產生的,如果希望通過這種lisp生成具有定制措施的牆壁,則必須改變程序中寫入的措施。

然後,您可以看到以下圖形,其中包含生成牆壁的點:

要使用此例程,您必須執行以下操作:

  1. 在AutoCAD中加載lisp文件。
  2. 輸入命令的名稱: MU
  3. 表示牆壁生成的起點
  4. 指示牆的方向(左或右)
  5. 輸入牆的高度

你可以得到例程 這裡


50。 常規LISP生成對齊的漸進性

這個有用的例行程序一直在我手中,對於那些想要生成簡單對齊而不需要生成橫截面或縱向輪廓的人來說,可以利用這個例程。

例程有一個對話框界面 這允許您自定義進度的最終格式 插入軸。

要使用例程,您必須具有折線(對齊方式),並按照以下步驟操作:

  1. 將下載的3文件複製到一個 的支持路徑 的AutoCAD
  2. 上傳文件 lisp在AutoCAD中 (使用APPLOAD)。
  3. 輸入命令的名稱: 進步
  4. 在對話框中,定義要生成的進度的格式。
  5. 選擇將生成這些漸變的折線(對齊方式)。
  6. 它表明了一個點,這將成為生成進步的起點。

你可以得到例程 這裡


51. 如何生成來自地面和花瓣的污染物的縱向剖面

這是生成縱向配置文件格式的最完整的例程之一。 通過簡單地選擇兩個2D折線(地形和齊平),該例程將生成具有所有需要顯示的數據的配置文件的格式。

為了使該配置文件的生成成功,要選擇的折線必須在2D中可用,否則可能會在其操作中發生錯誤。

要使用此例程,您必須執行以下操作:

  1. 複製下載的3文件 在其中一個AutoCAD支持路徑上
  2. 上傳文件: 配置文件 在AutoCAD(使用APPLOAD)。
  3. 輸入命令的名稱: 輪廓
  4. 在彈出的對話框中,點擊“數據” 並單擊按鈕“terreno“和”紅暈” 選擇地形和坡度折線
  5. 如果你希望你可以定義 對話框中的其他數據 在創建配置文件(可選)之前
  6. 表示 插入點 配置文件的頂部生成

你可以得到例程 這裡


52。 在可視化的LISP中添加ARCOS措施

此例程允許您添加圖形的所有弧的距離,或僅添加您選擇的弧的距離,顯示在命令行中添加的結果。

此例程允許您添加圖形的所有弧的距離,或僅添加您選擇的弧的距離,顯示在命令行中添加的結果。

要使用此例程,您必須執行以下操作:

  1. 在AutoCAD中加載lisp文件。
  2. 輸入命令的名稱: sumarco
  3. 選擇要添加的圖形的弧線,如果要選擇所有弧線,請按鍵 Enter 之前請求選擇弧。

你可以得到例程 這裡


其他


53。 常規LISP進口其他文件中保存的UCSS

使用AutoLisp和Visual Basic for Applications(VBA)創建的這個有趣的例程, 允許您使用任何文件的名稱導入已保存的UCS 次要的我們的繪圖。

這個工具非常有用 如果您處理許多UCS的飛機我們通常在第一個文件中創建UCS,我們必須對其他文件做同樣的事情,這個例程, 只需先創建它們,然後我們就可以將它們導入任何其他文件.

該例程的作用與Designcenter工具類似,除了它沒有從其他文件導入UCS的選項。 在這個例程的情況下 雖然它不允許拖放,結果是如預期的.

要使用例程,您必須執行以下操作:

  1. 上傳或添加DVB和LSP文件到Appload啟動套件。
  2. 輸入命令的名稱: IMPUCS
  3. 在該地區 源圖,點擊按鈕 選擇,選擇要導入UCS的圖形文件。
  4. 在該地區 發現UCS,選擇要導入的UCS,然後單擊確定按鈕。

你可以得到例程 這裡


54.消除多義線指示頂點的LISP例程

你會發現,在AutoCAD中,你有一個折線,你想要刪除其中一個頂點,並能夠做到這一點,你必須應用兩個以上的命令。

用這個例程 剛好足以指出要刪除的大多數的哪個頂點 並安排事情。

為了使程序正常工作,在指出點時, 這必須是要消除的頂點而不是近點因此,您必須激活實體參考模式,例如端點或交點。

要使用例程,您必須執行以下操作:

  1. 在AutoCAD中加載lisp文件。
  2. 輸入命令的名稱: evepol
  3. 選擇要從中刪除頂點的折線。
  4. 表示要刪除的折線頂點上的一個點。

你可以得到例程 這裡


55。 出口對象物質3DFACE的坐標點的常規

這個用Autolisp編寫的例程與前一個程序類似,不同之處在於,它導出AutoCAD的3Dface對象頂點的坐標,這些坐標存儲在Microsoft Excel的CSV文件中,這表示為。

導出頂點 如果您使用3D臉部進行三角測量,可以幫助您 你想要得到他們的坐標 重建您的坐標點文件.

考慮也是 與以前的例程相同在3Dface由相同頂點連接的情況下, 如果需要也可以應考慮到 對坐標進行排序並刪除那些重複的坐標.

導出的坐標有 格式P,N,E,C(Point,North = Y,East = X,Dimension = Z) 並且當它被導出到CSV文件(以逗號分隔)時,當打開文件時,每個值將獨立於且以有序的方式佔用其單元格。

要使用例程,您必須執行以下操作:

  1. 在AutoCAD中加載lisp文件。
  2. 輸入命令的名稱: E3D
  3. 選擇要導出頂點坐標的3D對象。
  4. 表示將生成導出的坐標的CSV文件的位置和名稱。

你可以得到例程 這裡


56。 常規LISP複製外部塊或參考的實體

有時有必要復制實體,但是當它們在一個塊內時,我們通常會做的是利用該塊或者使用塊編輯器,以便單獨控制實體,選擇和復制它們。

使用此例程,您將不再需要利用任何塊或使用塊編輯器進行複制 其中的任何實體,只需加載此例程並選擇要復制的實體。

從選擇創建的新對象 出現在原來的上面,所以 如果需要 您必須選擇它們並將其移動到所需的位置。

在這個例程中,您可以選擇該選項 可以在另一個層中創建新對象,因為默認情況下,新實體是在當前圖層中創建的。

要使用例程,您必須執行以下操作:

  1. 在AutoCAD中加載lisp文件。
  2. 輸入命令的名稱: CPL
  3. 選擇要復制的塊的功能。
  4. 如果您希望您可以選擇更改生成新對象的圖層。

你可以得到例程 這裡


57. 在線性部分中改變聚乙烯的結構的日程表

此例程允許您將折線中包含的弧線轉換為線性段,每個段的長度將在命令選項中指定。 lisp從所選折線的頂點獲取數據,包括圓弧幾何,並使用新數據生成新的折線。

弧中每個新段的長度 取決於輸入的值,它必須小於所選折線的較小弧的長度, lisp 會將原始弧分成“n”段 直到達到其原始長度。

可選 你可以選擇保留原來的折線,這將導致在其頂部創建折線 - 或刪除它。

此例程可能是有用的,例如,在需要沿水平或垂直對齊軸的曲線上定義點的情況下。

要使用例程,您必須執行以下操作:

  1. 在AutoCAD中加載lisp文件。
  2. 輸入命令的名稱: artose
  3. 選擇要將曲線段轉換成線段的折線。
  4. 指示將構成新的線性“弧”的每個段的長度。
  5. 選擇如何選擇原始折線,如果您選擇刪除,則只有具有曲線段的折線才能轉換為線段。

你可以得到例程 這裡


58. AUTOCISP ROUTINE插入點在軸上指定的距離

使用此例程,您可以使用其各自的距離插入選定的軸(折線)點,這些點的插入數據來自距離的手動數字化或距離文件的讀取(文件的例如更好的理解)。

這個例程可以使用 在道路軸線的情況下在某些情況下,有必要在軸(多段線)中定位精確漸進,例如漸進式 23.76,手動可以做,但需要更多的時間,此例程只需選擇軸,指示該軸的初始進度(通常為0值),然後輸入距離。

如果您有很多距離進入軸,而不是鍵入它們 lisp提供選擇文本文件的選項,在這個文本文件中將是距離,lisp將逐個讀取它們,並將它們插入軸上的一個點(折線)。

lisp 還允許您更改軸的開始 由於起點是根據生成折線的起點確定的,如果 lisp 開始將距離放在不是所需終點的終點,請使用以下選項:“更改軸啟動“。

除了例程是一個CAD文件,單軸(折線),作為實現lisp例程的一個例子。

要使用此例程,您必須執行以下操作:

  1. 在AutoCAD中加載lisp文件。
  2. 輸入命令的名稱: PP
  3. 選擇如何插入進度:手動(1×1)或閱讀文本文件。
  4. 選擇折線軸
  5. 從軸輸入漸進或初始距離(默認為0)
  6. 輸入漸進或距離查找(在手動指法的情況下,如果選擇了文件讀取,則不需要)

你可以得到例程 這裡


59。 根據指定的間距自動將坐標插入到輪廓中的常規LISP

使用 AutoLisp 和 VisualLisp 製作的這個例程,您將能夠在您的配置文件格式中每“n”米插入所選折線(自然或放牧地形)的高程,高程將作為參考插入格式。

在這個命令 您可以定義圖形的比例,這個比例不是指輪廓的垂直尺度,而是指要插入的尺寸的文本的尺度,1:500刻度的尺寸文本將大於1:50刻度的尺寸文本。

您可以定義您的配置文件的垂直比例,這個數據很重要,因為它控制尺寸的值,在10中縮放的自然地形剖面中,垂直方向的尺寸也將比其實際尺寸的10倍多,因此命令應該執行相應的操作,將配額值轉換為真實值。

另一個值進入和 定義此命令的那個是要插入尺寸的距離,此例程帶來的默認值為10,這意味著將從指示的參考點水平插入每個10米的尺寸。

選擇代表您的個人資料(TN,Rasante等)的折線後, 該命令將提示您以您的配置文件格式指示參考點你必須在一個表示這一點 進步整體,例如,如果您的配置文件是從0 + 000到100 + 000,則必須在逐行0或10或20等中指明點(根據每個引用的尺寸插入距離)。

記住 為了使程序獲得相應的維度,必須正確定位配置文件,即尺寸對於輪廓是正確的。

這個圖表將幫助您更好地了解此例程的選項:

要使用此例程,您必須執行以下操作:(默認值為遵循所附CAD文件的示例)

  1. 在AutoCAD中加載lisp文件。
  2. 輸入命令的名稱: ICP。
  3. 輸入尺寸尺寸的繪圖比例: 850 (您可以更改,直到尺寸合適)
  4. 輸入配置文件的垂直刻度: 1 (垂直刻度與水平相同)
  5. 輸入進度之間的距離: 10
  6. 默認輸入小數位數: 3
  7. 選擇您要限制的配置文件TN,Rasante等)
  8. 表示您的個人資料格式的里程碑(見圖)

你可以得到例程 這裡


60。 常規LISP允許在指示點獲得進步或長度

在Autolisp和Visual Lisp中開發的該例程允許您獲取折線或軸的長度或漸變,並通過插入點將其插入到圖中。

要做到這一點,您必須選擇折線,並指出初始值是漸進的,必須驗證該命令是否已獲得正確折線(起始軸)的起點,如果不是,則可以使用選項提出這個命令。

您可以從源代碼修改一些默認參數,例如要插入的文本的高度。
請注意,您的坐標系必須為正,否則當指示要獲取的漸進點或長度時會產生錯誤。

要使用此例程,您必須執行以下操作:

  1. 在AutoCAD中加載lisp文件。
  2. 輸入命令的名稱: OPR
  3. 選擇軸折線或輸入字母“C", 改變軸的起點
  4. 輸入默認折線起始點的起始(或初始)值:0.00
  5. 表示要獲取長度或漸進的行中的點

你可以得到例程 這裡


61。 使用所選文本(數字)進行不同操作的LISP例程

它是一個小巧但非常有用的 lisp 例程,可讓您獲取有關所選文本的操作信息,顯然這些文本必須具有數值才能進行計算,例如:“2.22”、“3.39”(沒有引號)等。

如果在所有的數字文本中的命令 找到一個非數字文本 例如單詞“dot”,將把這個文本作為 0.00值,所以結果 會改變.

該命令提供的信息是:

  • (所選數字元素的總數)
  • 號碼查詢最大 (所有選定數字文本的最大值)
  • 號碼查詢最低限度 (所有選定數字文本的最小值)
  • 平均 (所有選定數字文本的平均值)
  • 蘇馬 (所有選定數字文本的總和)

單獨獲取結果 這樣就可以逐個選擇或者通過窗口來選擇 (窗口)需要信息的文本。

要使用此例程,您必須執行以下操作:

  1. 在AutoCAD中加載lisp文件。
  2. 輸入命令的名稱: IV
  3. 選擇要從中獲取信息的所有數字文本

你可以得到例程 這裡


62。 通過其當前配置行走和打印所有佈局的常規行程

此例程允許您通過所有佈局,並使用您擁有的當前頁面配置打印每個佈局,值得澄清的是,模型空間的佈局將不被考慮。

該命令運行在每個佈局中,並且如果它驗證它是模型空間,則通過繼續其他模式來跳過,所以如果您還要打印模型空間,只需將命令修改為這也被考慮和印刷。

您可以利用此命令的功能,例如插入信頭、在每個佈局中刪除或添加文本等。該命令不打印“背景“,除非在對話框中指定 選項 在標籤“繪製和發布“。

如果您有很多打印文件,並且每個都有很多佈局,可以通過執行以下操作來增加此命令的功能:

創建一個名為 acad.lsp (如果你還沒有),那個文件中的任何地方都會添加以下代碼:

(defun s :: startup()
(load “Loop through and print all layouts.LSP”) ;這是附件的名稱。
)

沒有指出路徑,因為可以理解,將指定的lsp文件的路徑添加到AutoCAD支持目錄(在選項對話框中指示),否則可以將代碼行替換為(指示要加載的lsp文件的完整路徑):

(defun s :: startup()
(加載“C:\\CONSTRUCGEEK\\TUSLISP\\Loop through and print all layouts.LSP”)
)

要正常使用此例程(不作修改),您必須執行以下操作:

  1. 在AutoCAD中加載lisp文件。
  2. 輸入命令的名稱: LPLOT
  3. 您必須等到所有打印作業完成。

你可以得到例程 這裡


63.  可視化日常用品根據指定的字符數量將文字切割到右邊或左邊

這個lisp例程允許您修剪所選文本,將其修剪到右側,左側或兩側,這取決於該命令的具體內容。

例如,如果你有初始文本 “ 0 + 580.00” 並且您告訴該命令將2字符剪切到左邊,該命令將替換它 “580.00”.

如果您指示該命令將3字符剪切到右側,則該命令將替換原始文本 “ 0 + 580”.

最後,如果你告訴命令在兩邊修剪,2字符在左邊,X​​NUMX在右邊,初始文本將被替換為 “580”.

如您所見,只需指出要剪切的字符數,並選擇文本,並按照指示進行剪切。

要使用此例程,您必須執行以下操作:

  1. 在AutoCAD中加載lisp文件。
  2. 輸入命令的名稱: RET
  3. 指示文本的哪一邊將被修剪 [左/右/兩者]
  4. 在指定側輸入要切割的字符數
  5. 選擇您要剪切的所有文本
  6. 按Enter鍵或右鍵單擊進行更換

你可以得到例程 這裡

高爾基阿爾瓦雷斯

作家、研究員、土地管理模型專家。 他參與了模型的概念化和實施,例如:洪都拉斯國家財產管理系統 SINAP、洪都拉斯聯合市政管理模型、地籍管理綜合模型 - 尼加拉瓜登記處、哥倫比亞領土 SAT 管理系統. 自 2007 年以來,Geofumadas 知識博客的編輯和 AulaGEO 學院的創建者,其中包括 100 多門關於 GIS - CAD - BIM - 數字孿生主題的課程。

相關文章

56 個評論

  1. 你好工程師。 你能幫助我嗎 ? 請問如何在Civil 3D 2024中輸入座標網格

  2. سلام
    Lisp 語言
    巴扎爾·巴扎爾·巴扎爾·巴扎爾·巴扎爾

  3. 在Autocad 2015中會有一個例程加載PENCD格式的點雲,用空格或逗號分隔
    或更高。 謝謝

  4. 適用於TIVE困難的EM BAIXAR作為LISP。 我將被安排到一個以西班牙語為母語的網站上,以VOSSA LISP EM ESPANHOL為名,我不會找到NESSA PAGINA PROCUREM NO FIM DA PAGINA,就像SETAS PARA PASSAR上一頁一樣,我會找到您。 DEPOISÉSÓCLICAR NA VOSSA LISP,單擊EM附加的文件(免稅)或適用。

  5. 適用於TIVE困難的EM BAIXAR作為LISP。 我將被安排到一個以西班牙語為母語的網站上,以VOSSA LISP EM ESPANHOL為名,我不會找到NESSA PAGINA PROCUREM NO FIM DA PAGINA,就像SETAS PARA PASSAR上一頁一樣,我會找到您。 DEPOISÉSÓCLICAR NA VOSSA LISP E單擊EM附加的文件E稅或適用。 我會幫助

  6. 您好,我想知道您是否有任何課程或培訓來學習如何在Autocad中編程。 並創建一個可幫助我計數和識別一組折線的應用

  7. boa noite ..知道lisp 37的gostaria。 轉換器實體3DFace em solid ACIS適用於所有的versõesdoauto cad?

  8. 你好我想知道如何獲取那些嘴唇來提取折線的坐標和獲得折線耳環的坐標

    謝謝

  9. HELLO
    我是P&ID繪圖員,我想知道如何將autocad計劃中的智能塊導出到Excel。
    在計劃中是:
    閥門
    行號
    儀器儀表
    設備。
    我想提取該信息並在Excel中顯示它。 如果有人可以幫助我

  10. 大家好,
    ich suche eine Lisp,dieesmöglichtaufeiner Polylinie an x​​-beliebiger Stelle eine Stationierung(也是LängederPolylinie and dieser Stelle)anzuzeigen。
    LG

  11. 尋求梯度口齒不清即一定半徑的圓具有以切割下一曲線級並產生從源折線等在其移動到另一個地方是設計一個道路和欠費複製圓圈並繪製多邊形謝謝

  12. 他們有一些例程可以將屬性分配給基本元素,而不是塊,這些可以在屏幕上的對話框中顯示。

  13. 您好!

    如何下載 lisp“將坐標點導出到 CSV 文件”?

    謝謝

  14. 好日子
    希望你的支持,我有一個問題我的嘴唇AUTOCAD無法加載技術數據表中的DRAM(坐標,邊,角)

  15. 各位大家好,我發現更多的lisp

  16. 冰雹,vorrei日常nominata AREASX,seèpossibile。

    Grazie提前

  17. 你好,我想訪問這個例程來使程序化。

    謝謝

  18. 我想向您發送一個lisp例程,在最近的版本不起作用,如果舊版本不起作用,我希望你可以更正它和/或改進它,你指出我的郵件或當你發送我的lisp例程。

  19. 很好可言,我需要的日常arcos_de_una_polilinea_en_segmentos_lineales.fas出口的AutoCAD MIDAS GEN 2015無論在AutoCAD中產生的電弧,我把它們分解成段。 非常感謝 我來自古巴

  20. Sou português e gostava, se possível, de ter a rotina “通過指定點的 COTA 替換文本內容的例程”。

    Obrigado

  21. 請您告訴我在哪裡可以下載您的 lisp 例程“將坐標點導出到 CSV 文件”,因為我有一個區域的地形,我需要將其導出到 csv 或 txt 點作為文本輸入(內容是高度) 並且在坐標 Z 中為零,明白嗎?
    請你幫幫我

  22. 我想要具有“從選定的折線中刪除內部或外部對象”功能的 lisp,因為在文章中我找不到下載鏈接。

  23. 嗨,我想知道是否有一個例程來獲取對象的數量並將它們放在文本中

  24. 親愛的,我試著降低一些例程,這個警告出來了:

    未找到

    在該服務器上找不到請求的URL /論壇/ Routine-lisp-to-add-to-subtract-values-to-selected-text。

    此外,404 Not Found錯誤時遇到試圖使用一年ErrorDocument來處理請求。

    我錯了什麼?1000謝謝王

  25. 嗨,如果有人知道任何lisp允許繪製poligono知道,長度和角度,如果有人知道,例如topo12,如果他們可以發送我的郵件 juanpaulo_100@htomail.com非常感謝,我的朋友們。

  26. 美好的一天,我想知道autocad 2014的例程,如果他們有它產生的表格parir坐標和公路設計

    謝謝

    問候

  27. 你好
    對不起,請原諒我幫助一個lisp來定義一個折線的公里,我解釋一下,如果我有一個折線,100起點的原點Dm和結束1000的dm,能夠標記折線內的任何點,我拋出他的dm和我離開規定。

    現在,對於每個項目,開始和結束的dm總是不同的

    如果你不能幫助我,我會感謝他們,因為我經常工作,這對道路項目是非常有用的。

    問候

  28. 有人可以幫助我用一個lisp來連接一個從兩點開始的任意坐標進行的調查,然後將原始坐標向北和東方放置,並且配額與我做的兩個起始點相同但是配額卻改變了

  29. 美好的一天,我想知道有沒有人知道任何小例程,或者有一些簡單的例子,一些小例程創建一個dbf數據庫,並添加數據或從autolisp中刪除。
    我希望他們能幫助我。
    謝謝

  30. 你好,朋友,我想知道,如果有人知道一個常規測量多邊形的角度(我希望外部)及其距離,如果不是太多要求他們導出到Excel。

  31. 如何編寫一個.lsp例程,該例程在加載.dwg圖形時以及何時被記錄下運行?
    謝謝

  32. 我需要幫助,看看有誰知道lisp會救我。

    我想從民用3d中導出所有生成的截面文本文件,我只需要顯示里程,到軸的距離,以及相應的級別。
    這樣的東西

    Km,Dist。到軸,Dimension

    只有這樣。 有人可以幫我嗎 我不知道有關編程的任何事情,所以我要求幫助。

  33. 我們來看看我是否明白了
    你說你用lisp你將坐標導出到Excel
    你有沒有把他放在遠處? 我不明白,我想這是在AutoCAD作為尺寸或功能的lisp?

    但是如果你已經在Excel中有坐標,為什麼不用下一個列之間的pythagoras公式在下一個列之間呢?
    (((y2坐標-y2坐標)平方+(x2坐標-x1坐標)平方)的平方根

  34. 我喜歡好日子,我想幫助我一個LISP。 說明一下,我有抽樣的每一點粗跟LISP EXPORTA含坐標到Excel中的計劃,但現在每個點與點之間,你,把距離,現在我想花之間的點對點YPUNTO衡量到Excel不打字中400PONTS和他們的距離有什麼辦法嗎? 請別有更快的多ME AND SO AVANZO工作。

    提前感謝

  35. 您好,我想知道是否有任何例程將autocad平面轉換為另一個參考系統,例如從wgs84到psad56

  36. http://www.hispacad.com/foro/viewtopic.php?p=165851#165851

    繪製長,橫向輪廓的附件例程,通過excel,各種實用程序,塊庫導入和導出點。

    在手冊文件夾中,有安裝幫助。
    在密鑰文件夾內將找到該文件進行激活。
    手冊中的文件夾是命令的幫助文件。

    注意:出於壓實原因,已更新的手冊已被刪除,並在附件的幫助手冊中刪除了幾張圖像。
    可以通過郵件來請求更新的手冊
    vhcad@hotmail.com
    以防應用程序對它們有用,或者自己分析命令的操作。

發表評論

您的電子郵件地址將不會被發表。 必填字段標有 *

返回頂部按鈕