一个圆弧变尖角的程序

koku

;;;;;;;;圆弧变尖角
;;;;;;;;koku 2002
(defun c:bj (/ ss1 n en el code0 r sa ea ct sp ep A+b/2 j_angle l j)
  (setvar "CMDECHO" 0)
  (setq os (getvar "osmode"))
  (setq ss1 (ssget))
  (setq n (sslength ss1))
  (setq n 0)
  (setq m 0)
  (setq colo_r(getvar "cecolor"))
  (setvar "osmode" 0)
  (setvar "cecolor" "5")
  (while (setq en (ssname ss1 n))
    (setq el (entget en))
    (setq code0 (cdr (assoc 0 el)))
    (if        (= code0 "ARC")
      (progn
        (setq m (+ 1 m))
        (setq r (cdr (assoc 40 el)))
        (if (< r 2000)
          (progn
            (setq sa (cdr (assoc 50 el)))
            (setq ea (cdr (assoc 51 el)))
            (setq ct (cdr (assoc 10 el)))
            (setq sp (polar ct sa r))
            (setq ep (polar ct ea r))
            (setq A+B/2 (/ (- ea sa) 2))
            (setq j_angle (+ (/ (- ea sa) 2) sa))
            (setq l (/ r (cos A+B/2)))
            (setq j (polar ct j_angle l))
            (if        (/= (- ea sa) pi)
              (progn
                (command "zoom" w sp ep)
              (command "pline" sp j ep "")
              )
              (Princ "所选圆弧中有半圆!")
            )
          )
          (princ "所选圆弧中有半径大于 2000")
        )
      )
    )
    (setq n (1+ n))
  )
  (setvar "cecolor" colo_r)
  (setvar "osmode" os)
  (Princ "共有")
  (princ m)
  (princ "个圆弧变尖")
  (princ "\nKOKU's soft")
  (princ "\nBJ V1.2")
  (princ)
)

LYC688

gyl 发表于 2004-1-8 23:01
什么情况下需要这个功能呢？

线割{:1_1:

戏男

用不了呢 刚才试了一下

koku

不知道这个程序大家有没有用，它的目的是找出所选圆弧（可多选）两端点切线的交点，希望大家多多批评。谢谢！

王咣生

挺好的程序.

myfreemind

不错的程序，正需要！

gyl

myfreemind发表于2004-1-8 22:51:00不错的程序，正需要！

什么情况下需要这个功能呢？

tukuitk

(setq n (sslength ss1))这句有用吗？

myfreemind

gyl发表于2004-1-8 23:01:00以下是引用myfreemind在2004-1-8 22:51:56的发言：
不错的程序，正需要！

什么情况下需要这个功能呢？
[/quote]

施工放样的时候需要！

koku

谢谢大家捧场，我会再接再厉，写些程序与大家共享。

yfy2003

koku发表于2004-1-18 21:09:00谢谢大家捧场，我会再接再厉，写些程序与大家共享。

支持楼主！

myfreemind

期待楼主写出更好的程序！