[LISP函数]：我在acad2002下用lisp语句定义尺寸样式名称时遇到了麻烦

小坛子 · 发表于 2002-10-9 16:47:46

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

我在acad2002下用lisp语句定义尺寸样式名称时遇到了麻烦。多次调用定义尺寸样式的程序会出错误。因为在acad2002下尺寸样式名称不允许重定义，显示如下：

该名称已在使用。是否重新定义？<N>: Y
 无效的选项关键字。
该名称已在使用。是否重新定义？<N>: N
无效的选项关键字。
 该名称已在使用。是否重新定义？<N>: 回车键

 则完全退出

因此我请教各位高手，在lisp程序中实现：
1、如何获取所有的尺寸样式名称（用(getvar "dimstyle")只能得到当前的名称）；
2、如何删除已经有的尺寸样式名称。

XDSoft · 发表于 2002-10-9 16:56:24

最初由小坛子发布
[B]我在acad2002下用lisp语句定义尺寸样式名称时遇到了麻烦。多次调用定义尺寸样式的程序会出错误。因为在acad2002下尺寸样式名称不允许重定义，显示如下：

该名称已在使用。是否重新定义？<N>: Y
无效的选项?.. [/B]

可以重新定义，你试验输入“是”，看看如何。

其实，编程里面，可以不让提示出来的，默认都是Y。

使用系统变量expert 设置成5

[FONT=courier new]
(setq oldexpert (getvar "expert"))
(setvar "expert" 5)
然后加你的代码
.........................
(setvar "expert" oldexpert)
[/FONT]

登录/注册后可看大图

小坛子 · 发表于 2002-10-9 17:49:47

谢谢您，可是我试过了，expert不适用于dimstyle的“保存”项!

XDSoft · 发表于 2002-10-9 18:04:11

最初由小坛子发布
[B]谢谢您，可是我试过了，expert不适用于dimstyle的“保存”项! [/B]

可以，看到上面的图片帮助里面的 5 了吗？就是对DIMSTYLE的。

lijiao · 发表于 2002-10-11 08:26:41

用Vlsp或VBA完全可以获取所有的尺寸样式名称和删除已经有的尺寸样式名称。

小坛子 · 发表于 2002-10-11 08:51:51

您能否介绍实现此功能的vlisp的函数

newer · 发表于 2002-10-12 13:46:55

最初由小坛子发布
[B]您能否介绍实现此功能的vlisp的函数 [/B]

ActiveX提供了尺寸样式的方法，有增加、创建等等，可以看看联机帮助，里面有例子代码。

This example creates three new dimension styles and copies the current settings for the document, a given dimension style, and a given dimension to each new dimension style respectively. By following the appropriate setup before running this example, you will find that different dimension styles have been created.
Create a new drawing and make it the active drawing.
Create a linear dimension in the new drawing. This dimension should be the only object in the drawing.
Using the OPM, change the color of the dimension line to yellow.
Change theDIMCLRD system variable to 5 (blue).
Run the following example:
Sub Ch5_CopyDimStyles()
Dim newStyle1 As AcadDimStyle
Dim newStyle2 As AcadDimStyle
Dim newStyle3 As AcadDimStyle
Set newStyle1 = ThisDrawing.DimStyles.Add _
("Style 1 copied from a dim")
Call newStyle1.CopyFrom(ThisDrawing.ModelSpace(0))
Set newStyle2 = ThisDrawing.DimStyles.Add _
("Style 2 copied from Style 1")
Call newStyle2.CopyFrom(ThisDrawing.DimStyles.Item _
("Style 1 copied from a dim"))
Set newStyle2 = ThisDrawing.DimStyles.Add _
("Style 3 copied from the running drawing values")
Call newStyle2.CopyFrom(ThisDrawing)
End Sub
Open theDIMSTYLE dialog. You should now have 3 dimension styles listed. Style 1 should have a yellow dimension line. Style 2 should be the same as Style 1. Style 3 should have a blue dimension line.

This example creates three new dimension styles and copies the current settings for the document, a given dimension style, and a given dimension to each new dimension style respectively. By following the appropriate setup before running this example, you will find that different dimension styles have been created. 
 
Create a new drawing and make it the active drawing. 
Create a linear dimension in the new drawing. This dimension should be the only object in the drawing. 
Using the OPM, change the color of the dimension line to yellow. 
Change theDIMCLRD system variable to 5 (blue). 
Run the following example: 
Sub Ch5_CopyDimStyles() 
    Dim newStyle1 As AcadDimStyle 
    Dim newStyle2 As AcadDimStyle 
    Dim newStyle3 As AcadDimStyle 
    
    Set newStyle1 = ThisDrawing.DimStyles.Add _ 
                    ("Style 1 copied from a dim") 
    Call newStyle1.CopyFrom(ThisDrawing.ModelSpace(0)) 
    
    Set newStyle2 = ThisDrawing.DimStyles.Add _ 
                    ("Style 2 copied from Style 1") 
    Call newStyle2.CopyFrom(ThisDrawing.DimStyles.Item _ 
                    ("Style 1 copied from a dim")) 
                     
    Set newStyle2 = ThisDrawing.DimStyles.Add _ 
                    ("Style 3 copied from the running drawing values") 
    Call newStyle2.CopyFrom(ThisDrawing) 
End Sub 
Open theDIMSTYLE dialog. You should now have 3 dimension styles listed. Style 1 should have a yellow dimension line. Style 2 should be the same as Style 1. Style 3 should have a blue dimension line.

lijiao · 发表于 2002-10-14 09:03:37

如NEWER讲的，看看联机帮助，什么都明白了，我就是这么过来的。

gchen · 发表于 2002-10-14 18:12:52

用上述函数可以得到所有已经定义的dimstyle。重新定义有什么好处呢？直接修改不可以吗？

gchen · 发表于 2002-10-14 18:15:12

(tblsearch "dimstyle" dimstylename)

XDSoft · 发表于 2002-10-14 18:24:45

最初由 gchen 发布
[B]用上述函数可以得到所有已经定义的dimstyle。重新定义有什么好处呢？直接修改不可以吗？ [/B]

修改后，要保存，保存的时候，就会出现那个提示了。

EXPERT设置5以后，这个提示自动默认输入Y了。这个是最好的处理办法。

小坛子 · 发表于 2002-10-15 09:14:55

tblsearch是个方便的函数，我的问题解决了。

XDSoft · 发表于 2002-10-15 11:59:37

最初由小坛子发布
[B]tblsearch是个方便的函数，我的问题解决了。 [/B]

把解决后的函数完整代码贴论坛吧，谢谢！

小坛子 · 发表于 2002-10-16 10:35:48

在AutoCAD R14 下使用EXpert=5 很好，只需：
(command "dimstyle" "s" "style")
即可
但是expert=5在ACAD r2000和R2002下无效，我咨询过Autodesk，回复这是个"bug"，后续版本将修改。

我这样做:
(setq ssdim (tblsearch "dimstyle" "style"))
(if ssdim          ;;;这个判断是确定dimstyle集合中有无"style"
  (command "dimstyle" "s" "style" "y")
  (command "dimstyle" "s" "style")
)

或者使用Subst和entmod
(setq ssdim
  (subst (cons 40 100)
(assoc 40ssdim )             Changes the 全局比例
ssdim
  )
)
(entmod ed)
不过这个我没试过

账号		自动登录	找回密码
密码			立即注册

[LISP函数]：我在acad2002下用lisp语句定义尺寸样式名称时遇到了麻烦

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

Re: [LISP函数]：[LISP函数]：我在acad2002下用lisp语句定义尺寸样式名称时遇到了麻烦

可是……

Re: 可是……

谢谢！

Re: 谢谢！

谢谢，

Re: 谢谢，

我是这样做的：