cad lsp插件大全

cad lsp插件合集是由綠色資源網小編精心為大家整理的autocad軟件的應用插件，主要是用于拓展AutoCAD軟件的一些功能，有需要的朋友歡迎來綠色資源網免費下載使用。

AutoCAD軟件介紹

AutoCAD（autodesk Computer Aided Design）是用于二維繪圖、詳細繪制、設計文檔和基本三維設計，現已經成為國際上廣為流行的繪圖工具。AutoCAD具有良好的用戶界面，通過交互菜單或命令行方式便可以進行各種操作。它的多文檔設計環境，讓非計算機專業人員也能很快地學會使用。在不斷實踐的過程中更好地掌握它的各種應用和開發技巧，從而不斷提高工作效率。AutoCAD具有廣泛的適應性，它可以在各種操作系統支持的微型計算機和工作站上運行。

cad lsp插件大全包含：

bg.lsp --- 表格自動生成

asc.lsp --- 將文本文件內容寫入圖中，字符是單個的

wf.lsp --- 將圖中字符寫入磁盤

exstr.lsp --- 將字符串分解成單字

pgtxt.lsp --- 將字符合成字符串

pb.lsp --- 通過給出長度將字符串分成兩個串

cht.lsp --- 直接修改文字內容或塊屬性

ct.lsp --- 對數字串進行加減

chh.lsp --- 直接修改文字高度

chhw.lsp --- 直接修改文字高寬比(針對pkpm軟件將字符定位點改為左下角)

chst.lsp --- 直接修改文字字體

txt.shx --- 修改后的標準txt.shx文件。(kuozhan.sld為增強的內容幻燈片)

tiao.lsp --- 配合修改過的標準字體文件，將中文字符調大

tiao1.lsp --- 配合修改過的標準字體文件，將英文字符調小

untiao.lsp --- 上兩個程序的復原

sht.lsp --- 在圖中查找字符串

zhuang.lsp --- 樁點及釬探號繪制（勘測圖）

dim.lsp --- 配合JT.DWG將尺寸標注調成適合建筑結構設計(1:1)

dimm.lsp --- 配合JT.DWG將尺寸標注調成適合建筑結構設計(1:100)

di1.lsp～di8.lsp --- 直接連續標注尺寸(用于1:1的圖)

di100.lsp～di800.lsp --- 直接連續標注尺寸(用于1:100的圖)

brk.lsp --- 將一線條在與其它線條相交處斷開

peditx.lsp --- 成批修改線條的線寬

ex.lsp --- 分別或一起或通過層來炸開塊、尺寸標注及PLINE線

chcr.lsp --- 修改園和園弧的半徑

lay.lsp --- 通過點取層上一實體來實現層操作：刪除/解凍/凍結

bg0.lsp --- 直接將正負零標注在圖紙中(建筑結構圖用)

bg1.lsp～bg4.lsp --- 標注各種標高

hu.lsp --- 直接給出園弧長度

jdx.lsp --- 截斷線

jdx2.lsp --- 雙截斷線

bdgj.lsp --- 板底鋼筋(土建結構圖用)

bdgj1.lsp,bdgj2.lsp --- 板頂鋼筋(土建結構圖用)

dk1.lsp～dk8.lsp --- 配合PKPM軟件生成的圖繪洞口(基礎留洞）

gl1.lsp～gl8.lsp --- 配合PKPM軟件生成的圖繪過梁(結構平面圖）

gzz.lsp --- 構造柱繪制

ACAD.LIN --- 增強的線型文件, 擴充線型(線型比例為1)如下:

XX -- 虛線(用于1:1的圖)

DHX -- 點劃線(用于1:1的圖)

XX100 -- 虛線(用于1:100的圖)

DHX100 -- 點劃線(用于1:100的圖)

ACAD.LSP --- 增強的ACAD啟動文件, 命令擴展如下:

CHXX -- 將線型改為虛線(用于1:1的圖)

CHDHX -- 將線型改為點劃線(用于1:1的圖)

CHXX100 -- 將線型改為虛線(用于1:100的圖)

CHDHX100 -- 將線型改為點劃線(用于1:100的圖)

CHCON -- 將線型改為連續線

CHC -- 直接修改實體的顏色

cad lsp插件使用方法

需加載統計塊數命令，創建一個文本文檔，把下面的內容復制進去，保存-退出-修改文件名后綴為lsp文件，用cad加載這個lsp，執行命令BN-選擇要統計的塊（點選一個樣本），框選-右鍵后命令欄就有了。

;;; 統計圖塊

(defun C:BN ( )

(princ "\n請選擇圖塊")

(seleblk) ;選擇塊

(setq blkname (cdr (assoc 2 (entget blk)))) ;得到塊名

(setq ss1 (ssget (list (cons 2 blkname))))

(setq blknumber (sslength ss1))

;(textscr)

(princ "你選擇的圖塊名為 ")(princ blkname)(princ " 共有 ")(princ blknumber)(princ "個")(prin1)

)

(defun seleblk()

(setq blk (car (entsel "\nSelect Source BLOCK:")))

(if (/= "INSERT" (cdr (assoc 0 (entget blk))))

(progn

(princ "\n你選擇的不是塊，請重新選擇")

(seleblk)