1?/?4

一個更改尺寸類型的

LISP

程序

AutoCAD

制圖中經常用到標注尺寸，如果在標注尺寸前，預先對不同的標注尺寸

樣式進行命名，那么要修改尺寸標注的尺寸線狀態、箭頭規格、尺寸界線形狀、

文本位置和文本是一件很容易的事。

但是在實際制圖過程中，

經常發生預先沒有對標注尺寸樣式進行命名

;

或者，

在某一個圖中命名了標注尺寸樣式，但當其圖形文件被其它圖

(

含有相同命名的

標注尺寸樣式

)

插入，并改變了比例時，圖形中的尺寸標注會出現問題。同樣的

問題也存在于一張圖中某些圖形進行了比例縮放時。

此時如果把不恰當的尺寸標注一個個刪除，

再重新標注，

顯然是一種不值得

提倡的方法。實際上，用

LISP

語言編一個程序，就很容易解決這個問題。

程序的流程是：

選擇要修改的尺寸標注，

程序自動采用過濾方法將尺寸標注

篩選出來，

再選擇要修改到的尺寸標注，

程序讀取尺寸申請辯識名，

將要修改的

尺寸標注關聯表中相應項，逐個替換，再返回關聯表即可。

CHD.LSP(

修改尺寸標注形式

)

源程序如下：

;;;

(defun?C:CHD(/?al?a2?b1?b2?d1?d2?d3?n?index)

(graphscr)

ROMPT?"\n

請選取尺寸來修改：

")

(setq?al?(ssget'?(0."dimension"))))

(PROMPT?"\n

請選取要修改到的尺寸：

")

(setq?a2?(ENTSEL))

(setq?n?(SSLENGTH?al))

(setq?INDEX?0)

(setq?b2?(entget?(car?a2)))

(setq?d2?(assoc?3?b2))

(repeat?n

(setq?b1?(entget?(ssname?al?index)))

(setq?d1?(assoc?3?b1))

(setq?d3?(subst?d2?d1?b1))

(entmod?d3)

(setq?index?(+?index?1))

)

(princ)

)

;;

程序的使用方法，在

Command

提示符下，鍵入

(load?"CHD"),

或用下拉菜單

中文件項應用程序對話框加載，再鍵入

CHD

，然后再根據屏幕上的中文提示，進

行選取，非常方便。

《新程序員》：云原生和全面數字化實踐50位技術專家共同創作，文字、視頻、音頻交互閱讀

總結

以上是生活随笔為你收集整理的lisp改图元字体式样_一个更改尺寸类型的LISP程序的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。