设为首页收藏本站转
发帖领奖家园QQ群申请版主版主评价切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › A/VLISP › [求助]：请帮我看看我的程序错误在那里（谢谢） ...
返回列表 发新帖
查看: 449|回复: 2

[求助] [求助]：请帮我看看我的程序错误在那里（谢谢）

[复制链接]
fallrain
发表于 2004-6-12 10:05:05 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要 登录 才可以下载或查看，没有账号？立即注册

×
我编的程序是在选择的边界内部间隔10米的点画。思想是在选择边界后再拾取一内部点，在内部点的基础上用一个二重循环把X和Y坐标累加累减得到点，其中，用一个网友提供的测试点在边界内部的函数来控制循环的终止（在此感谢网友们的无私奉献）。我的程序不能运行使用。我不知道错误出在那里。请帮忙看看问题所在



谢谢网友们的帮忙。程序能运行了，但还有一个问题。就是画的圆为什么总有一个出边界。我怎么也找不到那里出了问题。请大家帮我改正。


  3. (defun c:tc (/           plendpt     x_lst       e         op
  4.          n           fst_pt     int_num   online    pc
  5.          pn           min_num     edge_int_num         pt_online_num
  6.          op1
  7.         )
  8.   (defun zn ()
  9.     (setq min_num 0.0001)
  10.     (princ "\n选择边界:")
  11.     (while (not e) (setq e (car (entsel))))
  12.     (if    (= "LWPOLYLINE" (cdr (assoc 0 (entget e))))
  13.       (progn
  14.     (redraw e 3)
  15.     (while (not op) (setq op (getpoint "\n请拾取边界内部点:")))
  16.     (foreach n (entget e)
  17.       (if (= 10 (car n))
  18.         (if    plendpt
  19.           (setq plendpt (append plendpt (list (cdr n))))
  20.           (setq plendpt (list (cdr n)))
  21.         )
  22.       )
  23.     )
  24.     (setq X_lst (mapcar '(lambda (x) (car x)) plendpt))
  25.     (setq delta_X (abs (- (apply 'max x_lst) (car op))))
  26.     (setq plendpt        (append plendpt (list (nth 0 plendpt)))
  27.           edge_int_num  0
  28.           pt_online_num 0
  29.           online        nil
  30.     )
  31.     (while (> (length plendpt) 1)
  32.       (setq    pc (nth 0 plendpt)
  33.         pn (nth 1 plendpt)
  34.       )
  35.       (setq op1 (polar op 0 (* delta_x 2)))
  36.       (if (inters op
  37.               op1
  38.               pc
  39.               pn
  40.           )

  42.         (setq edge_int_num (+ 1 edge_int_num))
  43.       )
  44.       (if (equal (+ (distance op pc) (distance pc op1))
  45.              (distance op op1)
  46.              min_num
  47.           )
  48.         (setq pt_online_num (+ 1 pt_online_num))
  49.       )

  51.       (if (equal (+ (distance op pc) (distance op pn))
  52.              (distance pc pn)
  53.              min_num
  54.           )
  55.         (setq online "t")
  56.       )
  57.       (setq plendpt (cdr plendpt))
  58.     )
  59.     (redraw e 4)
  60.       )
  61.     )
  62.   )

  64.   (zn)
  65.   (setq p0 op)
  66.   (setq p1 op)
  67.   (setq p2 op)
  68.   (setq p3 op)
  69.   (setq p4 op)
  70.   (setq p5 op)
  71.   (setq p6 op)
  72.   (setq p7 op)
  73.    
  74.    
  75.   (zn)
  76.    (setq op p3)
  77.   (zn)
  78.    (while (and (= (rem (+ pt_online_num edge_int_num) 2) 1)
  79.           (not online) )
  80.    
  81.         (while (and (= (rem (+ pt_online_num edge_int_num) 2) 1)
  82.           (not online) )
  83.           (command "circle" op 1 "")
  84.          
  85.           (setq op (polar op pi 10) )
  86.        
  87.           (zn)
  88.               )
  89.           (command "circle" op 1 "")
  90.           (setq op p4)
  91.           (setq op (polar op (/ pi 2) 10))
  92.           (setq p4 op)
  93.           (zn)
  94.     )
  95.   
  96.    (zn)
  97.    (setq op p2)
  98.   (zn)
  99.    (while (and (= (rem (+ pt_online_num edge_int_num) 2) 1)
  100.           (not online) )
  101.    
  102.         (while (and (= (rem (+ pt_online_num edge_int_num) 2) 1)
  103.           (not online) )
  104.           (command "circle" op 1 "")
  105.          
  106.           (setq op (polar op 0 10) )
  107.        
  108.           (zn)
  109.               )
  110.           (command "circle" op 1 "")
  111.           (setq op p1)
  112.           (setq op (polar op (/ (* pi 3) 2) 10))
  113.           (setq p1 op)
  114.           (zn)
  115.     )
  116.    
  117.   
  118.   (zn)
  119.    (setq op p7)
  120.   (zn)
  121.    (while (and (= (rem (+ pt_online_num edge_int_num) 2) 1)
  122.           (not online) )
  123.    
  124.         (while (and (= (rem (+ pt_online_num edge_int_num) 2) 1)
  125.           (not online) )
  126.           (command "circle" op 1 "")
  127.          
  128.           (setq op (polar op pi 10) )
  129.        
  130.           (zn)
  131.               )
  132.           (command "circle" op 1 "")
  133.           (setq op p5)
  134.           (setq op (polar op (/ (* pi 3) 2) 10))
  135.           (setq p5 op)
  136.           (zn)
  137.     )
  138.   (zn)
  139.    (setq op p6)
  140.   (zn)
  141. (while (and (= (rem (+ pt_online_num edge_int_num) 2) 1)
  142.           (not online) )
  143.    
  144.         (while (and (= (rem (+ pt_online_num edge_int_num) 2) 1)
  145.           (not online) )
  146.           (command "circle" op 1 "")
  147.          
  148.           (setq op (polar op 0 10) )
  149.        
  150.           (zn)
  151.               )
  152.           (command "circle" op 1 "")
  153.           (setq op p0)
  154.           (setq op (polar op (/ pi 2) 10))
  155.           (setq p0 op)
  156.           (zn)
  157.     )
  158.   
  159.   
  160. )

斑竹技巧提示：发代码请使用代码段：
［code］
你的代码
....
［/code］
注意：以上方括号应为半角符号！
setq, online, op

相关帖子

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

zhanzujie
发表于 2004-6-13 16:17:00 | 显示全部楼层
建议楼上的朋友用CAD自带的VLISP编译器进行逐步或设断点编译
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

841594
发表于 2004-6-13 22:20:49 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
多了一句画圆语句，修改如下：
多说一句：你的程序看起来很累。建议整理一下思路，把程序的结构重整一下。程序大的流程要清晰，这个程序子程序的功能应该是判断点是否在曲线内，却包含了选择边界这些语句，而最终的判断又没有全部在子程序完成，有点混乱且效率不高。结构不清楚的程序调试和升级都很不方便。

  3.   [FONT=courier new]
  4. (defun c:tc (/               plendpt         x_lst           e             op
  5.              n               fst_pt         int_num   online    pc
  6.              pn               min_num         edge_int_num             pt_online_num
  7.              op1
  8.             )
  9.   
  10.   (defun zn ()
  11.     (setq min_num 0.0001)
  12.     (princ "\n选择边界:")
  13.     (while (not e) (setq e (car (entsel))))
  14.     (if        (= "LWPOLYLINE" (cdr (assoc 0 (entget e))))
  15.       (progn
  16.         (redraw e 3)
  17.         (while (not op) (setq op (getpoint "\n请拾取边界内部点:")))
  18.         (foreach n (entget e)
  19.           (if (= 10 (car n))
  20.             (if        plendpt
  21.               (setq plendpt (append plendpt (list (cdr n))))
  22.               (setq plendpt (list (cdr n)))
  23.             )
  24.           )
  25.         )
  26.         (setq X_lst (mapcar '(lambda (x) (car x)) plendpt))
  27.         (setq delta_X (abs (- (apply 'max x_lst) (car op))))
  28.         (setq plendpt            (append plendpt (list (nth 0 plendpt)))
  29.               edge_int_num  0
  30.               pt_online_num 0
  31.               online            nil
  32.         )
  33.        
  34.         (while (> (length plendpt) 1)
  35.           (setq        pc (nth 0 plendpt)
  36.                 pn (nth 1 plendpt)
  37.           )
  38.           (setq op1 (polar op 0 (* delta_x 2)))
  39.           (if (inters op
  40.                       op1
  41.                       pc
  42.                       pn
  43.               )

  45.             (setq edge_int_num (+ 1 edge_int_num))
  46.           )
  47.           (if (equal (+ (distance op pc) (distance pc op1))
  48.                      (distance op op1)
  49.                      min_num
  50.               )
  51.             (setq pt_online_num (+ 1 pt_online_num))
  52.           )

  54.           (if (equal (+ (distance op pc) (distance op pn))
  55.                      (distance pc pn)
  56.                      min_num
  57.               )
  58.             (setq online "t")
  59.           )
  60.           (setq plendpt (cdr plendpt))
  61.         ) ;while
  62.        
  63.         (redraw e 4)
  64.       )
  65.     )
  66.   )   ;;;;zn
  67.   

  69. ;;;  main
  70.   
  71.   (zn)
  72.   (setq p0 op)
  73.   (setq p1 op)
  74.   (setq p2 op)
  75.   (setq p3 op)
  76.   (setq p4 op)
  77.   (setq p5 op)
  78.   (setq p6 op)
  79.   (setq p7 op)


  82.   (zn)
  83.   (setq op p3)
  84.   (zn)
  85.   (while (and (= (rem (+ pt_online_num edge_int_num) 2) 1)
  86.               (not online)
  87.          )

  89.     (while (and        (= (rem (+ pt_online_num edge_int_num) 2) 1)
  90.                 (not online)
  91.            )
  92.       (command "circle" op 1 "")

  94.       (setq op (polar op pi 10))

  96.       (zn)
  97.     )
  98. ;;;    (command "circle" op 1 "")  就是多了这一句
  99.     (setq op p4)
  100.     (setq op (polar op (/ pi 2) 10))
  101.     (setq p4 op)
  102.     (zn)
  103.   )

  105.   (zn)
  106.   (setq op p2)
  107.   (zn)
  108.   (while (and (= (rem (+ pt_online_num edge_int_num) 2) 1)
  109.               (not online)
  110.          )

  112.     (while (and        (= (rem (+ pt_online_num edge_int_num) 2) 1)
  113.                 (not online)
  114.            )
  115.       (command "circle" op 1 "")

  117.       (setq op (polar op 0 10))

  119.       (zn)
  120.     )
  121. ;;;    (command "circle" op 1 "")
  122.     (setq op p1)
  123.     (setq op (polar op (/ (* pi 3) 2) 10))
  124.     (setq p1 op)
  125.     (zn)
  126.   )


  129.   (zn)
  130.   (setq op p7)
  131.   (zn)
  132.   (while (and (= (rem (+ pt_online_num edge_int_num) 2) 1)
  133.               (not online)
  134.          )

  136.     (while (and        (= (rem (+ pt_online_num edge_int_num) 2) 1)
  137.                 (not online)
  138.            )
  139.       (command "circle" op 1 "")

  141.       (setq op (polar op pi 10))

  143.       (zn)
  144.     )
  145. ;;;    (command "circle" op 1 "")
  146.     (setq op p5)
  147.     (setq op (polar op (/ (* pi 3) 2) 10))
  148.     (setq p5 op)
  149.     (zn)
  150.   )
  151.   (zn)
  152.   (setq op p6)
  153.   (zn)
  154.   (while (and (= (rem (+ pt_online_num edge_int_num) 2) 1)
  155.               (not online)
  156.          )

  158.     (while (and        (= (rem (+ pt_online_num edge_int_num) 2) 1)
  159.                 (not online)
  160.            )
  161.       (command "circle" op 1 "")

  163.       (setq op (polar op 0 10))

  165.       (zn)
  166.     )
  167. ;;;    (command "circle" op 1 "")
  168.     (setq op p0)
  169.     (setq op (polar op (/ pi 2) 10))
  170.     (setq p0 op)
  171.     (zn)
  172.   )


  175. )
  176.   [/FONT]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-11-24 01:49 , Processed in 0.313139 second(s), 35 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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