【求助】平行多段线对角连线

daidong013

高手们看看这个工具怎么实现？最好可以点选和批量框选
！

夺天工

已经很好了

sen.sam

如果一条多段线是从另一条偏距出来的应该还是挺简单的，依次取出多段线的顶点连线就行了

daidong013

sen.sam 发表于 2012-6-30 10:36
如果一条多段线是从另一条偏距出来的应该还是挺简单的

多谢！多段线都是偏距出来的！高手可以整个出来吗？！~

sen.sam

抛砖引玉，写个简单的，期待高手写个可以框选的。

2. (defun c:tt(/ ent1 ent2  ptlist1  ptlist2 lnum num)
   
3. (setq ent1  (entget (car (entsel"\n选取第一条线："))))
   
4. (setq ent2  (entget (car (entsel"\n选取第二条线："))))
   
5. (mapcar '(lambda(X)
   
6.           (if (= 10 (car x))
   
7.               (setq ptlist1 (cons (cdr x) ptlist1))
   
8.            )
   
9.   )
   
10.   ent1
    
11.   )
    
12. (mapcar '(lambda(X)
    
13. (if (= 10 (car x))(setq ptlist2 (cons (cdr x) ptlist2)))
    
14. )
    
15. ent2
    
16. )
    
17.   (setq lnum(length ptlist1) num 0)
    
18.   (repeat lnum
    
19.          (command "line" (nth num (reverse ptlist1)) (nth num(reverse ptlist2)) "")  
    
20.          (setq num( + num 1))
    
21.   )
    
22. (princ)
    
23. )

(defun c:tt(/ ent1 ent2  ptlist1  ptlist2 lnum num)<br /> (setq ent1  (entget (car (entsel"\n选取第一条线："))))<br /> (setq ent2  (entget (car (entsel"\n选取第二条线："))))<br /> (mapcar '(lambda(X)<br />           (if (= 10 (car x))<br />               (setq ptlist1 (cons (cdr x) ptlist1))<br />            )<br />   )<br />   ent1<br />   )<br /> (mapcar '(lambda(X)<br /> (if (= 10 (car x))(setq ptlist2 (cons (cdr x) ptlist2)))<br /> )<br /> ent2<br /> )<br />   (setq lnum(length ptlist1) num 0)<br />   (repeat lnum<br />          (command "line" (nth num (reverse ptlist1)) (nth num(reverse ptlist2)) "")  <br />          (setq num( + num 1))<br />   ) <br /> (princ)<br /> )

daidong013

sen.sam 发表于 2012-6-30 11:57
抛砖引玉，写个简单的，期待高手写个可以框选的。

多谢多谢！~~基本复合要求了！
期待高手们可以写个框选的！~~

VBALISPER

干嘛不在画这些多段线时就让程序来实现呢.

VBALISPER

干嘛不在画这些多段线时就让程序来实现呢.

pimgu

(LOAD "C:/Users/Administrator/Desktop/连线.lsp")
语法错误

ZZXXQQ

游客，本帖隐藏的内容需要发帖数高于 5 才可浏览，你当前发帖数只有 0

daidong013

ZZXXQQ 发表于 2012-7-1 07:00
[/post]

ZZXXQQ版主可以改个可以批量框选的吗？！~~期待