斷裂線繪製程式，源**如下：
(defun c:dlx();;主程式
(setvar "cmdecho" 0)
(initget "set draw")
(setq sl (getkword "n 設定斷裂線尺寸(s)/繪製斷裂線(d)"))
(if (null sl) (setq sl "draw"))
(if (null setdlx_ratio) (setq setdlx_ratio 1))
(if (null setdlx_drawratio) (setq setdlx_drawratio 1))
;;(alert sl)
(cond ((= sl "set") (setdlx))
((= sl "draw") (drawdlx))
(t);;(setq a (getreal "請輸入a值:"))
(defun setdlx()
;;(setvar "cmdecho" 0)
(setq strs (strcat "n 請輸入斷裂線長寬比:"))
(setq sx_ra (getreal strs))
(if sx_ra (setq setdlx_ratio sx_ra))
(setq strs (strcat "n 請輸入斷裂線繪圖比例:"))
(setq sx_ra1 (getreal strs))
(if sx_ra1 (setq setdlx_drawratio sx_ra1))
(drawdlx)
(defun drawdlx()
(setvar "cmdecho" 0)
(setq osm (getvar "osmode"))
(initget)
(setq spt1 (getpoint "n 指定點1:"))
(setq spt2 (getpoint "n 指定點2:"))
(setq ang (angle spt1 spt2))
(setq midpt (list (/ (+ (car spt1) (car spt2)) 2) (/ (+ (cadr spt1) (cadr spt2)) 2)))
(setq dpt1 (polar midpt ang setdlx_drawratio))
(setq dpt3 (polar midpt (+ ang pi) setdlx_drawratio))
(setq dpt2 (polar dpt1 (- ang (/ pi 2)) (* setdlx_ratio setdlx_drawratio)))
(setq dpt4 (polar dpt3 (+ ang (/ pi 2)) (* setdlx_ratio setdlx_drawratio)))
(setvar "osmode" 0)
(command "pline" spt2 dpt1 dpt2 dpt4 dpt3 spt1 "")
(prin1)
(setvar "osmode" osm)
lisp實心圓點怎麼畫 cad中怎麼樣畫實心圓點
cad 計算機輔助技術 caxc 認證 計算機輔助設計 cad computer aided design 指利用計算機及其圖形裝置幫助設計人員進行設計工作。在設計中通常要用計算機對不同方案進行大量的計算 分析和比較，以決定最優方案 各種設計資訊，不論是數字的 文字的或圖形的，都能存放在計算機的記憶...
lisp實心圓點怎麼畫 實心小圓點符號怎麼打
公告 為響應國家淨網行動，部分內容已經刪除，感謝讀者理解。話題 實心小圓點符號怎麼打回答 我知道你這個符號怎麼打,不過貌似只能在網頁顯示。輸入 0 0 注意空格去掉,這5個字元連著打。我之所以沒連起來就是因為連起來的話它直接顯示為圓點.跟你那個點一模一樣,我貼上檢視了。話題 怎麼打出來啊?還有外名字...
lisp語言畫地物符號 繪畫是兒童的第二語言
兒童的語言學習在很大程度上重複著人類祖先的方式。也就是說，在還沒有形成通用語言文字的漫長歲月裡，我們的祖先一邊用咿咿呀呀的言語交流，一邊用符號和圖示記事。兒童用短暫的時光完成了人類進化歷程數百萬年的語言學習與詞語積累。但依然繼承了用符號和圖畫記事 交流的方式，尤其是畫畫。一 兒童繪畫的基本特徵。對兒...