[求助]：如何过一点画一条线的平行线？

wangwangnn · 发表于 2006-2-21 13:40:17

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

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

×

请问各位高手，想实现一个功能，过一个已知点画一条线的平行线，不知应该怎样做呀？还请赐教！

taner · 发表于 2006-2-21 15:06:51

OFFSET就可以了啊

断点 · 发表于 2006-2-21 16:25:53

按住Shift键单击右键,选平行线.

andyhua5240 · 发表于 2006-2-21 16:34:32

说句实话，那个平行par，我到现在还没有搞懂，知道的兄弟能不能说明一下怎么用呀？帮助中说得也太含糊了？
谢谢！

ljpnb · 发表于 2006-2-21 17:08:37

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

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

×

最初由 andyhua5240 发布
[B]说句实话，那个平行par，我到现在还没有搞懂，知道的兄弟能不能说明一下怎么用呀？帮助中说得也太含糊了？
谢谢！ [/B]

这个par是这样用的：画直线先点好起点，再输入par，鼠标移到已知直线上会出现一个平行符号，（注意：左键不要点击），再将鼠标移至与已经直线相平行的位置（大概位置），会出现一条平行的追踪线，再点击即可。
其实这些操作还不如用offset来的快

andyhua5240 · 发表于 2006-2-21 18:52:39

谢谢楼上的答疑，总算是会用了。晕呀，就这么几句话，帮助中也不加以说明，看来老外也有马虎的时候呀？
呵呵！

chenwanggui2001 · 发表于 2006-2-21 20:07:44

你先设置好捕捉的，点-临近点。画线，点，再复制-捕捉就可以拉，
第二方法，你可以捕捉点-垂直，复制-捕捉就可以
第三方法，你可以量点到线距离，然后偏移距离长的线就可以。
第四方法，你可以饶要穿过的点旋转线，再选择线，就是。
等等，

xyp1964 · 发表于 2006-2-21 20:26:31

[FONT=courier new](load "xyp_lib.vlx") ;版本 V.20060211(2064)
;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)
利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
★1·在acad.lsp中增加(load"xyp_lib.vlx")
■2·在每个程序内增加(load"xyp_lib.vlx")
■3·在command下，输入(load"xyp_lib.vlx")
■4·在菜单.mnl中增加(load"xyp_lib.vlx")
■5·将xyp_lib.vlx文件直接拽到cad屏幕
[COLOR=red] ★通用函数下载地址：[/COLOR]
[url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
|;
;;;过一点画一条线的平行线或垂线
(defun c:test ()
(CMDLA0)
(setq s1 (car (USEL 0 "LINE" "LINE线"))
rad (angle (xyp-get-dxf 10 s1) (xyp-get-dxf 11 s1))
)
(setvar "snapang" rad)
(setvar "ORTHOMODE" 1)
(if (setq pt (getpoint "\n起点<退出>: "))
(progn
(command "line" pt)
(while (setq pt (getpoint pt "\n下一点<退出>: "))
(command pt)
)
(command "")
)
)
(setvar "snapang" 0)
(CMDLA1)
)[/FONT]

[FONT=courier new](load "xyp_lib.vlx")  ;版本 V.20060211(2064) 
;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下) 
利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序： 
★1·在acad.lsp中增加(load"xyp_lib.vlx") 
■2·在每个程序内增加(load"xyp_lib.vlx") 
■3·在command下，输入(load"xyp_lib.vlx") 
■4·在菜单.mnl中增加(load"xyp_lib.vlx") 
■5·将xyp_lib.vlx文件直接拽到cad屏幕 
[COLOR=red] ★通用函数下载地址：[/COLOR] 
[url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url] 
|; 
 
;;;过一点画一条线的平行线或垂线 
(defun c:test () 
  (CMDLA0) 
  (setq        s1  (car (USEL 0 "LINE" "LINE线")) 
        rad (angle (xyp-get-dxf 10 s1) (xyp-get-dxf 11 s1)) 
  ) 
  (setvar "snapang" rad) 
  (setvar "ORTHOMODE" 1) 
  (if (setq pt (getpoint "\n起点<退出>: ")) 
    (progn 
      (command "line" pt) 
      (while (setq pt (getpoint pt "\n下一点<退出>: ")) 
        (command pt) 
      ) 
      (command "") 
    ) 
  ) 
  (setvar "snapang" 0) 
  (CMDLA1) 
)[/FONT]

wangwangnn · 发表于 2006-2-21 22:16:36

谢谢各位，
可是，如果被平行线不是直线，用par 或xyp1964的方法就不行了！
在程序中应该怎么实现呢？

and2008 · 发表于 2006-2-21 22:26:36

呵呵，真是一题多解啊...

xyp1964 · 发表于 2006-2-21 22:38:30

最初由 wangwangnn 发布
[B]谢谢各位，
可是，如果被平行线不是直线，用par 或xyp1964的方法就不行了！
在程序中应该怎么实现呢？ [/B]

偶已经不知道平行线的定义了！

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

[求助] [求助]：如何过一点画一条线的平行线？

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

相关帖子

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

相关帖子