练习对话框出问题，求助修改

张大锤

永不言弃 发表于 2015-11-29 08:15
？？什么情况

是这样的我对个完全不通  在工作中我需要一步更改字体 但是这段命令 不是很方便 更改完不是我想要的字体这段代码 我不会改 它是一个 更改字体和字高的一段 我尝试着更改 但是它毫无变化
这个是 选中文字 会变成standard字体和125的字高  我想更改成MSP明朝的字体 125的字高不用变化 能帮助我一下吗?十分感谢  
(defun c:tt()
   (setvar "cmdecho" 0)
   (princ "\n惪慖潰洈徾:")                ------- 这个乱字 我记得好像是选择文字 提示什么的
   (setq ss(SSGET  '((0 . "text"))))
   (setq n 0)
    (repeat (sslength ss)
     (setq ent(ssname ss n))
     (setq en(entget ent))
     (setq en(subst'( 7 . "standard")(assoc 7 en)en))
     (setq en(subst'(40 . 125)(assoc 40 en)en))
     (setq en(subst'(41 . 1)(assoc 41 en)en))
     (entmod en)
   (setq n(1+ n))
   )
  (princ)
)

zdqwy19

张大锤 发表于 2015-11-29 18:27
是这样的我对个完全不通  在工作中我需要一步更改字体 但是这段命令 不是很方便 更改完不是我想要的字体这 ...

2. (defun c:tt()
   
3.     (setvar "cmdecho" 0)
   
4.     (princ "\n选择文字:")               
   
5.     (setq ss(SSGET  '((0 . "text"))))
   
6.     (setq n 0)
   
7.      (repeat (sslength ss)
   
8.       (setq ent(ssname ss n))
   
9.       (setq en(entget ent))
   
10.       (setq en(subst'( 7 . "MSP明朝")(assoc 7 en)en));CAD中必须有“MSP明朝”的字体
    
11. ;;;      (setq en(subst'(40 . 125)(assoc 40 en)en))
    
12. ;;;      (setq en(subst'(41 . 1)(assoc 41 en)en))
    
13.       (entmod en)
    
14.     (setq n(1+ n))
    
15.     )
    
16.    (princ)
    
17. )

(defun c:tt()<br />     (setvar "cmdecho" 0)<br />     (princ "\n选择文字:")                <br />     (setq ss(SSGET  '((0 . "text"))))<br />     (setq n 0)<br />      (repeat (sslength ss)<br />       (setq ent(ssname ss n))<br />       (setq en(entget ent))<br />       (setq en(subst'( 7 . "MSP明朝")(assoc 7 en)en));CAD中必须有“MSP明朝”的字体<br /> ;;;      (setq en(subst'(40 . 125)(assoc 40 en)en))<br /> ;;;      (setq en(subst'(41 . 1)(assoc 41 en)en))<br />       (entmod en)<br />     (setq n(1+ n))<br />     )<br />    (princ)<br /> )

xyp1964

2. ;; tt(字高对话框)
   
3. (defun c:tt ()
   
4.   (defun main-pro ()(princ th))
   
5.   (defun ap1 ()
   
6.     (xyp-Dcl-Gettile '("po1"))
   
7.     (set_tile "th" (nth (atoi po1) lst1))
   
8.   )
   
9.   (xyp-initSet '(th) '(100. "0"))
   
10.   (setq lst1 '("1.0" "1.5" "2.0" "3.0" "5.0" "10.0" "15.0" "20.0" "25.0" "30.0")
    
11.         ilst '(":row{"
    
12.                ("th" "文字高度" "real" "10")
    
13.                ("po1" "" "poplist" "lst1" "6" "(ap1)")
    
14.                "}"
    
15.               )
    
16.   )
    
17.   (if (= (xyp-Dcl-Init Ilst "【文字高度设置】" t) 1)
    
18.     (main-pro)
    
19.   )
    
20.   (princ)
    
21. )

;; tt(字高对话框)<br /> (defun c:tt ()<br />   (defun main-pro ()(princ th))<br />   (defun ap1 ()<br />     (xyp-Dcl-Gettile '("po1"))<br />     (set_tile "th" (nth (atoi po1) lst1))<br />   )<br />   (xyp-initSet '(th) '(100. "0"))<br />   (setq lst1 '("1.0" "1.5" "2.0" "3.0" "5.0" "10.0" "15.0" "20.0" "25.0" "30.0")<br />         ilst '(":row{"<br />                ("th" "文字高度" "real" "10")<br />                ("po1" "" "poplist" "lst1" "6" "(ap1)")<br />                "}"<br />               )<br />   )<br />   (if (= (xyp-Dcl-Init Ilst "【文字高度设置】" t) 1)<br />     (main-pro)<br />   )<br />   (princ)<br /> )

永不言弃

xyp1964 发表于 2015-11-30 03:09

EP就是好               

永不言弃

zdqwy19 发表于 2015-11-29 21:01

可以用的                    

sc邵程

来学习下，以防后面有用

张大锤

zdqwy19 发表于 2015-11-29 21:01

这个我试过 我输入完TT 它还是standard

zdqwy19

张大锤 发表于 2015-11-30 21:14
这个我试过 我输入完TT 它还是standard

你的字体文件有‘msp明朝‘的字体没有？

张大锤

zdqwy19 发表于 2015-11-30 21:19
你的字体文件有‘msp明朝‘的字体没有？

这个我还真没看...明天上班去看看...

永不言弃

zdqwy19 发表于 2015-11-30 21:19
你的字体文件有‘msp明朝‘的字体没有？

没有，百度一下，下载