明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 117|回复: 3

[提问] 关于命令提示显示乱码的问题(已经解决)

[复制链接]
发表于 昨天 19:31 | 显示全部楼层 |阅读模式
本帖最后由 9701519 于 2024-11-5 20:35 编辑

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


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

点评

好奇怪截图怎么不显示  发表于 昨天 19:32
发表于 昨天 20:25 | 显示全部楼层
保存的时候选择gbk编码试试
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-11-6 09:26 , Processed in 0.179576 second(s), 26 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表