[求助]：另类线段偏移命令

and2008 · 发表于 2005-9-9 17:45:08

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

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

×

通常用的OFFSET命令是在垂直于LINE方向进行偏移的，如果要沿自身方向偏移一定距离怎么办呢？说明一下：如果是水平或者竖直的LINE，可以通过F8键选择正交来解决；如果是任意角度就不行了。不知能否通过LSP来实现，敬请高手给予解答。（附图如下）

xyp1964 · 发表于 2005-9-9 21:39:05

[FONT=courier new](load "xyp_lib")
;|加载通用函数(可在签名栏直接下载)
如果已经下载xyp_lib并放到搜索路径下可以不再下载!
利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
1.在acad.lsp中增加(load"xyp_lib")
2.在每个程序内增加(load"xyp_lib")
3.在command下，输入(load"xyp_lib")
4.在菜单.mnl中增加(load"xyp_lib")
5.将xyp_lib.vlx文件直接拽到cad屏幕
[COLOR=red] ★通用函数下载地址：[/COLOR]
[url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
[url]http://www.mjtd.com/bbs/dispbbs.asp?boardID=3&ID=37554&page=1[/url]|;
;;;另类偏移
(defun c:test ()
(CMDLA0)
(setvar"osmode"0)
(setq no1 (UREAL 7 "" "\n偏移距离" no1))
(while (setq s1 (car (entsel "\n选线<退出> : ")))
(if (= (dxf 0 (entget s1)) "LINE")
(progn
(setq pt1 (dxf 10 (entget s1))
pt2 (dxf 11 (entget s1))
ang (angle pt1 pt2)
pt (_midp pt1 pt2)
pt0 (getpoint pt "\n方向 :")
)
(if (> (- (distance pt1 pt0) (distance pt2 pt0)) 0)
(setq pt1 (polar pt ang no1))
(setq pt1 (polar pt ang (* no1 -1)))
)
(command "copy" s1 "" pt pt1)
)
)
)
(CMDLA1)
)[/FONT]

[FONT=courier new](load "xyp_lib") 
;|加载通用函数(可在签名栏直接下载) 
如果已经下载xyp_lib并放到搜索路径下可以不再下载! 
利用以下任何一种方式即可加载和运行通用函数内的所有子程序： 
1.在acad.lsp中增加(load"xyp_lib") 
2.在每个程序内增加(load"xyp_lib") 
3.在command下，输入(load"xyp_lib") 
4.在菜单.mnl中增加(load"xyp_lib") 
5.将xyp_lib.vlx文件直接拽到cad屏幕 
[COLOR=red] ★通用函数下载地址：[/COLOR] 
[url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url] 
[url]http://www.mjtd.com/bbs/dispbbs.asp?boardID=3&ID=37554&page=1[/url]|; 
 
;;;另类偏移 
(defun c:test () 
  (CMDLA0) 
  (setvar"osmode"0) 
  (setq no1 (UREAL 7 "" "\n偏移距离" no1)) 
  (while (setq s1 (car (entsel "\n选线<退出> : "))) 
    (if        (= (dxf 0 (entget s1)) "LINE") 
      (progn 
        (setq pt1 (dxf 10 (entget s1)) 
              pt2 (dxf 11 (entget s1)) 
              ang (angle pt1 pt2) 
              pt  (_midp pt1 pt2) 
              pt0 (getpoint pt "\n方向 :") 
        ) 
        (if (> (- (distance pt1 pt0) (distance pt2 pt0)) 0) 
          (setq pt1 (polar pt ang no1)) 
          (setq pt1 (polar pt ang (* no1 -1))) 
        ) 
        (command "copy" s1 "" pt pt1) 
      ) 
    ) 
  ) 
  (CMDLA1) 
)[/FONT]

命令：llpy

狂刀 · 发表于 2005-9-10 01:57:47

这不是沿着角度拷贝么？
还要写什么啊
要写，不如先问角度，ｕｃｓ跟随，调用ｃｏｐｙ，恢复ｕｃｓ
如果要ｃｏｐｙ的角度垂直当前坐标系或有方向的辅助点，或已知方向角（dist < ang），直接拷贝就可以了啊

PFD8667 · 发表于 2005-9-10 05:35:31

二位高手没必要搞的这么复杂,其实有一个很简单的方法,将需延伸线段选中,将线段的端点,点击成红点后,将十字光标移至中点,输入你要延伸的数值,但要在数据前加一个减号,如楼主所需输入负20，回车就行了，同理另一端也用同样方式很方便的，不信你们试一试。

xyp1964 · 发表于 2005-9-10 07:18:48

如二位所言，可以取消offset命令了！呵呵……

二楼程序效果：

and2008 · 发表于 2005-9-12 09:12:36

感谢大家的热心帮助。3楼说的沿角度拷贝，...能否再详细一点。4楼的方法对于数量很少的几条线的延长线偏移还是可以，如果对于大批量的就像5楼的动画那么多的话就有点辛苦了。不知能否利用2和3楼的思想做过程序？请高手给予解答。（xyp的程序还要加载你的通用程序，能否不用加载呢/。）

狂刀 · 发表于 2005-9-12 13:39:13

多条直线怎么知道具体的一条要往哪边“拷贝”？

and2008 · 发表于 2005-9-12 14:38:18

二楼的程序很好，非常感谢，只可惜看不到源文件。

snoopychen · 发表于 2005-9-12 16:22:59

对，我的想法和狂刀长老是一样的，用ucs就可以的
所以下面是一段没有什么容错能力的代码，可以批量沿本身方向拷贝
至于拷贝的方向是沿着起点到终点，因此直线的起终点挺重要
另外一点，感觉这个程序用处不是特别大一样：）
[PHP]
(defun c:test ()
  (setq ss (ssget '((0 . "line"))))
  (setq dis (getreal "\nthe distance:"))
  (setq i 0)
  (repeat (sslength ss)
(setq ent (entget (ssname ss i)))
(setq pointa (cdr (assoc 10 ent))
   pointb (cdr (assoc 11 ent))
)
(setq pointd (polar pointa 0 dis))
(setq angab (angle pointa pointb))
(setq angab90 (+ angab (/ pi 2)))
(setq pointc (polar pointa angab90 100))
(command "_ucs" "3" pointa pointb pointc)
(command "copy" (ssname ss i) "" pointa pointd)
(command "_ucs" "w")
(setq i (1+ i))
  )
)
[/PHP]

xyp1964 · 发表于 2005-9-12 16:31:41

“拷贝的方向是沿着起点到终点”就如同offset只向一个方向偏移，还有啥意义！

snoopychen · 发表于 2005-9-12 16:36:21

因为要批量，所以就只能这样，就觉得没有意义
象xyp版主的单选是比较有意义的：）

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

[求助] [求助]：另类线段偏移命令

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

相关帖子

浏览过的版块