明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1319|回复: 5

[经验] 获取模型空间当前视觉样式的默认值

[复制链接]
发表于 2022-3-18 10:16:43 | 显示全部楼层 |阅读模式
      本自定义命令是为了解决这个帖子的问题即如何获取模型空间当前视觉样式的默认值(屏幕左上角视觉样式控件的显示值,二维线框、概念、隐藏等) 由于没有找到那个变量在控制设置它,也没能通过vla函数的方法实现,所以找到了这个比较绕的方法。如果哪位朋友找到了更好的方法,请跟帖说明,谢谢!(当然这个方法实际上可以用于获取命令行输入的默认值,如果没有更好的方法的话)
如何获取当前的视觉样式? - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz! (mjtd.com)
;自定义命令功能:获取模型空间当前视觉样式的默认值
;子函数                                 
;功能:获取上次最近命令执行时的默认输入值
(defun cmd_contnt( / MLHT WB ZBJ ZS)
;(setvar 'cmdecho 1)
(vl-cmdf "COPYHIST")
(setq wb(GetClipboard))
(setq zs(+ 2(-(vl-string-position (ascii ">")wb)(setq zbj(vl-string-position (ascii "<")wb)))))
(substr wb zbj zs)
)
;函数功能:清空命令行(来自网络)
(defun clear-cmdline()
(repeat(1+(atoi(getenv "CmdHistLines")))
(terpri)
)
(princ)
)
;;;从剪贴板拷贝文本(来自网络)
(defun GetClipboard(/ Clip_board text)
(setq Clip_board (Vlax-Get-Property (Vlax-Get (vlax-create-object "htmlfile") 'ParentWindow) 'ClipboardData))
(setq text (Vlax-Invoke Clip_board 'GetData "text"))
  (vlax-release-object Clip_board)
  text
)
(defun c:ccc( /)
   (clear-cmdline)
   (vl-cmdf "vscurrent" "");已默认值输入命令
   (cmd_contnt)
)
(princ "\n 加载成功 功能:取模型空间当前视觉样式的默认值;作者:ygs羊羊羊;2022年3月")

(princ)
















































"觉得好,就打赏"
还没有人打赏,支持一下
发表于 2022-3-19 15:57:29 | 显示全部楼层
有对应的方法
 楼主| 发表于 2022-3-20 08:40:34 | 显示全部楼层

版主大佬能否说下具体思路,谢谢!
发表于 2022-3-20 09:34:06 | 显示全部楼层
感谢 guosheyang 提供了一个折衷的方法。
提取出来的是中文字符,通过 cond 条件,也可以能转换成相对应的英文字符。
 楼主| 发表于 2022-3-20 12:08:50 | 显示全部楼层
mokson 发表于 2022-3-20 09:34
感谢 guosheyang 提供了一个折衷的方法。
提取出来的是中文字符,通过 cond 条件,也可以能转换成相对应的 ...

嗯 没有其他好办法下  可以用 也希望大佬们能提供更好的方法
发表于 2024-5-9 20:04:30 | 显示全部楼层

大师,请分享一下方法,谢谢
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-11-15 06:48 , Processed in 0.164238 second(s), 25 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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