[求助]：如何编程？

scx · 发表于 2003-1-16 15:10:55

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

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

×

用trim 命令剪切线时，如何编程确定被剪切端。
ex:(command "trim" "" ent1 "" ent2 "") 不能明确指定被剪切端，望各位大虾赐教。

zhynt · 发表于 2003-1-16 15:28:34

第一个变量为一实体是肯定的，第二的变量应该是被剪实体上的一个点，具体点的位置应该由前面的程序求出来。

scx · 发表于 2003-1-16 16:12:26

谢谢，不过，我的意思是被trim线如用mouse点，则点那边就trim那边，但编程时不知如何确定被trim边。

zhynt · 发表于 2003-1-16 16:19:15

是啊，让电脑来判断哪边该剪哪边不该剪是间很难的事，不过一般来说被剪掉的都是较短的那边（也不全是），让电脑判断哪边短还是可以的。

XDSoft · 发表于 2003-1-16 16:41:04

最初由 scx 发布
[B]谢谢，不过，我的意思是被trim线如用mouse点，则点那边就trim那边，但编程时不知如何确定被trim边。 [/B]

裁减端和要裁减哪个实体用这个方法：

(list ent pt) 作为鼠标点的参数，所有ACAD的曲线操作，比如BREAK等等，都要用实体名和点组成的表作为参数（就是 entsel 返回的格式），来判断对哪个实体操作和方向。

比如你可以这样：

<normalfont>
(defun c:test (/ ent1 ent2)
(if (and
(setq ent1 (car (entsel "\n拾取裁减边<退出>:")))
(progn
(redraw ent1 3)
t
)
(setq ent2 (entsel "\n拾取裁减的部分<退出>:"))
)
(progn
(command "trim" ent1 "" ent2 "")
)
)
(princ)
)
</font>

cssanhui · 发表于 2003-1-16 16:49:06

除非必要，一般来说，编程时尽量不用TRIM。你可以求出ent1和ent2的交点，参照zhynt的说法，确定ent2实体距交点较短的一侧端点，用entmod更新实体数据，使ent2的端点缩短到交点处。trim命令本身就这么干的。
若程序中要trim的实体不多，可考虑让用户自己选择用下面的语句：
(command "trim" ent1 "" pause)

斑竹的方法就是高，简单、明了。

scx · 发表于 2003-1-17 08:37:53

非常感谢各大虾的指点，我再试试。

panzhongw · 发表于 2003-3-29 13:56:17

可以参考CBX书中使用的“双元表”！

ll_j · 发表于 2003-3-31 18:55:08

acad中像裁剪、延伸等命令都需要在选择实体的同时得到一个点（就像entsel函数），单单指定实体是不行的，下面是早期Autolisp书本上的一个例题，解决多实体裁剪（早期的trim功能没有现在强），你可以参考：

(defun c:Mtr(/ cutedg ssss len i side)
(prompt "select cuting edge...")
(setq cutedg (ssget))
(prompt "select objects to trim:")
(setq
ssss(ssget)
len(sslength ssss)
i -1
side(getpoint "pick side to trim:")
)
(command "trim" cutedg ""
(repeat len
(setq i(+ i 1))
(command (list (ssname ssss i) side))
)
)
(princ "\nmtrim is done.")
(prin1)
)

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

[求助] [求助]：如何编程？

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

相关帖子

可以这样。。。

浏览过的版块