明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1604|回复: 10

[提问] 两点画弧,求高手帮忙加一个循环。

[复制链接]
发表于 2020-1-3 10:29:52 | 显示全部楼层 |阅读模式
本帖最后由 cq4920 于 2020-6-22 16:27 编辑


  • (defun C:ac(/ p1 p2 p3 os cm hh)
  •    (setq cm (getvar "cmdecho")
  •    os (getvar "osmode"))
  • (setvar "CMDECHO" 0)
  • (command "color" "bylayer")
  •    (command "_undo" "be")
  •   (setq p1 (getpoint "指定一点: "))
  • (setq p2 (getpoint "指定下一点: "))
  •   (setq hh (distance p1 p2))
  •   (setq p3 (polar p1 (+ (angle p1 p2) (/ pi 6)) (/ hh 2)))
  •   (command "arc" p1 p3 p2 "")
  •   (command "_undo" "e")
  • (setvar "OSMODE" os)
  •   (setvar "cmdecho" cm)
  •   (princ)
  • )
两点画弧的命令,用来做个灯具连线!帮忙给加个循环,使我能依次点击下一个点,来连续画弧!  

(defun C:ac()(command "arc" "@"  pause pause))

这个是我现在用的,

缺点1.第一个圆弧需要用“ARC”来画,

缺点2.相同间距弧的弧度大小不统一!  

"觉得好,就打赏"
还没有人打赏,支持一下
发表于 2020-1-3 14:06:56 | 显示全部楼层
此帖仅作者可见

使用道具 举报

 楼主| 发表于 2020-1-3 16:53:03 | 显示全部楼层
此帖仅作者可见

使用道具 举报

发表于 2020-1-4 13:26:33 | 显示全部楼层
此帖仅作者可见

使用道具 举报

 楼主| 发表于 2020-1-4 16:19:45 | 显示全部楼层
此帖仅作者可见

使用道具 举报

发表于 2020-1-5 13:59:54 | 显示全部楼层
此帖仅作者可见

使用道具 举报

发表于 2020-1-5 23:15:33 | 显示全部楼层
此帖仅作者可见

使用道具 举报

 楼主| 发表于 2020-1-5 23:29:49 | 显示全部楼层
此帖仅作者可见

使用道具 举报

 楼主| 发表于 2020-1-6 00:01:49 | 显示全部楼层
此帖仅作者可见

使用道具 举报

发表于 2020-1-6 13:39:09 | 显示全部楼层
此帖仅作者可见

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-11-16 04:49 , Processed in 0.170886 second(s), 24 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表