[求助]：有没有使得两个成锐角的相交线变成直角的命令

东施啊啦 · 发表于 2006-5-22 14:31:30

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

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

×

各位大侠，偶是做规划的，常常要做平面建筑的布局。在画的时候常常要变化方向角度，我一般用usc命令，无奈有时候比较麻烦。偶老板说他曾经用过一个命令，就是在打开垂直按钮的同时执行一个命令，先点击一个线条再点击一条线，然后就可以使得两个成锐角的相交线变成直角。苍天啊，这个是多么伟大的命令啊，可是偶不会啊：（各位高手谁可以不吝赐教那？？不胜感激～～～先谢过各位了！！！

vacancy · 发表于 2006-5-22 15:13:31

你老板蒙你呢！

ycao · 发表于 2006-5-22 15:43:48

cad里好像没有该命令，你老板用的命令估计是经过二次开发的。

东施啊啦 · 发表于 2006-5-22 15:52:44

我也问了她是不是load了什么插件之类的东西，他说不是，他是比较保守的人，而且她说她就用原版cad 不用天正、中望什么的东西。而且她以前公司有员工用过，只不过是找不到那人电话问不到了。我现在也想推翻她，可是我没有证据啊，555～～～～所以只有求高手了！！我估计不是常用命令，应该是内部命令吧，就像cal一样高深的东西～～

正经鱼 · 发表于 2006-5-22 16:19:30

利用对其命令，和追踪，也是可以办到的

weng001 · 发表于 2006-5-22 20:54:25

cad里好像没有该命令，你老板用的命令估计是经过二次开发的。

sb1113 · 发表于 2006-5-22 21:02:37

锐角好成直角的？坐标那不是都变了啊

andyhua5240 · 发表于 2006-5-22 22:24:02

最初由东施啊啦发布
[B]各位大侠，偶是做规划的，常常要做平面建筑的布局。在画的时候常常要变化方向角度，我一般用usc命令，无奈有时候比较麻烦。偶老板说他曾经用过一个命令，就是在打开垂直按钮的同时执行一个命令，先点击一个线条再点?.. [/B]

不知道楼主是不是要这样的效果，偶对lisp懂一点点的小皮毛，献丑了。还请高手们指教？

[FONT=courier new]
(defun c:test ()
(setq s1 (ssget))
(command "ucs" "e" s1)
(setq ol (getvar "orthomode"))
(setvar "orthomode" 1)
(setq s2 (ssget))
(command "change" s2 "")
(while (/= 0 (getvar "cmdactive"))(command pause))
(setvar "orthomode" ol)
(command "ucs" "p")
)
[/FONT]

hongcgi · 发表于 2006-5-22 22:38:22

垂直按钮是不是指正交按钮呀？

vacancy · 发表于 2006-5-23 09:28:45

8楼提供的工具不错，就是缺少些提示。

东施啊啦 · 发表于 2006-5-23 09:35:23

好像没有8楼大侠说的那么复杂～～～

dandee · 发表于 2006-5-24 06:00:22

看不明白楼主想实现怎么样的功能。
是不是

先点击第一条直线，为基线，再点击第二条线 (第二条线是与第一条线相交的)
让第二条线垂直于第一条线?

东施啊啦 · 发表于 2006-5-25 18:06:10

最初由 dandee 发布
[B]看不明白楼主想实现怎么样的功能。
是不是

先点击第一条直线，为基线，再点击第二条线 (第二条线是与第一条线相交的)
让第二条线垂直于第一条线? [/B]

对对对，就是这个意思。

dandee · 发表于 2006-5-25 20:50:33

更新 --->
下载 sz.lsp (为源代码 )
加载后，执行 sz 就能实现你要的功能

过程提示 1：选择第一条直线
      2：选择第二条直线

效果：第二条直线自动旋转与第一条线成垂直状态，

其旋转点为二线的相交点  以及两线延伸线的交点。

如果两直线不相交，会提示 no x point  (没有相交点)

本程序只支持line.

wp9777 · 发表于 2006-5-26 08:31:09

用旋转命令啊

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

[求助]：有没有使得两个成锐角的相交线变成直角的命令

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

相关帖子

Re: [求助]：一个可一变腐朽为神奇的命令～～～