解决在(command)里面不能使用NEW和OPEN的方法

newer

(command ".open" "test.dwg") 这样使用时没有效果的，如何才能使用呢？

使用 Automation Object Model

创建新图形

1. (vl-load-com)
   
2. (setq acadDocs (vla-Get-Documents (vlax-get-acad-object)))
   
3. (vla-add acadDocs)
   

(vl-load-com)<br /> (setq acadDocs (vla-Get-Documents (vlax-get-acad-object)))<br /> (vla-add acadDocs)<br />

下面是OPEN

游客，如果您要查看本帖隐藏内容请回复

说明的是，即使有同名文件已经打开，上面这个OPEN方法也会打开一个只读的同名文件，并执行OPEN后面的代码。

/db_自贡黄明儒_

下面的打开不提示字体替代，免得不断点击

1. ;;打开文件时，不出现字体选择对话框 自贡黄明儒 2013年2月5日
   
2. (defun C:MyOpen (/ *ACAD* DOCOBJ DWGNAME)
   
3.   (setq *ACAD* (vlax-get-acad-object))
   
4.   (setq DwgName (getfiled "打开文件" (getvar "dwgprefix") "dwg" 0))
   
5.   (setq DocObj (vla-open (vla-get-Documents *ACAD*) DwgName))
   
6.   (vla-Activate DocObj)
   
7.   (if *ACAD* (vlax-release-object *ACAD*))
   
8.   (princ)
   
9. )

;;打开文件时，不出现字体选择对话框 自贡黄明儒 2013年2月5日<br /> (defun C:MyOpen (/ *ACAD* DOCOBJ DWGNAME)<br />   (setq *ACAD* (vlax-get-acad-object))<br />   (setq DwgName (getfiled "打开文件" (getvar "dwgprefix") "dwg" 0))<br />   (setq DocObj (vla-open (vla-get-Documents *ACAD*) DwgName))<br />   (vla-Activate DocObj)<br />   (if *ACAD* (vlax-release-object *ACAD*))<br />   (princ)<br /> )

newer

/db_自贡黄明儒_ 发表于 2016-4-26 09:50
下面的打开不提示字体替代，免得不断点击

老黄有多少干活啊，多拿出分享点啊

Lisphk

/db_自贡黄明儒_ 发表于 2016-4-26 09:50
下面的打开不提示字体替代，免得不断点击

黄工，看你的代码里面 vlax-release-object ，什么时候用这个呢？ 是所有的VLA对象都需要，还是有一些不需要的？ 比如 vlax-ename-vla-object 这样的需要释放吗？

/db_自贡黄明儒_

Lisphk 发表于 2016-4-26 10:06
黄工，看你的代码里面 vlax-release-object ，什么时候用这个呢？ 是所有的VLA对象都需要，还是有一些不 ...

上次听高飞大师说，vlax创建的对象都要释放，不然内存在会越来越大。上面*acad*可以不释放，因为常用，这一招老大说的。

Lisphk

/db_自贡黄明儒_ 发表于 2016-4-26 10:22
上次听高飞大师说，vlax创建的对象都要释放，不然内存在会越来越大。上面*acad*可以不释放，因为常用，这 ...

那能不能自动收集下创建过的对象，然后一起释放呢？ 这样会省事吧

lucas3

向Ｎ版学习

819534890

回复学习学习

HLCAD

向Ｎ版学习，向Ｎ版致敬

biscxz

多多学习啊。、、、、

小陶

很久没上网了，今天过来看看，发现有好多精品！

PLgis

看看有何高招

lhtfhc

学习学习，谢谢分享

ayl1004

看看后面的代码

laiz3000

学习一下:(