autolisp以直線為基線新增文字，**如下。
(defun c:test()**完。(setvar "cmdecho" 0)
(setq os (getvar "osmode"))
(setvar "osmode" 0)
(setq en (car (entsel "\n選取線：")))
(setq pt10 (cdr (assoc 10 (entget en))))
(setq pt11 (cdr (assoc 11 (entget en))))
(setq dd (distance pt10 pt11))
(setq shh (getvar "textsize"))
(princ (strcat "\n線段長度=：" (rtos dd 2)))
(setq str_hh (strcat "\n文字高度<" (rtos shh 2) ">:"))
(setq hh (getdist pt10 str_hh))
(if (null hh) (setq hh shh))
(setq txt (getstring "\n文字內容："))
(setq ang (angle pt10 pt11))
(setq i 1 txtpt pt10)
(setq nn (1- (strlen txt)))
(repeat (1+ nn)
(setq stxt (substr txt i 1))
(command "text" "c" txtpt hh (* (/ ang pi) 180) stxt)
(setq txtpt (polar txtpt ang (/ dd nn)))
(setq i (1+ i))
) (setvar "osmode" os)
)
從第一點到第二點看，文字只能再直線的左側。
為新建中新增Office2003檔案
用microsoft office 2007新增到滑鼠右鍵選單中的新建文件為 x格式，如word docx,excel xlsx，我們用這種文件建立的檔案需要另存為97 2003相容的格式如doc,xls才能被舊版本或其它相容軟體識別。為此，考慮到相容性，我們可以在滑鼠右鍵選單中增加 microso...
分享 部落格美化 6 為你的博文自動新增目錄
這篇文章使用的 來自於的marvin，非常感謝。在他的文章 如何給你的為知筆記新增乙個漂亮的導航目錄 marvin也把這個自動目錄新增到了他的部落格中，效果非常好。看看他的原始效果 效果非常好，而且前面的標號1，2，都是自動的。這一點不太符合我寫部落格的習慣，以為我的標題會把這個標號固定下來，所以就...
分享 部落格美化 6 為你的博文自動新增目錄
閱讀目錄 這篇文章使用的 來自於的marvin，非常感謝。在他的文章 如何給你的為知筆記新增乙個漂亮的導航目錄 marvin也把這個自動目錄新增到了他的部落格中，效果非常好。看看他的原始效果 效果非常好，而且前面的標號1，2，都是自動的。這一點不太符合我寫部落格的習慣，以為我的標題會把這個標號固定下...