從聽說autolisp到現在已經20年了，
學了一點點，
可惜中間沒能堅持下來，
放棄了！
今天在畫圖，
圖紙是從revit轉成dwg的，
其中有些文字的朝向是錯誤的，
如果手工旋轉很是費事，
於是想寫個小程式來完成，
可惜很久沒有啟動visual studio了，
況且使用的autocad版本為2008，
之前沒有針對這個版本配置過，
於是放棄了編寫.net程式的想法，
想使用visuallisp來實現！
東西都忘光了，
好在知道怎麼查幫助，
總算寫出來了，
寫程式的時間估計跟手工旋轉哪些文字的時間差不多，
不過我實在是懶，
不想幹簡單重複的事。
原始碼貼在這裡:
(defun c:qt ()
(setq ss (ssget '((0 . "mtext")(50 . 3.1415926535897)))
l (sslength ss)
i 0
) (if (> l 0)
(repeat l
(progn
(setq ent (ssname ss i))
(setq entd (entget ent))
(setq pt (cdr (assoc 10 entd))
w (cdr (assoc 42 entd))
h (cdr (assoc 40 entd))
) (setq newpt (list (- (car pt) w)
(+ (cadr pt) h)
(caddr pt)
) )
(setq entd
(subst (cons 10 newpt)
(assoc 10 entd)
entd
) )
(setq entd
(subst '(50 . 0)
(assoc 50 entd)
entd
) )
(entmod entd)
(setq i (+ 1 i))
) )
) )
「小」備份「大」作用
對於企業級的軟體而言，定期進行備份是非常重要的。定期進行備份可以幫助企業防範生產環境遭受破壞，資料丟失以及系統宕機事件的發生。在出現意外情況，如需要重新安裝部署時，可以快速地完成環境的搭建。還記得在2019年，知行的乙個重要客戶由於edi伺服器磁碟損壞，導致edi系統癱瘓無法正常工作，整個業務線也被...
測量lisp小程式
讀取座標文字檔案，標出點位與點號，高程 屬性塊 defun c plot point 座標展點 if not tblsearch block block point write block setq osmode old getvar osmode setvar osmode 0 setvar at...
晶振PPM小引數,大作用
大家都知道電子元件是電路設計中乙個很關鍵的所在，電路的精準直接關乎使用這顆晶振的產品的質量問題，但是最重要的體現在於乙個小引數那就是晶振的ppm值，即精度電容值。精度值越低表明這顆電子元件越精度越精確，使用起來越耐用和反應出來的效果就越好。那麼，你知道晶振電路中的ppm嗎?ppm這個小引數，是如何產...