AutoCAD作為強大而專業的工程繪圖軟件,提供了豐富的矢量圖編輯工具,但也有一些常用的特殊編輯功能沒有提供,給交互式繪圖工作中的圖形編輯帶來了不便。例如, 在繪制地理圖時, 經常遇到繪制鐵路線;在手動矢量化過程中,為精確調整矢量圖與底圖的符合程度, 需要增加或減少多義線節點。這些功能AutoCAD缺省時無法實現，如果通過編程讓計算機自動完成上述功能，則既可提高工作效率又可減輕工程設計人員的勞動強度。

　　AutoCAD軟件提供了許多開放式接口，允許用戶通過這些接口對AutoCAD進行二次開發，為AutoCAD增加新功能，以滿足用戶的工作需要。LISP語言程序就是常用的一種，在AutoCAD R14中，將編寫的LISP程序(函數)加入到ACADr14.LSP 文件中，這些函數就如同AutoCAD的基本命令一樣，非常方便。下面開發的幾個LISP函數程序分別實現了繪制鐵路線型、多義線節點的增加、刪除操作等特殊編輯功能。

　　繪制鐵路線型

　　1.程序設計思路

　　在AutoCAD的線型庫文件ACAD.LIN、ACADISO.LIN分別新增實線段與空白段之比為1∶1、名為“Railway” 的線型，描述格式如下：

　　在ACAD.LIN中增加：

　　*Railway，Railway — —

　　A,1,-1

　　在ACADISO.LIN中增加：

　　*Railway，Railway — —

　　A,15,-15

　　通過對選定多義線設置線寬(鐵路線寬)，原點拷貝，將由拷貝生成的多義線設置為新建的“鐵路”圖層，顏色設為“白色”，線型設為“Railway”，線寬為原線寬的0.7倍，這樣原多義線與疊加在其上的寬度稍窄的白色虛線就構成了形象逼真的鐵路線。

　　2.程序代碼

　　(defun c:tlx()

　　(setvar “cmdecho” 0)

　　(setq ss (ssget ‘((0 .“LWPOLYLINE”))))

　　(if (equal ss NIL)

　　(exit) ; 沒有選擇對象或已取消

　　)

　　(setq tlkd (getstring“請輸入鐵路線寬度：”))

　　(command “pedit” ss “width” tlkd “”)

　　(command “copy” ss “” “0,0” “0,0” “”)

　　(command “layer” “m” “鐵路” “L” “Railway” “” “”)

　　(command “layer” “s” “鐵路” “c” “255” “” “”)

　　(setq sset (ssget “L”))

　　(command “pedit” sset “width” (setq tlkd1 (* (atof tlkd) 0.7)) “L” “ON” “”)

　　(setq ename1 (ssname sset 0)

　　ent1 (entget ename1))

　　(setq ent11 (nth 5 ent1))

　　(setq ent11 (subst (cons 8 “鐵路”) ent11 ent1))

　　(entmod ent11)

　　(setq ent12 (nth 6 ent11))

　　(setq ent12 (subst (cons 6 “Railway”) ent12 ent11))

　　(entmod ent12)

　　)

　　增加多義線節點

　　1. 程序設計思路

　　選定多義線，通過設置“最近點”捕捉方式精確定位所增加節點的位置。提取多義線的定義數據表中的節點坐標，通過檢測添加點到相鄰兩節點距離之和是否等于兩節點間距離的方法，判斷添加節點所在的位置。把添加點的坐標插入數據表中與之相鄰的兩節點坐標之間，并對多義線的定義數據表進行更新，以達到增加節點的目的。

　　2. 程序代碼

　　(defun c:add_V()

　　; add_Vertex.lsp

　　; 要求用戶選定多義線

　　(princ “ Select LWPolylines: ”)

　　(setq ss (ssget ‘((0 . “LWPOLYLINE”))))

　　(if (equal ss NIL)

　　(exit)) ; 沒有選擇對象或已取消

　　; 獲得單個多義線

　　(setq ename (ssname ss 0)

　　ent (entget ename)

　　listlength (length ent)

　　elementcounter 1)

　　(setq e2 (entsel“請增加一個節點:”))

　　(setq ent11 (nth 1 e2))

　　(setq ent11 (osnap ent11 “nea”))

　　;最近點精確捕捉

　　(setq e3 (cons 10 ent11))

　　(setq el10 (list (car ent)))

　　(setq el20 (cdr (assoc 10 ent)))

　　(setq element2 el20)

　　(setq k 0)

　　; 從多義線清單中獲得每個元素

　　(while (< elementcounter listlength)

　　; 從表中獲得一個元素

　　(setq element (nth elementcounter ent)

　　kind (car element))

　　(if (equal kind 10)

　　; 該元素所含的坐標

　　(progn

　　; 獲取坐標 (OCS系統)

　　(setq OCSpoint (list (nth 1 element); x坐標

　　(nth 2 element))) ; y坐標

　　(setq element2 (trans OCSpoint ename 1)); 將OCS系統轉為UCS系統

　　(setq element1 (cons 10 element2))

　　(setq dist (distance element2 el20))

　　(setq dist1 (distance ent11 element2))

　　(setq dist2 (distance ent11 el20))

　　(setq dist (rtos dist 2 4))

　　(setq dist1 (rtos dist1 2 4))

　　(setq dist2 (rtos dist2 2 4))

　　(if (= (atof dist) (+ (atof dist1) (atof dist2)));判斷節點位置并將其坐標加入表中

　　(progn

　　(setq ent11 (trans ent11 1 ename))

　　;將UCS系統轉為OCS系統

　　(setq e3 (cons 10 ent11))

　　(setq el10 (cons e3 el10))

　　(setq k 1)

　　)

　　)

　　)

　　)

　　(setq el1 (cons element el10))

　　(setq kind “”)

　　(setq elementcounter (1+ elementcounter))

　　(setq el10 el1)

　　(setq el20 element2)

　　)

　　(if (= k 0) (print “添加點沒選中,重試!”))

　　(setq ent (reverse el1))

　　(entmod ent);表更新

　　(setq ss NIL)

　　(princ “ Ready.”)

　　(princ)

　　)

　　多義線節點的刪除

　　1. 程序設計思路

　　選定多義線，通過設置“端點”、“交點”捕捉方式定位刪除節點的位置。提取多義線的定義數據表中的節點坐標，通過檢查所刪節點在定義數據表中的位置，把數據表中的對應節點坐標數據刪除，并對多義線的定義數據表進行更新，以達到刪除節點的目的。

　　2. 程序代碼;

　　remove_vertex.lsp

　　(defun c:rem_v(); 要求用戶選定多義線

　　(princ “ Select LWPolylines: ”)

　　(setq ss (ssget ‘((0 . “LWPOLYLINE”))))

　　(if (equal ss NIL)

　　(exit) ; 沒有選擇對象或已取消); 獲得單個多義線

　　(setq ename (ssname ss 0)

　　ent (entget ename)

　　listlength (length ent)

　　elementcounter 1)

　　(setq e2 (entsel“請選擇一個節點:”))

　　(setq ent11 (nth 1 e2))

　　(setq ent11 (osnap ent11 “int,end”))

　　(setq e3 (cons 10 ent11))(setq el10 (list (car ent))); 從表中獲得每個元素

　　(while (< elementcounter listlength); 從表中獲得一個元素

　　(setq element (nth elementcounter ent)

　　kind (car element))

　　(if (equal kind 10); 該元素所含的坐標

　　(progn; 獲取坐標 (以OCS系統)

　　(setq OCSpoint (list (nth 1 element); x坐標

　　(nth 2 element))) ; y坐標

　　(setq element1 (trans OCSpoint ename 1))

　　; 將OCS系統轉為UCS系統

　　(setq element1 (cons 10 element1))

　　)

　　)

　　(if (equal element1 e3)

　　(setq el1 el10)

　　(setq el1 (cons element el10))

　　)

　　(setq element1 “”)

　　(setq elementcounter (1+ elementcounter))

　　(setq el10 el1)

　　)

　　(setq ent (reverse el1))

　　(entmod ent)

　　(setq ss NIL)

　　(princ “ Ready.”)

　　(princ)

　　)

　　應當指出的是上述多義線節點的增加、刪除操作適合于任何用戶坐標系統的圖形文件。在程序設計中,還涉及到坐標系統轉換，即OCS系統(對象坐標系統)與UCS(用戶坐標系統)之間的轉換，原因是多義線定義數據表中的坐標為對象坐標，屏幕圖元的顯示坐標為用戶坐標，在非WCS(世界坐標系)坐標系中，屏幕上同一點對象坐標與顯示坐標是不同的，因此,在兩者坐標數據進行比較時必須使用同一種坐標系。