使用command打不开对话框

一只傲娇喵

遇到一个很离谱的问题，在win11系统的电脑上，使用（command "color"）可以正常打开颜色选择框，在win7的电脑上，使用（command "color"）就不会弹框，版本都是2011是一样的，

（command "color"）打不开对话框只是特例，例如（command "style"）（command "insert"）这类都是打不开对话框，正常在命令行输入color可以打开，就是用代码打开的时候打不开

xj6019

(vla-sendcommand(vla-get-ActiveDocument (vlax-get-acad-object)) "color ")

你有种再说一遍

FILEDIA,1 ;显示“图形另存为”对话框
难道是这个系统变量的问题?

masterlong

(acad_colordlg colornum [flag])

一只傲娇喵

你有种再说一遍 发表于 2024-3-13 20:27
FILEDIA,1 ;显示“图形另存为”对话框
难道是这个系统变量的问题?

这个系统变量看了都是1,

一只傲娇喵

xj6019 发表于 2024-3-13 19:29
(vla-sendcommand(vla-get-ActiveDocument (vlax-get-acad-object)) "color ")

这个可以，大佬太强了，谢谢大佬

一只傲娇喵

masterlong 发表于 2024-3-13 21:15
(acad_colordlg colornum [flag])

谢谢大佬，这个可以弹出颜色框，但是我不止要弹出颜色对话框，还要弹出线型，样式什么的对话框

xyp1964

一只傲娇喵 发表于 2024-3-14 09:07
谢谢大佬，这个可以弹出颜色框，但是我不止要弹出颜色对话框，还要弹出线型，样式什么的对话框

(defun vsc(cname)(vla-sendcommand(vla-get-ActiveDocument (vlax-get-acad-object))(strcat cname " "))(princ))
(defun c:st()(vsc"style")(princ))
(defun c:co()(vsc"color")(princ))
(defun c:lt()(vsc"ltype")(princ))
(defun c:pj ()(if (setq ss (ssget))(command "pedit" "m" ss "" "j" "0" ""))(princ))

一只傲娇喵

xyp1964 发表于 2024-3-14 13:26
一只傲娇喵 发表于 2024-3-14 09:07
谢谢大佬，这个可以弹出颜色框，但是我不止要弹出颜色对话框，还要弹 ...

谢谢大佬，这个发送命令是异步的吧，能不能获取它的返回值呢