124803430 发表于 2018-7-18 16:54:43

LISP是否能控制OPTIONS设置内容？？？

本帖最后由 124803430 于 2018-7-18 16:58 编辑

我想用LISP设置保存文件的格式，不需要输入op命令

我想做一个选项设置标准化的文件




lisperado 发表于 2018-10-11 16:27:32

本帖最后由 lisperado 于 2018-10-11 16:28 编辑

之前只表达思路以参考，其它都以同样方式让自己去研究
因为有些参数我也搞不懂怎样设置 。。。

先用vlax-dump-object查询字典 activeX方式（method）或属性 （property）
（RO） - 只读
vla- 应用方式（如有）
vla-get- 读取参数
vla-put- 设定参数

举例：
(setq display (vla-get-display(vla-get-preferences (vlax-get-acad-object) ) ) ) ；显示之文件库
(vlax-dump-object display t) ；查询相关字典

; IAcadPreferencesDisplay: This object contains the options from the Display tab on the Options dialog
; Property values:
;   Application (RO) = #<VLA-OBJECT IAcadApplication 00d077b4>
;   AutoTrackingVecColor = unsupported result type: 19
;   CursorSize = 5
;   DisplayLayoutTabs = -1
;   DisplayScreenMenu = 0
;   DisplayScrollBars = 0
;   DockedVisibleLines = 2
;   GraphicsWinLayoutBackgrndColor = unsupported result type: 19
;   GraphicsWinModelBackgrndColor = unsupported result type: 19
;   HistoryLines = 400
;   ImageFrameHighlight = 0
;   LayoutCreateViewport = -1
;   LayoutCrosshairColor = unsupported result type: 19
;   LayoutDisplayMargins = -1
;   LayoutDisplayPaper = -1
;   LayoutDisplayPaperShadow = 0
;   LayoutShowPlotSetup = 0
;   MaxAutoCADWindow = 0
;   ModelCrosshairColor = unsupported result type: 19
;   ShowRasterImage = 0
;   TextFont = "Courier New"
;   TextFontSize = 10
;   TextFontStyle = 0
;   TextWinBackgrndColor = unsupported result type: 19
;   TextWinTextColor = unsupported result type: 19
;   TrueColorImages = -1
;   XRefFadeIntensity = 50
; No methods ；无应用方式

(vla-get-LayoutDisplayPaperShadow display ) ； 读取阴影值
；返回 0
(vla-put-LayoutDisplayPaperShadow display -1 ) ； 设置阴影值-开启=-1
(vla-regen (vla-get-activedocument(vlax-get-acad-object)) 0 ) ；更新

USER2128 发表于 2018-7-19 07:54:53

默认保存格式设置为2004(以下请连括弧一起输入到命令行)
(setenv "DefaultFormatForSave" "24")
数字的含义:
"48" - dwg 2010
"36" - dwg 2007
"24" - dwg 2004
"12" - dwg 2000
"8" - dwg R14
"50" - dwt
"49" - dxf 2010
"37" - dxf 2007
"25" - dxf 2004
"13" - dxf 2000
"1" - dxf R12

前生 发表于 2018-7-19 12:10:45

这个可以的。谢谢

yangchao2005090 发表于 2018-7-19 14:39:35

USER2128 发表于 2018-7-19 07:54
默认保存格式设置为2004(以下请连括弧一起输入到命令行)
(setenv "DefaultFormatForSave" "24")
数字的含 ...

请问布局颜色用lisp可以控制么

bzhjl 发表于 2018-8-2 23:02:34

yangchao2005090 发表于 2018-7-19 14:39
请问布局颜色用lisp可以控制么

取得背景颜色：
(getenv "Background")
取得布局背景颜色：
(getenv "Layout background")
取得块编辑器背景颜色：
(getenv "BEditBackground")

设置背景颜色：
(setenv "Background" "3156001")
设置布局背景颜色：
(setenv "Layout background" "3156001")
设置块编辑器背景颜色：
(setenv "BEditBackground" "3156001")

设置十字光标颜色：
(setenv "XhairPickboxEtc" "10263552")
设置布局十字光标颜色：
(setenv "LayoutXhairPickboxEtc" "10263552")
设置块编辑器十字光标颜色：
(setenv "BEdit Xhair color" "10263552")

oistre 发表于 2018-8-3 09:07:25

我试试，有问题再来请教

andyhua 发表于 2018-8-3 10:10:54

楼上的，好变量，多谢~还有没有更多啊……

yfywk 发表于 2018-9-2 12:06:04

怎样获取”显示图纸背景“——“显示图纸阴影”

andyhua 发表于 2018-9-29 08:59:36

支持一下，还有没有高手们知道得更多更全啊？谢谢！

lisperado 发表于 2018-10-1 16:38:43

(defun c:tt (/ pre)
(setq pre (vla-get-preferences (vlax-get-acad-object)))
(foreach x '(display drafting files opensave output profiles selection system user)
    (terpri)
    (vlax-dump-object (vlax-get pre x) t)
    )
(textscr)
(princ)
)
页: [1] 2
查看完整版本: LISP是否能控制OPTIONS设置内容？？？