koku 发表于 2004-1-3 13:55:00

一个圆弧变尖角的程序

;;;;;;;;圆弧变尖角
;;;;;;;;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 发表于 2021-12-20 03:42:14

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

线割{:1_1:{:1_1:}{:1_1:}{:1_1:}{:1_1:}{:1_1:}

戏男 发表于 2018-7-16 17:00:40

用不了呢 刚才试了一下

koku 发表于 2004-1-7 19:24:00

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

王咣生 发表于 2004-1-8 12:34:00

回复

挺好的程序.

myfreemind 发表于 2004-1-8 22:51:00

不错的程序，正需要！

gyl 发表于 2004-1-8 23:01:00

myfreemind发表于2004-1-8 22:51:00static/image/common/back.gif不错的程序，正需要！


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

tukuitk 发表于 2004-1-10 10:04:00

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

myfreemind 发表于 2004-1-14 22:39:00

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


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


施工放样的时候需要！

koku 发表于 2004-1-18 21:09:00

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

yfy2003 发表于 2004-1-18 21:38:00

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


支持楼主！

myfreemind 发表于 2004-1-19 22:18:00

期待楼主写出更好的程序！
页: [1] 2
查看完整版本: 一个圆弧变尖角的程序