[求助]：[0319]怎样由两点产生pline线呢?

xyz518mm

[求助]：[0319]怎样由两点产生pline线呢?

如附图中(图1)所示,
已由程序求出两点,
但该怎样由pline 产生如(图2)所示,
的完成图面呢?
烦请各位高手帮忙解答一下~
谢谢!


(setq p:pt1 (getpoint "\n第一点:"))
(setq p:pt2 (getpoint p:pt1 "\n第二点:"))
(setq p:ss (ssget "f" (list p:pt1 p:pt2) '((0 . "line")) ))

(setq p:ss:01 (mapcar '(lambda (x) (/ x 2)) (mapcar '+ (cdr (assoc 10 (entget (ssname p:ss 0 )))) (cdr (assoc 11

(entget (ssname p:ss 0 )))) )) )
(setq p:ss:02 (mapcar '(lambda (x) (/ x 2)) (mapcar '+ (cdr (assoc 10 (entget (ssname p:ss 1 )))) (cdr (assoc 11

(entget (ssname p:ss 1 )))) )) )
(setq p:ss:03 (mapcar '(lambda (x) (/ x 2)) (mapcar '+ p:ss:01 p:ss:02 )) )
(command "_.point" p:ss:03 )

xyp1964

“p:ss:02”这种变量写法看起来很累！
图片有问题，还是说清楚。

2. [FONT=courier new](defun c:test ()
   
3.   (setq        pt1 (getpoint "\n第一点:")
   
4.         pt2 (getpoint pt1 "\n第二点:")
   
5.         ss  (ssget "F" (list pt1 pt2))
   
6.         ss  (ssget "p" '((0 . "LINE")))
   
7.         e1  (entget (ssname ss 0))
   
8.         e2  (entget (ssname ss 1))
   
9.         s1  (mapcar '(lambda (x) (/ x 2))
   
10.                     (mapcar '+ (cdr (assoc 10 e1)) (cdr (assoc 11 e1)))
    
11.             )
    
12.         s2  (mapcar '(lambda (x) (/ x 2))
    
13.                     (mapcar '+ (cdr (assoc 10 e2)) (cdr (assoc 11 e2)))
    
14.             )
    
15.         pt3 (mapcar '(lambda (x) (/ x 2)) (mapcar '+ s1 s2))
    
16.   )
    
17.   (command "_.point" pt3)
    
18. )[/FONT]

[FONT=courier new](defun c:test ()<br />   (setq        pt1 (getpoint "\n第一点:")<br />         pt2 (getpoint pt1 "\n第二点:")<br />         ss  (ssget "F" (list pt1 pt2))<br />         ss  (ssget "p" '((0 . "LINE")))<br />         e1  (entget (ssname ss 0))<br />         e2  (entget (ssname ss 1))<br />         s1  (mapcar '(lambda (x) (/ x 2))<br />                     (mapcar '+ (cdr (assoc 10 e1)) (cdr (assoc 11 e1)))<br />             )<br />         s2  (mapcar '(lambda (x) (/ x 2))<br />                     (mapcar '+ (cdr (assoc 10 e2)) (cdr (assoc 11 e2)))<br />             )<br />         pt3 (mapcar '(lambda (x) (/ x 2)) (mapcar '+ s1 s2))<br />   )<br />   (command "_.point" pt3)<br /> )[/FONT]

xyz518mm

再次上傳圖片
论坛的贴图怪怪的所以贴个连结的图

                               
登录/注册后可看大图