以指定弦长旋转复制实体程序

正航

;;本程序原为化工塔设备中的塔板固定卡子分布排列而编制。程序编写：  正航
(defun c:copyrt3 (/ p1 p2 ss s a c r ang);;以定弦长复制实体程序
  (setvar "cmdecho" 0)
  (setq bl (getvar "dimlfac"))
  (princ "\n      =========   以弦长旋转复制实体   =======    ")
  (setq s T)
  (setq p1 (getpoint "\n请选择旋转复制实体的形心："))
  (princ "\n选择需要复制的实体：")
  (setq ss (ssget))
  (setq p2 (getpoint "\n旋转复制的圆心："))
  (setq r (distance p1 p2))
  (setq c (dos_getreal "弦长输入" "请输入弦长（mm）："));;用DOSLIB的GUI输入界面，仅为美观而已
  (setq c (/ c bl))
  (setq a (* 2 (arcsin (/ c (* r 2)))))
  (setq ang (/ (* a 180.00000) pi))
  (command ".copy" ss "" p2 p2)
  (command ".rotate" ss "" p2 "r" "0" ang)
  (command ".redraw")
  (while s
    (setq c (dos_getreal "弦长输入" "请输入弦长（mm）："))
    (if        (or (= c nil) (= c 0))
      (setq s nil)
      (progn
        (setq c (/ c bl))
        (command ".copy" ss "" p2 p2)
        (command ".rotate" ss "" p2 "r" "0" ang)
        (command ".redraw")
      )
    )
  )
  (command ".redraw")
  (princ)
)

(defun arcsin (r / result)
  (if (and (/= 1 (abs r)) (/= 1.0 (abs r)))
    (setq result (atan (/ r (sqrt (- 1 (* r r))))))
    (cond ((< r 0) (setq result (/ pi -2.0)))
          ((> r 0) (setq result (/ pi 2.0)))
    )
  )
  result
)