[讨论]：如何让两线平行

szx025 · 发表于 2007-3-23 13:14:04

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

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

×

(defun C:LTP (/ pt1 pt2 l p1 p2 P3 P4 P5 P6 K K1 P10 P20 )
;;保存系统变量设置
(setq old_OS  (getvar "OSMODE")
   old_CMD (getvar "CMDECHO")
)
(setvar "CMDECHO" 0)
(command "-osnap" "INT")
(setq pt1 (getpoint "\n左下角点:"))
(setq pt2 (getpoint pt1 "\n右下角点:"))
  (setvar "OSMODE" 0)
  (command "line" pt1 pt2 "")
  (setq k (angle pt1 pt2))
(setq k1 0)
(if (> k (/ Pi 2))
(setq k1 Pi)
)
(setq p10 (polar pt1 k1 100));向右(左)移
(setq p20 (polar pt2 (* pi 1.5) 100));向下移
(command "line" p10 p20 "")
;;恢复系统变量设置
(setvar "CMDECHO" old_CMD)
(setvar "OSMODE" old_OS)
(setq *error* olderr)
  (princ)
)
)
这是一个画两条线的程序,当PT1与PT2连线成45度时,两线平行,如不等于45度,两线不平行.我想要程序做到不论PT1与PT2连线成多少度,在保证P20向下(从PT2)移100的情况下,让两线平行.

carrot1983 · 发表于 2007-3-23 18:38:44

这是什么东西啊//////
真是够。。。。。。。不想说了。
试试用mline改一下对齐方式。然后再把它炸了。就是你想要的结果吧

byghbcaixin · 发表于 2007-3-23 19:01:38

(defun C:LTP (/ pt1 pt2 l p1 p2 P3 P4 P5 P6 K K1 P10 P20 )
;;保存系统变量设置
(setq old_OS (getvar "OSMODE")
old_CMD (getvar "CMDECHO")
)
(setvar "CMDECHO" 0)
(command "-osnap" "INT")
(setq pt1 (getpoint "\n左下角点:"))
(setq pt2 (getpoint pt1 "\n右下角点:"))
(setvar "OSMODE" 0)
(command "line" pt1 pt2 "")
(setq k (angle pt1 pt2))
(if (> k pi) (setq k (- k pi)))
(setq p10 (polar pt1 (+ k (* pi 1.5)) 100));向右(左)移
(setq p20 (polar pt2 (+ k (* pi 1.5)) 100));向下移
(command "line" p10 p20 "")
;;恢复系统变量设置
(setvar "CMDECHO" old_CMD)
(setvar "OSMODE" old_OS)
(setq *error* olderr)
(princ)
)
)

szx025 · 发表于 2007-3-23 19:08:17

我只是想说明问题而写的LSP语句,它是一个程序中的一部分,在满足我设定的条件下,如何用LISP实现

carrot1983 · 发表于 2007-3-23 19:19:41

不是帮你实现了吗？

这是什么东西啊//////
真是够。。。。。。。不想说了。
试试用mline改一下对齐方式。然后再把它炸了。就是你想要的结果吧

[php]
(defun c:test()
(setq pt1 (getpoint "\n左下角点:"))
(setq pt2 (getpoint pt1 "\n右下角点:"))
(setq ss (ssadd))
(command "mline" "j" "t" "s" 100 pt1 pt2 "")
(ssadd (entlast) ss)
(command "EXPLODE" ss)
(princ)
)
[/php]

szx025 · 发表于 2007-3-23 21:09:33

平行线的下点Y坐标要相同,上点X坐标要相同,你的程序好象作不到这点

carrot1983 · 发表于 2007-3-23 21:37:04

这样子说。我就知道了。。
我是按三楼的做法来改的。

说一下，自己的想法。希望有人有更好的方法
就是利用已经画出来的两条线的端点，画出两条构造线xline
然后，对这两条线进行延伸或剪切。。。。
因为还要判断角度，我数学不太好。。。呵呵
类似下面。。。。
[php]
(setq ss2 (ssadd))
(command "xline" "h" pt1 "") ;;;这边根据需要改"h"或"v"
(ssadd (entlast) ss2)
(setq ss3 (ssadd))
(command "xline" "v" pt2 "") ;;;这边根据需要改"h"或"v"
(ssadd (entlast) ss3)
(command "trim" ss2 "" "f" pt10 pt1 "" "")
(command "trim" ss3 "" "f" pt20 pt2 "" "")
(command "ERASE" ss2 "")
(command "ERASE" ss3 "")
[/php]
实在是想不出来更简单的办法了.

zml84 · 发表于 2007-3-24 15:33:49

楼主的意思不大明白，最好能以图片的形式表示出来。
根据我自己的理解，将一楼的代码修改后如下：

;;;功能：根据两点画一对平行线
;;;日期：zml84 2007-03-24 15:28
;;;=============================================
(defun C:LTP (/ pt1 pt2 l K xx P10 P20)
;;保存系统变量设置
(setq old_OS (getvar "OSMODE")
old_CMD (getvar "CMDECHO")
)
;; (setvar "CMDECHO" 0)
;; (command "-osnap" "INT")
(setvar "OSMODE" 32)
(if (setq pt1 (getpoint "\n第一点:"))
(if (setq pt2 (getpoint pt1 "\n第二点:"))
(progn
(setq l 100.
k (angle pt1 pt2)
)
(if (or (= k pi) (= k 0))
(setq p10 (polar pt1 (* pi 1.5) l))
(setq
xx (* l (/ (cos k) (sin k)))
p10 (polar pt1 0 xx)
)
)
(setq p20 (polar pt2 (* pi 1.5) l))
(setvar "OSMODE" 0)
(command "line" pt1 pt2 "")
(command "line" p10 p20 "")
)
)
)
;;恢复系统变量设置
(setvar "CMDECHO" old_CMD)
(setvar "OSMODE" old_OS)
(princ)
)

;;;功能：根据两点画一对平行线 
;;;日期：zml84  2007-03-24 15:28 
;;;============================================= 
(defun C:LTP (/ pt1 pt2 l K xx P10 P20) 
    ;;保存系统变量设置 
    (setq old_OS  (getvar "OSMODE") 
          old_CMD (getvar "CMDECHO") 
    ) 
    ;;    (setvar "CMDECHO" 0) 
    ;;    (command "-osnap" "INT") 
    (setvar "OSMODE" 32) 
 
    (if        (setq pt1 (getpoint "\n第一点:")) 
        (if (setq pt2 (getpoint pt1 "\n第二点:")) 
            (progn 
                (setq l        100. 
                      k        (angle pt1 pt2) 
                ) 
                (if (or (= k pi) (= k 0)) 
                    (setq p10 (polar pt1 (* pi 1.5) l)) 
                    (setq 
                        xx  (* l (/ (cos k) (sin k))) 
                        p10 (polar pt1 0 xx) 
                    ) 
                ) 
                (setq p20 (polar pt2 (* pi 1.5) l)) 
                (setvar "OSMODE" 0) 
                (command "line" pt1 pt2 "") 
                (command "line" p10 p20 "") 
            ) 
        ) 
    ) 
 
    ;;恢复系统变量设置 
    (setvar "CMDECHO" old_CMD) 
    (setvar "OSMODE" old_OS) 
    (princ) 
)

byghbcaixin · 发表于 2007-3-24 16:07:21

让两线平行就是计算两线的角度相等,或者用inters函数判断,没有交点就平行

szx025 · 发表于 2007-3-24 20:41:54

谢谢8楼的朋友,你的程序就是我要的效果.但有一点不得其解,p10 (polar pt1 0 xx)这句的意思我的理解是P10沿0度角从PT1平移XX.也就是说P10一定在PT1的右边,但程序执行是,当PT1定位在左下角,PT2定位在右上角时,P10为何自动定位到PT1的左边.

xyp1964 · 发表于 2007-3-24 22:07:05

[FONT=courier new](defun C:test (/ pt1 pt2 l P10 P20)
(setvar "OSMODE" 39)
(if (and (setq pt1 (getpoint "\n左下角点: "))
(setq pt2 (getpoint pt1 "\n右下角点: "))
)
(progn (setq p10 (polar pt1 k1 100)
p20 (polar pt2 k1 100)
)
(setvar "OSMODE" 0)
(command "line" pt1 pt2 "")
(command "line" p10 p20 "")
)
)
(princ)
)[/FONT]

xyp1964 · 发表于 2007-3-24 22:15:25

[FONT=courier new](defun C:test (/ pt1 pt2 l P10 P20)
(setvar "OSMODE" 39)
(if (and (setq pt1 (getpoint "\n左下角点: "))
(setq pt2 (getpoint pt1 "\n右下角点: "))
)
(progn (setq p10 (polar pt1 k1 100)
p20 (polar pt2 k1 100)
)
(setvar "OSMODE" 0)
(command "line" pt1 pt2 "")
(command "line" p10 p20 "")
)
)
(princ)
)[/FONT]

TLHMQH · 发表于 2007-3-24 23:34:46

斑竹连发了两个帖子，不知斑竹自己试了没有？

dwg001 · 发表于 2007-3-24 23:59:38

最初由 xyp1964 发布
[B][CODE](defun C:test (/ pt1 pt2 l P10 P20)
  (setvar "OSMODE" 39)
  (if (and (setq pt1 (getpoint "\n左下角点: "))
   (setq pt2 (getpoint pt1 "\n右下角点: "))
   )
(progn ... [/B]

k1---> ?

carrot1983 · 发表于 2007-3-25 09:34:30

到头还是理解错了啊。。。呵呵。。。
就是不知道有什么用处。
xyp1964 斑主，可能也是理解有出入。
而且

命令: test
左下角点:
右下角点: ; 错误: 参数类型错误: numberp: nil

复制代码

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

[讨论]：如何让两线平行

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

相关帖子