【求助】CAD2010中用LISP调用FILLET命令的困惑

wangfq332

LISP代码如下：

(defun c:F () (command "FILLET" "U") (princ))         ;连续倒圆角

该代码在CAD2010下执行时若要先设定圆角半径（如输入“F”→“R”→“5”），则设定完半径后会退出FILLET，无法返回。

但是同样的LISP代码，在CAD2008下执行的话设定圆角半径后能自动返回FILLET命令而不会退出。

倒角“CHAMFER”也有类似的问题。

请问如何让CAD2010执行上面的LISP代码时能像CAD2008那样呢？

ZZXXQQ

在程序中这两个命令是按旧版命令格式运行的。这是为了程序向低版本兼容。
旧版执行这两个命令时，如果设定圆角半径或倒角尺寸后会退出命令。

英雄无敌

这可能要用程序来实现，好像R14、2004等都有这样的问题的，你可以用entsel来模拟选择，用initget来判断是不是输入“R”，如果你对编程有一点了解的话，应该可以做出来的，不知道能不能在CAD里面设置，这没有试过

高级用户

(defun c:aa( / )
(setq r (getreal "\n半径：") )
(setvar "filletrad" r)
(command "fillet" "u")
(princ)
)

wangfq332

请问用LISP调用和直接输入“fillet”的提示为何不一样？？(AutoCAD 2010)

命令: f
选择第一个对象或 [放弃(N)/多段线(P)/半径(R)/修剪(T)/多个(U)]: 

命令: fillet
当前设置: 模式 = 修剪，半径 = 5.0000
选择第一个对象或 [放弃(U)/多段线(P)/半径(R)/修剪(T)/多个(M)]:

ccid_x

好像CAD就是这样的，FILLET和CHA两个命令在调用的时候，输入R或边长后会自动返回，我的做法是再调用一次

(defun c:r1() (command "fillet" "r" "1" "fillet"))

andyhua

http://www.autodesk.com.cn/adsk/ ... 359&id=13617862
在使用AutoLISP时可以在命令前使用InitCommandVersion功能来指定哪个版本的AutoLISP命令将被使用。 InitCommandVersion 功能的语法如下：

(InitCommandVersion <version_number>)

其中，<version_number〉控制命令在执行时哪个版本的命令将会被调用。

下面的例子显示了如何调用：

FILFET命令版本１。

(InitCommandVersion 1)
(command “fillet”)

调用FILFET命令版本１将会显示以下的命令提示符：

Current settings: Mode = TRIM, Radius = 0.1000
Select first object or [uNdo/Polyline/Radius/Trim/mUltiple]:

版本２是FILFET命令的第二版（或者说，当前的最新版）相当如在宏命令中使用^R控制符。

调用FILFET命令版本２将会显示以下的命令提示符：

Current settings: Mode = TRIM, Radius = 0.1000
Select first object or [Undo/Polyline/Radius/Trim/Multiple]:

虽然这个帖子中告诉了为什么有差异，差异怎么改？但是我还是不会，希望好心人可以帮忙把楼上的程序改改。改成直接可以在CAD2009以上的版本中，可以多重的倒角了。
谢谢！

andyhua

(defun c:tt()
  (initcommandversion 2)(command ".fillet" "m")
  (princ)
)
这样就可以了。

wangfq332

andyhua 发表于 2011-9-2 09:25
(defun c:tt()
  (initcommandversion 2)(command ".fillet" "m")
  (princ)

这么久了还有热心人回复，谢谢！