多段线二点生成圆

twtysoi · 发表于 2021-4-9 19:02:11

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

多线段，上第一点是圆心坐标，第二点是半径点,用LSP帮写个工具谢谢

yangjian001 · 发表于 2021-4-9 20:47:29

做一个热心并受欢迎的人

dnbcgrass · 发表于 2021-4-11 08:28:01

本帖最后由 dnbcgrass 于 2021-4-11 11:43 编辑

(defun c:2dy()
(setq cmd (getvar "cmdecho"))
(setq osm (getvar "osmode"))
(setvar "cmdecho" 0)
(setvar "osmode" 33)
(command "_undo" "be")
(while (setq p1 (getpoint (strcat "\n第1点(圆心)<回车退出>:")))
(If (setq p2 (getpoint p1 (strcat "\n第2点确定半径:")))
(progn
(setq ang (angle p2 p1))
(setq R (distance p1 p2))
(setq p3 (polar p1 ang R))
(entmake (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(100 . "AcDbPolyline")
'(90 . 2) '(70 . 1)
(cons 10 p2)
'(42 . 1.0)
(cons 10 p3)
'(42 . 1.0)
)
)
)
)
)
(setvar "osmode" osm)
(setvar "cmdecho" cmd)
(command "_undo" "e")
(princ)
)

(defun c:2dy() 
    (setq cmd (getvar "cmdecho")) 
    (setq osm (getvar "osmode")) 
    (setvar "cmdecho" 0) 
    (setvar "osmode" 33) 
    (command "_undo" "be") 
    (while (setq p1 (getpoint (strcat "\n第1点(圆心)<回车退出>:"))) 
        (If (setq p2 (getpoint p1 (strcat "\n第2点确定半径:"))) 
            (progn 
                (setq ang (angle p2 p1)) 
                (setq R (distance p1 p2)) 
                (setq p3 (polar p1 ang R)) 
                (entmake (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(100 . "AcDbPolyline") 
                               '(90 . 2) '(70 . 1) 
                                (cons 10 p2) 
                               '(42 . 1.0) 
                                (cons 10 p3) 
                               '(42 . 1.0) 
                         ) 
                ) 
            ) 
        ) 
    ) 
    (setvar "osmode" osm) 
    (setvar "cmdecho" cmd) 
    (command "_undo" "e") 
    (princ) 
)

SHUNDocker · 发表于 2021-4-11 10:57:11

感谢楼主分享学习！！！

weizx2000 · 发表于 2021-4-12 00:05:18

谢谢分享谢谢分享

账号		自动登录	找回密码
密码			立即注册

[编程申请] 多段线二点生成圆

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。