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就行了，希望能幫到你，
c語言新手。求程式設計序，c語言新手。求編一個程式。
include include include define n 52 牌張總數 define m 13 每花色張數 char hs 4 花色陣列 梅花 紅心 方塊 黑桃字元對應的ascii碼 char hx 對應11，12，13，14共四張大於10的牌符號 生成順序撲克牌陣列 1 52，梅花1 1...
求c語言程式，那位高手幫幫忙，求一個c語言程式，那位高手幫幫忙！！
include include include void guanli 管理員檔案void zhu 查詢主函式 void nianca void mingca void banca void xingca void xueca void zhucaidan void tianjia void she...
設計求各類圖形面積的C 程式，設計一個求各類圖形面積的C 程式
include include class shape 三角形 class public shapedouble getarea constprivate double m a,m b,m c 圓形 class circle public shapedouble getarea constpriva...