知行ooo李肖坪 发表于 2015-8-20 22:17:44

求助：多段线顶点画圆

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


http://bbs.mjtd.com/xwb/images/bgimg/icon_logo.png 该贴已经同步到 知行ooo李肖坪的微博

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

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

知行ooo李肖坪 发表于 2015-12-19 08:58:39

ZZXXQQ 发表于 2015-8-21 08:52 static/image/common/back.gif


非常感谢………………新手，不知道如何谢你，请指示……
页: [1]
查看完整版本: 求助：多段线顶点画圆