怎样实现点哪里就修剪哪里？

tukuitk · 发表于 2006-12-5 09:34:00

请问各位大侠，如我图中所示，我想实现点击哪一段就剪切哪一段，我写了一下，但没有成功，请指点一下，谢谢！

(defun c:ttr (/ el)
(setq el (entsel))
(command "_.trim" "" (car el) (cons (car el) '(0 141)) "")
(command "_.trim" "" (entlast) (cons (entlast) '(0 86)) "")
(command "_.trim" "" (entlast) (cons (entlast) '(0 56)) "")
)

tukuitk · 发表于 2006-12-5 09:37:00

我想修剪第1、3、4段。

phoenixdjq · 发表于 2006-12-5 10:36:00

你可以直接用trim命令呀,编个程序跟用trim命令都一样需要点.也不方便呀

你可以这样用

1.command:trim

2.选择对象:此处直接回车

3.选择要剪切的对象就可以了

如果你想选择多线段的话,在这步加"f"就可以了

tukuitk · 发表于 2006-12-5 13:58:00

不能用交互的方式，Ent和Point都是程序判断并给出的，这里我只是写个例子，所以用了entsel 。

ZZXXQQ · 发表于 2006-12-5 14:51:00

(DEFUN C:TTR ()

(COMMAND "._TRIM" "")

(WHILE (NOT (ZEROP (GETVAR "CMDACTIVE"))) (COMMAND PAUSE))

(PRINC)

)

tukuitk · 发表于 2006-12-5 15:39:00

谢谢楼上两位！但我不要交互的方式。我是在程序中假设已经知道图元名和点表，想用它们来修剪对象。

ZZXXQQ · 发表于 2006-12-6 08:39:00

这样试试

(defun c:ttr (/ el)
   (setq el (entsel))
   (command "_.trim" "" (llist 0 141) "")
   (command "_.trim" "" (llist 0 86) "")
   (command "_.trim" "" (llist 0 56) "")
)

tukuitk · 发表于 2006-12-6 18:55:00

呵呵，llist是什么函数？如果是list的话，这个程序不正确。

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

怎样实现点哪里就修剪哪里？

本帖子中包含更多资源