求批量线段延伸至圆心程序

dcming

求个程序能够批量将线段延伸至圆心，谢谢

伪书虫86

可以先把线和圆都选上，然后删掉所有的线，然后再获取两个圆的圆心，重新连线

菜卷鱼

这样看看，搞简单点的

1. (defun c:lx ( )
   
2. (setq ss(ssget '((0 . "line"))))
   
3. (setvar 'cmdecho 0)
   
4. (command "_.undo" "be")
   
5. (setq s(sslength ss))
   
6. (setq i 0)
   
7. (repeat s
   
8. (setq ssa (ssname ss i))
   
9. (setq info (entget ssa))
   
10. (setq s10 (assoc 10 info))
    
11. (setq ns10 (cons 10 (osnap (cdr s10) "center") ))
    
12. (setq info (subst ns10 s10 info))
    
13. (entmod info)
    
14. (setq s11 (assoc 11 info))
    
15. (setq ns11 (cons 11 (osnap (cdr s11) "center") ))
    
16. (setq info (subst ns11 s11 info))
    
17. (entmod info)
    
18. (setq i(1+ i))
    
19. )
    
20. (command "_.undo" "e")
    
21. (setvar 'cmdecho 1)
    
22. (prin1))

(defun c:lx ( )<br /> (setq ss(ssget '((0 . "line"))))<br /> (setvar 'cmdecho 0)<br /> (command "_.undo" "be")<br /> (setq s(sslength ss))<br /> (setq i 0)<br /> (repeat s<br /> (setq ssa (ssname ss i))<br /> (setq info (entget ssa))<br /> (setq s10 (assoc 10 info))<br /> (setq ns10 (cons 10 (osnap (cdr s10) "center") ))<br /> (setq info (subst ns10 s10 info))<br /> (entmod info)<br /> (setq s11 (assoc 11 info))<br /> (setq ns11 (cons 11 (osnap (cdr s11) "center") ))<br /> (setq info (subst ns11 s11 info))<br /> (entmod info)<br /> (setq i(1+ i))<br /> )<br /> (command "_.undo" "e")<br /> (setvar 'cmdecho 1)<br /> (prin1))

dcming

菜卷鱼 发表于 2014-11-18 12:14
这样看看，搞简单点的

再请教下，如果中间线段为多义线，如何实现

434939575

dcming 发表于 2014-11-18 20:36
再请教下，如果中间线段为多义线，如何实现

2. (setq pt10-1  (vlax-curve-getstartpoint ss0));pline起点//ss0图元名
   
3.      (setq  pt10-2     (vlax-curve-getendpoint ss0));pline终点

(setq pt10-1  (vlax-curve-getstartpoint ss0));pline起点//ss0图元名<br />      (setq  pt10-2     (vlax-curve-getendpoint ss0));pline终点

dcming

434939575 发表于 2014-11-18 21:06

谢谢大师的热情，不过本人对这些语言比较菜，不知道怎么使用，还望指教

vladimir

非常棒的程序， 谢谢楼主分享