明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 909|回复: 0

[讨论] 写的一段代码 大家帮我看看有什么问题

[复制链接]
发表于 2011-8-21 09:55:40 | 显示全部楼层 |阅读模式

复制代码

  (setq pa (getpoint " Point:"))
  (setq hh 1000)
  (setq bc (getreal "jingdu:"))
  (setq qd (getpoint "\n qidian"))
  (setq zd (getpoint "\n zongdian"))
  (setq qidx (car qd))
  (setq qiax (car pa))
  (setq qzdx (car zd))
  (setq qiay (cadr pa))

(while (<= qiax qzdx ))
    (setq pc (polar pa (/ pi 2) hh))
    (setq qidx (+ qidx bc))
    (setq npa (list qidx qiay))
    (command "pline" npa pc "c")
   )

我的目的是 给出指定点坐标  任何输入起点坐标(和指定点相同 )在输入总点坐标  和精度

期望能以起点x坐标 按需要的精度移动画线(线段和第一条都是平行的)  到达总点x坐标的时候停止。


我需要这些线段于两条多线段相交的然后求交点

不过到这第一步就卡住了

大家帮我看看那里出错了




点评

语文太差,看不懂你说的  发表于 2011-9-19 07:29
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2025-6-12 05:20 , Processed in 0.156874 second(s), 26 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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