求助：多段线顶点画圆

知行ooo李肖坪

获得圆与多段线交点，依次两两连接所得交点，删除原来多段线；


该贴已经同步到 知行ooo李肖坪的微博

ZZXXQQ

2. ;画圆打断 明经 ZZXXQQ 2015.8.21
   
3. (defun c:tt ()
   
4. (setvar "CMDECHO" 0)
   
5. (while (and (setq s1 (entsel "\n选择多段线: "))
   
6.              (setq ent (entget(car s1)))
   
7.              (= (cdr(assoc 0 ent)) "LWPOLYLINE"))
   
8.   (setq ptlst (list))
   
9.   (foreach x ent (if (= (car x) 10) (setq ptlst (cons (cdr x) ptlst))))
   
10.   (foreach x ptlst
    
11.    (entmake (list '(0 . "CIRCLE") (cons 10 x) (cons 40 0.4)))
    
12.    (command "_.TRIM" "L" "" x "")
    
13.   )
    
14. )
    
15. (setvar "CMDECHO" 1)
    
16. (princ)
    
17. )
    

;画圆打断 明经 ZZXXQQ 2015.8.21<br /> (defun c:tt ()<br /> (setvar "CMDECHO" 0)<br /> (while (and (setq s1 (entsel "\n选择多段线: "))<br />              (setq ent (entget(car s1)))<br />              (= (cdr(assoc 0 ent)) "LWPOLYLINE"))<br />   (setq ptlst (list))<br />   (foreach x ent (if (= (car x) 10) (setq ptlst (cons (cdr x) ptlst))))<br />   (foreach x ptlst<br />    (entmake (list '(0 . "CIRCLE") (cons 10 x) (cons 40 0.4)))<br />    (command "_.TRIM" "L" "" x "")<br />   )<br /> )<br /> (setvar "CMDECHO" 1)<br /> (princ)<br /> )<br />

知行ooo李肖坪

ZZXXQQ 发表于 2015-8-21 08:52

非常感谢………………新手，不知道如何谢你，请指示……