社区 › Auto Lisp › 圆弧起点和终点。。。HEL公司

leonucadomi 发表于 2022-7-21 05:00:27

圆弧起点和终点。。。HEL公司

有人帮我找到任何弧的起点和终点
 
 
这有lsp程序吗？
 
谢谢
 

 
 

ReMark 发表于 2022-7-21 05:21:03

为什么是lisp例程？在需要此类信息的情况下，您是否通常有一个包含两个或多个圆弧的图形？

leonucadomi 发表于 2022-7-21 05:34:03

我需要学习如何获得这些分数，我需要它来完成另一个更复杂的例程

leonucadomi 发表于 2022-7-21 05:45:30

我需要的是选择弧，在弧的起始点和终点制作一个对称轴的镜子

kirby 发表于 2022-7-21 06:10:13

速度极快。DXF参考手册。。。

(defun C:GetArc ( /
                k MyEntSel MyEnt MyEntData MyEntType CP Radius StartAng EndAng SP EP
                )
; Select an arc, get geometry and draw radials
; KJM July 2022

(setq k 1)
(while k

      (setq MyEntSel (entsel "\nSelect an ARC..."))
      (if MyEntSel
          (progn
                  (setq MyEnt (car MyEntSel))
                  (setq MyEntData (entget MyEnt))
                  (setq MyEntType (strcase (cdr (assoc 0 MyEntData))))
                  
                  (if (equal MyEntType "ARC")
                  (progn
                            (setq k nil)      ; stop selection loop
                  )
                  (progn
                            (prompt "\nSelection was ")(princ MyEntType)(prompt ", try again...")(princ)
                  )
                  ) ; close if
          )
      ) ; close if
      
) ; close while

; Get geometry
(setq CP (cdr (assoc 10 MyEntData)))                ; Centre Point
(setq Radius (cdr (assoc 40 MyEntData)))         
(setq StartAng (cdr (assoc 50 MyEntData)))      ; Radians!
(setq EndAng (cdr (assoc 51 MyEntData)))

; Make start and end points
(setq SP (polar CP StartAng Radius))
(setq EP (polar CP EndAng Radius))

; Report
(prompt "\nCentre = ")(princ CP)(prompt "Radius = ")(princ Radius)
(prompt "Start Point = ")(princ SP)(prompt "End Point = ")(princ EP)
(princ)

; Draw something
(command ".POINT" SP)
(command ".POINT" CP)
(command ".POINT" EP)

(command ".LINE" SP CP EP "")
(princ)
)

查看完整版本: 圆弧起点和终点。。。HEL公司