zoukankan      html  css  js  c++  java
  • AutoLISP直线为底做圆形堆栈

    AutoLISP直线为底做圆形堆栈,选取一条直线,做圆形堆栈后删除直线。

    (defun c:test()
      (setvar "cmdecho" 0)
      (setq en (car (entsel "\n选取线:")))
      (setq endata (entget en))
      (setq pt1 (cdr (assoc 10 endata)))
      (setq pt2 (cdr (assoc 11 endata)))
      (setq nn (getint "\n堆栈数<10>:"))
      (if (null nn) (setq nn 10))
      (setq dd (distance pt1 pt2))
      (setq ang (angle pt1 pt2))
      (setq rr (/ (/ dd (- nn 1)) 2))
      (setq nn2 nn)
      (repeat nn
        (setq bas pt1)
        (repeat nn2
          (command "circle" bas rr)
          (setq bas (polar bas ang (* rr 2)))
          )
        (setq nn2 (1- nn2))
        (setq pt1 (polar pt1 (+ ang (/ (* 60 pi) 180)) (* rr 2)))
        )
      (entdel en)
      (prin1)
      )

    代码如下。

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


  • 相关阅读:
    第 9 章
    第 8 章
    第 7 章
    第 6 章
    第 5 章
    第 4 章
    跳舞链解数独
    minic 类型声明与变量定义句型处理
    minic 动作句型处理
    minic 符号表
  • 原文地址:https://www.cnblogs.com/bimgoo/p/2502971.html
Copyright © 2011-2022 走看看