cad2004可否用cad2006里的修剪命令啊？

56216349 · 发表于 2007-3-22 14:07:00

用惯了cad2004，换了cad2006感觉反应很慢。

所以想在cad2004里可不可以实现cad2006里修剪实体时可框选的命令啊

请高手指点一下！

我自己做了个lisp，但是不是很理想。请高手给看看。感谢！

(defun C:ttr ()
(setvar "cmdecho" 0)
(princ "选择裁剪边界")
(setq jianbian (ssget))
(princ "选择要裁剪的实体")
(setq jianti (ssget))
(command "trim" jianbian "" jianti "")
(setq hhan nil)
(setq jian nil)
(setvar "cmdecho" 1)
(prin1))

caoyin · 发表于 2007-3-22 14:43:00

本帖最后由作者于 2007-3-22 14:47:08 编辑

;;临时写一个，我没装acad2004，你自己测试一下

;;想在获取 ss2 时实现实时修剪，要重新写相关的函数。仅供你参考

;;获取 ss2 时没考虑单选

(defun c:tr (/ v1 v2 ss1 ss2)
(setq v1 (getvar "cmdecho"))
(setq v2 (getvar "osmode"))
(setvar "cmdecho" 0)
(setvar "osmode" 0)
(princ "\n选择对象或 <全部选择>... ")
(setq ss1 (ssget))
(princ "\n选择要修剪的对象... ")
(setq ss2 (ssget))
(if ss2
    (progn
      (setq lst (mapcar 'cadr (cdr (assoc -1 (ssnamex ss2))))
            lst (append lst (list (car lst)))
      )
      (if ss1
        (command "_.trim" ss1 "_f")
        (command "_.trim" "" "_f")
      )
      (apply 'command lst)
      (command "" "")
    )
)
(setvar "cmdecho" v1)
(setvar "osmode" v2)
(princ)
)

56216349 · 发表于 2007-3-22 16:26:00

非常感谢，

但是还是不行，在“选择要修剪的对象...”后，依然选择的是修剪边，而不是要修剪的实体。

caoyin · 发表于 2007-3-23 12:30:00

改了一下

caoyin · 发表于 2007-3-23 12:31:00

本帖最后由作者于 2007-3-23 12:59:35 编辑

注：如果你安装ET工具，把上面的 lt:error-init 改成acet-error-init，lt::error-restore 改成acet-error-restore，否则你要

加上 (setvar "osmode" 0) ,否则执行会有问题

56216349 · 发表于 2007-3-23 12:55:00

非常感谢caoyin兄的帮助。我试了一下，效果还不错。谢谢了

至于“超级剪切”我加载时出现了：

xtr ; 错误: no function definition: LONGFIN:COMSTA

不知怎么回事啊？

56216349 · 发表于 2007-3-23 13:02:00

再问个问题啊

延伸命令是不是也可以啊？

caoyin · 发表于 2007-3-23 13:05:00

本帖最后由作者于 2007-3-23 13:17:08 编辑

狂刀的，我重新发

caoyin · 发表于 2007-3-23 13:06:00

剪切，道理是一样的，你自己改改看

56216349 · 发表于 2007-3-23 13:13:00

谢谢你

看来我要多学学了。

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

cad2004可否用cad2006里的修剪命令啊？

本帖子中包含更多资源

本帖子中包含更多资源