1樓：匿名使用者
;請試用以下程式
;by dnbc
(defun c:scdh()
(setq cm (getvar "cmdecho")) (setvar "cmdecho" 0)
(command "_undo" "be")
(while (setq ssa (ssget '((0 . "text"))))
(setq i 0 n (sslength ssa))
(repeat n
(setq dxf (entget (ssname ssa i))
zfc (cdr (assoc 1 dxf))
i (1+ i)
)(if (or (> (setq n (vl-string-search "," zfc)) 0)
(> (setq n (vl-string-search "，" zfc)) 0)
)(progn
(setq zfc (substr zfc 1 n)
dxf (subst (cons 1 zfc) (assoc 1 dxf) dxf)
)(entmod dxf)))
))(command "_undo" "e")
(setvar "cmdecho" cm)
(princ))
2樓：唯一
;請試用以下程式
;by dnbc
(defun c:jctc()
(vl-load-com)
(if (and (setq tcm (getstring "\n圖層名:"))
(/= tcm "")
)(if (= (tblsearch "layer" tcm) nil)
(command "_layer" "n" tcm "")
(progn
(setq obj (vlax-ename->vla-object (tblobjname "layer" tcm)))
(vlax-put obj "layeron" (* -1 (1+ (vlax-get obj "layeron"))))))
)(princ))
求一個cad的lisp程式 50
3樓：
不要什麼lisp程式，工具-選項-開啟儲存-檔案儲存 另存為 選擇你要的版本，確定 退出，以後就儲存你選擇的版本了。
求大神幫忙寫一個cad的lisp程式
4樓：匿名使用者
編了一個lisp
輸入命令zb再選擇文字
(defun c:zb()
(setq ss (ssget))
(command "change" "p" "" "p" "c" "red" "")
(command "scaletext" "p" "" "e" "100")
)接下來的你自己弄吧
5樓：匿名使用者
完全可以使用cad基礎命令完成。
6樓：one春
還要什麼程式哦。。。。。簡單的很，只要有樣品文字或者樣式，你就按ma就行了，希望能幫到你，
編寫一lisp程式cad，求大神幫忙寫一個cad的lisp程式
試程式設計序如下，請校核。defun hang p r n repeat n command circle p r setq l cons p l p polar p 0 r r l defun sjy p r n i p1 p2 p3 l setq i 0 repeat n hang p r n ...
求C語言程式的解答 乙個簡單的程式
已修改 include void main 將a b中的最小值賦給a if a c 將a c中的最小值賦給a,即a為a b c中的最小值。if b c 在比較b c將最大值賦給c,完成a b c由小到大的排序。n c 對中間變數n進行初始化。while n a 0 n b 0 用中間變數n代替cpr...
求c語言選單函式的程式，求乙個C語言選單函式的程式？
1 對於視窗元件選單，需要根據不同平台，通過圖形程式設計介面，進行選單的編制。例程 include include include void main if str 80 if str 13 break 按回車鍵確認 畫圖做選單 cleardevice switch choice if i 100 ...