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

guosheyang

      本自定义命令是为了解决这个帖子的问题即如何获取模型空间当前视觉样式的默认值（屏幕左上角视觉样式控件的显示值，二维线框、概念、隐藏等） 由于没有找到那个变量在控制设置它，也没能通过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)

e2002

有对应的方法

guosheyang

e2002 发表于 2022-3-19 15:57
有对应的方法

版主大佬能否说下具体思路，谢谢！

mokson

感谢 guosheyang 提供了一个折衷的方法。
提取出来的是中文字符，通过 cond 条件，也可以能转换成相对应的英文字符。

guosheyang

mokson 发表于 2022-3-20 09:34
感谢 guosheyang 提供了一个折衷的方法。
提取出来的是中文字符，通过 cond 条件，也可以能转换成相对应的 ...

嗯 没有其他好办法下  可以用 也希望大佬们能提供更好的方法

pzweng

e2002 发表于 2022-3-19 15:57
有对应的方法

大师，请分享一下方法，谢谢