zoukankan      html  css  js  c++  java
  • AutoCAD LISP 绘制贝壳曲线

    AutoCAD LISP 绘制贝壳曲线,代码如下。

    (defun c:test()
      (setq pt1 (getpoint "\n基准点:"))
      (setq pt2 (getpoint "\n圆半径点:"))
      (setq cir_d (* 2 (distance pt1 pt2)))
      (setq ang (angle pt1 pt2))
      (setq dd (getdist pt1 "\n圆间距:"))
      (setq nn (getint "\n重复次数<10>:"))
      (if (null nn) (setq nn 10))
      (setq cc 1)
      (repeat nn
        (setvar "cecolor" (rtos cc 2 0))
        (setq pt2 (polar pt1 ang cir_d))
        (command "circle" "2p" pt1 pt2)
        (setq cir_d (+ cir_d dd))
        (setq cc (+ 1 cc))
        )
      (setvar "cecolor" "bylayer")
      (prin1)
      )

    代码完。

    作者:codee
    文章千古事,得失寸心知。


  • 相关阅读:
    LAMP课程(3)
    LAMP课程
    vim文本编辑
    mysql常用语句
    mysql双机互相备份
    Java NIO
    适配器模式
    对象的序列化与反序列化
    字符流
    Java Socket
  • 原文地址:https://www.cnblogs.com/bimgoo/p/2502962.html
Copyright © 2011-2022 走看看