关于命令提示显示乱码的问题（已经解决）

9701519

为什么运行程序后 指定插入点 命令提示栏显示乱码（鎸囧畾鎻掑叆鐐?）


代码如下：

2. (defun c:tt (/ ss pt doc bn blks i obj lst);;;快速做块
   
3.   (if (and (setq ss (ssget))
   
4.            (setq pt (getpoint "\n指定插入点: "))
   
5.       )
   
6.     (progn
   
7.       (setq doc         (vla-get-activedocument (vlax-get-acad-object))
   
8.             blks (vla-get-blocks doc)
   
9.             pt         (vlax-3d-point (trans pt 1 0))
   
10.             bn         (strcat "LZ_" (rtos (* (getvar 'cdate) 1e6) 2 0))
    
11.             mps         (if (= (getvar 'cvport) 1)
    
12.                    (vla-get-paperspace doc)
    
13.                    (vla-get-modelspace doc)
    
14.                  )
    
15.             blk         (vla-add blks pt bn)
    
16.             i         (sslength ss)
    
17.       )
    
18.       (repeat i
    
19.         (setq i          (1- i)
    
20.               obj (vlax-ename->vla-object (ssname ss i))
    
21.               lst (cons obj lst)
    
22.         )
    
23.         (vla-put-Lineweight obj acLnWtByBlock);;;;;;;;;;;线宽设为随块
    
24.       )
    
25.       (vlax-invoke doc 'copyobjects lst blk)
    
26.       (vla-insertblock mps pt bn 1 1 1 0)
    
27.       (mapcar 'vla-delete lst)
    
28.     )
    
29.   )
    
30.   (princ)
    
31. )

(defun c:tt (/ ss pt doc bn blks i obj lst);;;快速做块<br />   (if (and (setq ss (ssget))<br />            (setq pt (getpoint "\n指定插入点: "))<br />       )<br />     (progn<br />       (setq doc         (vla-get-activedocument (vlax-get-acad-object))<br />             blks (vla-get-blocks doc)<br />             pt         (vlax-3d-point (trans pt 1 0))<br />             bn         (strcat "LZ_" (rtos (* (getvar 'cdate) 1e6) 2 0))<br />             mps         (if (= (getvar 'cvport) 1)<br />                    (vla-get-paperspace doc)<br />                    (vla-get-modelspace doc)<br />                  )<br />             blk         (vla-add blks pt bn)<br />             i         (sslength ss)<br />       )<br />       (repeat i<br />         (setq i          (1- i)<br />               obj (vlax-ename->vla-object (ssname ss i))<br />               lst (cons obj lst)<br />         )<br />         (vla-put-Lineweight obj acLnWtByBlock);;;;;;;;;;;线宽设为随块<br />       )<br />       (vlax-invoke doc 'copyobjects lst blk)<br />       (vla-insertblock mps pt bn 1 1 1 0)<br />       (mapcar 'vla-delete lst)<br />     )<br />   )<br />   (princ)<br /> )

szhorse

保存的时候选择gbk编码试试

9701519

可以了！！！！！！！