dimlinear的BUG吗？

拉契

自己弄的一个尺寸标注的程序，标注的对象在不同的位置标注的结果也会不一样，不同的地方就是图中红色线的部分，三个图是用co命令复制的。不知是CAD本身的BUG还是程序的问题，高手帮忙看一下

1. (defun c:mj-bz()
   
2.   (setq os(getvar "osmode"));;取得对象捕捉值
   
3.   (setvar "osmode" 0);;关闭所有的对象捕捉
   
4.   (setq mj-bz-3(car (entsel)));;取得生成的多段线
   
5.   (setq mj-bz-4(vxs mj-bz-3));;取得多段线的顶点坐标
   
6.   (setq mj-bz-5 0)
   
7.   (repeat(-(length mj-bz-4) 1)
   
8.     (setq mj-bz-6(nth mj-bz-5 mj-bz-4))
   
9.     (setq mj-bz-7(nth (1+ mj-bz-5) mj-bz-4))
   
10.     (setq mj-bz-8(angle mj-bz-6 mj-bz-7));;判断角度
    
11.     (cond((and(equal mj-bz-8 0 1)(< mj-bz-8 (* pi 0.5)))(setq mj-bz-9(mapcar '(lambda (x) (+ x 50)) mj-bz-6)))
    
12.    ((and(equal mj-bz-8 (* pi 0.5) 1)(< mj-bz-8 pi))(setq mj-bz-9(mapcar '(lambda (x) (- x 50)) mj-bz-6)))
    
13.    ((and(equal mj-bz-8 pi 1)(< mj-bz-8 (* pi 1.5)))(setq mj-bz-9(mapcar '(lambda (x) (- x 50)) mj-bz-6)))
    
14.    ((and(equal mj-bz-8 (* pi 1.5) 1)(< mj-bz-8 (* pi 2)))(setq mj-bz-9(mapcar '(lambda (x) (+ x 50)) mj-bz-6)))
    
15.     );;cond
    
16.     (command "dimlinear" mj-bz-6 mj-bz-7 mj-bz-9)
    
17.     (setq mj-bz-5(1+ mj-bz-5))
    
18.   );;repeat
    
19.   (setvar "osmode" os)
    
20. )
    
21. 
    
22. ;;46.2 [功能] pline,lwpline点坐标表  By 无痕
    
23. ;;示例(vxs (car (entsel))),返回三维点坐标
    
24. (defun vxs (e / i v lst)
    
25.   (setq i -1)
    
26.   (while
    
27.     (setq v (vlax-curve-getpointatparam e (setq i (1+ i))))
    
28.      (setq lst (cons v lst))
    
29.   )
    
30.   (reverse lst)
    
31. )

(defun c:mj-bz()<br />   (setq os(getvar "osmode"));;取得对象捕捉值<br />   (setvar "osmode" 0);;关闭所有的对象捕捉<br />   (setq mj-bz-3(car (entsel)));;取得生成的多段线<br />   (setq mj-bz-4(vxs mj-bz-3));;取得多段线的顶点坐标<br />   (setq mj-bz-5 0)<br />   (repeat(-(length mj-bz-4) 1)<br />     (setq mj-bz-6(nth mj-bz-5 mj-bz-4))<br />     (setq mj-bz-7(nth (1+ mj-bz-5) mj-bz-4))<br />     (setq mj-bz-8(angle mj-bz-6 mj-bz-7));;判断角度<br />     (cond((and(equal mj-bz-8 0 1)(< mj-bz-8 (* pi 0.5)))(setq mj-bz-9(mapcar '(lambda (x) (+ x 50)) mj-bz-6)))<br />    ((and(equal mj-bz-8 (* pi 0.5) 1)(< mj-bz-8 pi))(setq mj-bz-9(mapcar '(lambda (x) (- x 50)) mj-bz-6)))<br />    ((and(equal mj-bz-8 pi 1)(< mj-bz-8 (* pi 1.5)))(setq mj-bz-9(mapcar '(lambda (x) (- x 50)) mj-bz-6)))<br />    ((and(equal mj-bz-8 (* pi 1.5) 1)(< mj-bz-8 (* pi 2)))(setq mj-bz-9(mapcar '(lambda (x) (+ x 50)) mj-bz-6)))<br />     );;cond<br />     (command "dimlinear" mj-bz-6 mj-bz-7 mj-bz-9)<br />     (setq mj-bz-5(1+ mj-bz-5))<br />   );;repeat<br />   (setvar "osmode" os)<br /> )<br /> <br /> ;;46.2 [功能] pline,lwpline点坐标表  By 无痕<br /> ;;示例(vxs (car (entsel))),返回三维点坐标<br /> (defun vxs (e / i v lst)<br />   (setq i -1)<br />   (while<br />     (setq v (vlax-curve-getpointatparam e (setq i (1+ i))))<br />      (setq lst (cons v lst))<br />   )<br />   (reverse lst)<br /> )

st788796

既然用 Command 就先用 命令 走一遍 后找到需要的参数

拉契

st788796 发表于 2014-3-24 22:12
既然用 Command 就先用 命令 走一遍 后找到需要的参数

试过了，主要就是不知道为什么，同一个对象复制出来的对象，在不同的位置标注后的结果会不一样...如图的三个位置标注的结果明显的不一样

aeo

你用的是全局变量?
cond进程是不是有没考虑周全的？
(equal mj-bz-8 (* pi 1.5) 1)  角度误差1 ？？？？
(< ?? pi)  ;;浮点<pi是不是对?

拉契

aeo 发表于 2014-3-25 11:59
你用的是全局变量?
cond进程是不是有没考虑周全的？
(equal mj-bz-8 (* pi 1.5) 1)  角度误差1 ？？？？
...

  我觉得应该不是全局变量的问题，因为第一次执行程序也有问题，出错的地方是有一个多余的点，但是我另外画一个形状简单点的也弄有多余的点又不会出现这种情况！可能选择的多段线的端点数的数量也有关系！
  应该也不会是与这个角度的误差值有关，一度   画出来的差距应该不会有那么大的吧！
  局部图中的绿色部分为正确的标注效果，白色线为标注的对象。
  我是在CAD2012中测试的，版主如果有空可以帮忙试验一下！

st788796

捕捉原因？

拉契

st788796 发表于 2014-3-25 12:30
捕捉原因？

也不是！我程序里也设置了关闭捕捉啊！我手动先把所有的对象捕捉、对象追踪等都关了  也试过了！我估计这就是一个BUG吧！

st788796

经测试没有发现不一样的地方