weixin_54346561 2021-04-22 22:03
浏览 26

lisp 如何实现双循环

在使用lsp时第一个循环可以正常运行,第二个循环无法运行,最后的成果应该是类似干字的半边的图形
(defun c:cxx()
  (setq h (getreal "主管长="))
  (setq l (getreal "支管长="))
  (setq x (getint "支管数为:"))
  (setq y (getint "节点数为:"))
  (setq p0 (getpoint "输入起始点: "))
  (setq p1(polar p0 (* 0.5 pi) h))
  (command "line" p0 p1 )
  (repeat x 
    (command
      (setq p1(polar p1 (* 0.5 pi) h))
        
      )
    )
       (setq p3 (entget  p1))
       (setq p2(polar p3  (* 2 pi) l))
       (command "line" p3 p2) 
       (repeat y
         (command
            (setq p2 (polar p2 (* 2 pi) l))
      )
    )
  )
      

  • 写回答

0条回答 默认 最新

      报告相同问题?

      相关推荐 更多相似问题

      悬赏问题

      • ¥15 关于#glmb#的问题,如何解决?
      • ¥15 TI的TMS320F28335,RS485串口进行SCI-B通信出错
      • ¥15 XML文件报错不允许出现此特性,百度也搜不到解决方法
      • ¥15 FTPC共同交流学习
      • ¥15 关于#python##pyqt#的问题,如何解决?
      • ¥15 html+css网页设计 html+css网页设计
      • ¥15 用html加css制作一个网页
      • ¥200 MFC中如何对ListCtrl的某一列的文本能换行显示
      • ¥15 clion添加库文件
      • ¥15 ERROR C2143怎么出现的?为什么ERROR C2144会这么转移,它是怎么出现的?该怎么解决?