明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 2313|回复: 16

[提问] LISP是否能控制OPTIONS设置内容???

[复制链接]
发表于 2018-7-18 16:54 | 显示全部楼层 |阅读模式
本帖最后由 124803430 于 2018-7-18 16:58 编辑

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

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




本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
发表于 2018-10-11 16:27 | 显示全部楼层
本帖最后由 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 ;无应用方式
  1. (vla-get-LayoutDisplayPaperShadow display ) ; 读取阴影值
  2. ;返回 0
  3. (vla-put-LayoutDisplayPaperShadow display -1 ) ; 设置阴影值-开启=-1
  4. (vla-regen (vla-get-activedocument(vlax-get-acad-object)) 0 ) ;更新

回复 支持 1 反对 0

使用道具 举报

发表于 2018-7-19 07:54 | 显示全部楼层
默认保存格式设置为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

点评

这个不错,学习!  发表于 2021-5-22 08:34
回复 支持 1 反对 0

使用道具 举报

发表于 2018-7-19 12:10 | 显示全部楼层
这个可以的。谢谢
发表于 2018-7-19 14:39 | 显示全部楼层
USER2128 发表于 2018-7-19 07:54
默认保存格式设置为2004(以下请连括弧一起输入到命令行)
(setenv "DefaultFormatForSave" "24")
数字的含 ...

请问布局颜色用lisp可以控制么
发表于 2018-8-2 23:02 | 显示全部楼层
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")
发表于 2018-8-3 09:07 | 显示全部楼层
我试试,有问题再来请教
发表于 2018-8-3 10:10 | 显示全部楼层
楼上的,好变量,多谢~还有没有更多啊……
发表于 2018-9-2 12:06 | 显示全部楼层
怎样获取”显示图纸背景“——“显示图纸阴影”
发表于 2018-9-29 08:59 | 显示全部楼层
支持一下,还有没有高手们知道得更多更全啊?谢谢!
发表于 2018-10-1 16:38 | 显示全部楼层
  1. (defun c:tt (/ pre)
  2.   (setq pre (vla-get-preferences (vlax-get-acad-object)))
  3.   (foreach x '(display drafting files opensave output profiles selection system user)
  4.     (terpri)
  5.     (vlax-dump-object (vlax-get pre x) t)
  6.     )
  7.   (textscr)
  8.   (princ)
  9.   )
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-3-29 19:44 , Processed in 0.440397 second(s), 32 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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