请问大师，画折线，但是有问题！！

迷不知途

各位大师，最近对lsp编程很感兴趣，在明经逛了很久，向大师们学到了很多的东西，在这感谢大家了！！

参考了论坛的几位前辈的源码，结合工作需要修改了一下，搞出来这么一个小插件！但是有几个问题请问如何修改！

1、画折线时扑捉功能不管用，
2、画出的折线不是连接在一起的，是一段一段分开的，如何能连接在一起呢？

下面是代码，请大师们帮帮忙！！多谢了！！

(defun c:zx( / *error* name1 zx_kz zx_p )

  (defun *error* (msg)
    (entdel name1) (entdel name2) (entdel name3)
    (princ "错误: ")(princ msg))

  (if (= zx_bl nil) (setq zx_bl 100))
  (if (= zx_ys nil) (setq zx_ys 0));定义延伸线长度
  (setq zx_kz t)
  (setq zx_p (getpoint "等待....输入点:"))

  (if (= zx_p nil) (setq zx_kza nil))

  (while zx_kz

    (setq zx_sb (grread t 4 3) sb_mode (car zx_sb) zx_sb_p (cadr zx_sb))

    (setq xx_dis (distance zx_p zx_sb_p)  xx_ang (angle zx_p zx_sb_p))

    (setq xx_p_mid (polar zx_p xx_ang  (/ xx_dis 2))
        xx_p11 (polar zx_p (+ pi xx_ang)  (* 2 zx_ys))
        xx_p12 (polar zx_sb_p  xx_ang  (* 2 zx_ys))
        xx_p13 (polar xx_p_mid  (+ pi xx_ang)   zx_bl)
        xx_p14 (polar xx_p_mid  xx_ang  zx_bl)
        xx_p15 (polar xx_p_mid  (+ (/ pi 2) xx_ang)   (* 2 zx_bl))
        xx_p16 (polar xx_p_mid  (+ (* 1.5 pi ) xx_ang)   (* 2 zx_bl))
        )

    (if (= sb_mode 5) (progn

      (if name1 (entdel name1))
      (entmake (list '(0 . "LWPOLYLINE")'(100 . "AcDbEntity")'(100 . "AcDbPolyline")'(90 . 6)(cons 10 xx_p11)(cons 10 xx_p13)(cons 10 xx_p15)(cons 10 xx_p16)(cons 10 xx_p14)(cons 10 xx_p12)))
      (setq name1 (entlast))))

    (if (= sb_mode 3) (progn
      (if name1 (entdel name1))
      (entmake (list '(0 . "LWPOLYLINE")'(100 . "AcDbEntity")'(100 . "AcDbPolyline")'(90 . 6)(cons 10 xx_p11)(cons 10 xx_p13)(cons 10 xx_p15)(cons 10 xx_p16)(cons 10 xx_p14)(cons 10 xx_p12)))
      (setq name1 (entlast))
      (setq zx_p zx_sb_p)
      (setq name1 nil)

      ))

    (if (or (= sb_mode 2) (= sb_mode 25)) (progn (setq zx_kz nil) (entdel name1)))
)

  (princ)
)

(defun c:zxset()

  (setq zx_bl (getreal  "\n请输入出图比例：[100]"))
  (setq zx_ys_if (Getstring "\n请输入是否有延伸线：[N]"))
    (if (= zx_bl nil) (setq zx_bl 100))
    (if (or (= zx_ys_if nil) (/= zx_ys_if)) (setq zx_ys 0)(setq zx_ys zx_bl ))
  )

迷不知途

自己顶一下吧！！！

longcashman

gread不能捕捉
你要看
http://bbs.mjtd.com/thread-91191-1-1.html
想要整体可以把所有name1放在一个表里面
然后提取所有坐标 生成一个新的pline 再把原来的name1实体删掉

迷不知途

longcashman 发表于 2015-1-29 11:50
gread不能捕捉
你要看
http://bbs.mjtd.com/thread-91191-1-1.html

多谢！多谢！！再研究研究！有疑问了再请教你！！！

xyp1964

2. (defun c:zx (/ s1 zx_kz zx_p)
   
3.   (if (= zx_bl nil)
   
4.     (setq zx_bl 100)
   
5.   )
   
6.   (if (= zx_ys nil)
   
7.     (setq zx_ys 0)
   
8.   )
   
9.   (setq        s0   (entlast)
   
10.         mode t
    
11.         zx_p (getpoint "等待....输入点: ")
    
12.   )
    
13.   (if (= zx_p nil)
    
14.     (setq zx_kza nil)
    
15.   )
    
16.   (while mode
    
17.     (setq gr (grread t 4 3)
    
18.           co (car gr)
    
19.     )
    
20.     (if        (or (= co 5) (= co 3))
    
21.       (setq p1        (cadr gr)
    
22.             p1        (xyp-Grvecs-Osnap p1)
    
23.             dd        (distance zx_p p1)
    
24.             rad        (angle zx_p p1)
    
25.             pm        (polar zx_p rad (/ dd 2.))
    
26.             p2        (polar zx_p (+ pi rad) (* 2 zx_ys))
    
27.             p7        (polar p1 rad (* 2 zx_ys))
    
28.             p3        (polar pm (+ pi rad) zx_bl)
    
29.             p6        (polar pm rad zx_bl)
    
30.             p4        (polar pm (+ (/ pi 2.) rad) (* 2 zx_bl))
    
31.             p5        (polar pm (+ (* 1.5 pi) rad) (* 2 zx_bl))
    
32.       )
    
33.     )
    
34.     (cond ((= co 5)
    
35.            (if s1
    
36.              (entdel s1)
    
37.            )
    
38.            (setq s1 (xyp-Pline (list p2 p3 p4 p5 p6 p7)
    
39.                                nil
    
40.                     )
    
41.            )
    
42.           )
    
43.           ((= co 3)
    
44.            (if s1
    
45.              (entdel s1)
    
46.            )
    
47.            (setq s1   (xyp-Pline (list p2 p3 p4 p5 p6 p7)
    
48.                                  nil
    
49.                       )
    
50.                  zx_p p1
    
51.                  s1   nil
    
52.            )
    
53.           )
    
54.           ((or (= co 2) (= co 25))
    
55.            (setq mode nil)
    
56.            (entdel s1)
    
57.           )
    
58.     )
    
59.   )
    
60.   (xyp-PeditJoin (xyp-SSelEntnext s0) 0)
    
61.   (redraw)
    
62.   (princ)
    
63. )
    
64. 
    
65. (defun c:zxset ()
    
66.   (setq        zx_bl         (getreal "\n请输入出图比例: [100] ")
    
67.         zx_ys_if (Getstring "\n请输入是否有延伸线: [N] ")
    
68.   )
    
69.   (if (= zx_bl nil)
    
70.     (setq zx_bl 100)
    
71.   )
    
72.   (if (or (= zx_ys_if nil) (/= zx_ys_if))
    
73.     (setq zx_ys 0)
    
74.     (setq zx_ys zx_bl)
    
75.   )
    
76. )

(defun c:zx (/ s1 zx_kz zx_p)<br />   (if (= zx_bl nil)<br />     (setq zx_bl 100)<br />   )<br />   (if (= zx_ys nil)<br />     (setq zx_ys 0)<br />   )<br />   (setq        s0   (entlast)<br />         mode t<br />         zx_p (getpoint "等待....输入点: ")<br />   )<br />   (if (= zx_p nil)<br />     (setq zx_kza nil)<br />   )<br />   (while mode<br />     (setq gr (grread t 4 3)<br />           co (car gr)<br />     )<br />     (if        (or (= co 5) (= co 3))<br />       (setq p1        (cadr gr)<br />             p1        (xyp-Grvecs-Osnap p1)<br />             dd        (distance zx_p p1)<br />             rad        (angle zx_p p1)<br />             pm        (polar zx_p rad (/ dd 2.))<br />             p2        (polar zx_p (+ pi rad) (* 2 zx_ys))<br />             p7        (polar p1 rad (* 2 zx_ys))<br />             p3        (polar pm (+ pi rad) zx_bl)<br />             p6        (polar pm rad zx_bl)<br />             p4        (polar pm (+ (/ pi 2.) rad) (* 2 zx_bl))<br />             p5        (polar pm (+ (* 1.5 pi) rad) (* 2 zx_bl))<br />       )<br />     )<br />     (cond ((= co 5)<br />            (if s1<br />              (entdel s1)<br />            )<br />            (setq s1 (xyp-Pline (list p2 p3 p4 p5 p6 p7)<br />                                nil<br />                     )<br />            )<br />           )<br />           ((= co 3)<br />            (if s1<br />              (entdel s1)<br />            )<br />            (setq s1   (xyp-Pline (list p2 p3 p4 p5 p6 p7)<br />                                  nil<br />                       )<br />                  zx_p p1<br />                  s1   nil<br />            )<br />           )<br />           ((or (= co 2) (= co 25))<br />            (setq mode nil)<br />            (entdel s1)<br />           )<br />     )<br />   )<br />   (xyp-PeditJoin (xyp-SSelEntnext s0) 0)<br />   (redraw)<br />   (princ)<br /> )<br /> <br /> (defun c:zxset ()<br />   (setq        zx_bl         (getreal "\n请输入出图比例: [100] ")<br />         zx_ys_if (Getstring "\n请输入是否有延伸线: [N] ")<br />   )<br />   (if (= zx_bl nil)<br />     (setq zx_bl 100)<br />   )<br />   (if (or (= zx_ys_if nil) (/= zx_ys_if))<br />     (setq zx_ys 0)<br />     (setq zx_ys zx_bl)<br />   )<br /> )

xyp1964

迷不知途

xyp1964 发表于 2015-2-4 22:50

no function definition: XYP-GRVECS-OSNAP

大师你好，本人新手上面的问题是怎么了？

xuehulong

学习了 继续学