[求助]：如何不用LINE和PL命令在两点间直接生成直线？

xbx7920 · 发表于 2006-4-28 00:06:07

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

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

×

如何不用LINE和PL命令在两点间直接生成直线？
有时候需要多次使用LINE命令来连接两条直线的端点，
有某程序能直接用鼠标框选两条直线的端点从而直接
生成直线吗？谢谢！

qjcpj · 发表于 2006-4-28 07:39:38

entmake

xyp1964 · 发表于 2006-5-6 09:15:28

仅起点和起点、终点和终点连线：

[FONT=courier new];;;两直线端点连线
(defun c:test ()
(CMDLA0)
(setq ss (ssget '((0 . "LINE")))
i -1
)
(xyp-mklaco "TEST" 1)
(while (setq s1 (ssname ss (setq i (1+ i))))
(if (setq s2 (ssname ss (1+ i)))
(progn
(setq pt1 (xyp-get-CurveStartPoint s1)
pt2 (xyp-get-CurveEndPoint s1)
pt11 (xyp-get-CurveStartPoint s2)
pt22 (xyp-get-CurveEndPoint s2)
)
(entmake (list '(0 . "LINE")
'(8 . "TEST")
'(100 . "AcDbLine")
(cons 10 pt1)
(cons 11 pt11)
)
)
(entmake (list '(0 . "LINE")
'(8 . "TEST")
'(100 . "AcDbLine")
(cons 10 pt2)
(cons 11 pt22)
)
)
)
)
)
(CMDLA1)
)[/FONT]

[FONT=courier new];;;两直线端点连线 
(defun c:test () 
  (CMDLA0) 
  (setq        ss (ssget '((0 . "LINE"))) 
        i  -1 
  ) 
  (xyp-mklaco "TEST" 1) 
  (while (setq s1 (ssname ss (setq i (1+ i)))) 
    (if        (setq s2 (ssname ss (1+ i))) 
      (progn 
        (setq pt1  (xyp-get-CurveStartPoint s1) 
              pt2  (xyp-get-CurveEndPoint s1) 
              pt11 (xyp-get-CurveStartPoint s2) 
              pt22 (xyp-get-CurveEndPoint s2) 
        ) 
        (entmake (list '(0 . "LINE") 
                       '(8 . "TEST") 
                       '(100 . "AcDbLine") 
                       (cons 10 pt1) 
                       (cons 11 pt11) 
                 ) 
        ) 
        (entmake (list '(0 . "LINE") 
                       '(8 . "TEST") 
                       '(100 . "AcDbLine") 
                       (cons 10 pt2) 
                       (cons 11 pt22) 
                 ) 
        ) 
      ) 
    ) 
  ) 
  (CMDLA1) 
)[/FONT]

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

[求助] [求助]：如何不用LINE和PL命令在两点间直接生成直线？

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

相关帖子