求助这个修改标注脚点位置的函数为什么不稳定，有时会将标注改跑掉？

kele99kele

这个函数存在的问题如题，我实在是不清楚为什么了，有时修改结果是正确的，有时又会跳跑掉
什么原因呢？大神请出手调教，不胜感激……

2. ;函数说明：选择一个标注、输入一点，修改所选择标注的脚点位置
   
3. (defun c:tt ()
   
4.   (setq
   
5.     N_DimEntName (car (entsel))
   
6.     N_GetPoint (getpoint)
   
7.     N_DimStart (cdr (assoc 10 (entget N_DimEntName)));取得dim尺寸的起点
   
8.     N_DimStartPoint (cdr (assoc 14 (entget N_DimEntName)));取得dim尺寸脚的起点
   
9.     N_DimEndPoint (cdr (assoc 13 (entget N_DimEntName)));取得dim尺寸脚的起点
   
10.     N_DimDistance (cdr (assoc 42 (entget N_DimEntName)));取得dim尺寸的测量长度
    
11.     N_DimEnd (polar N_DimStart (+ (* 0.5 pi) (angle N_DimStart N_DimStartPoint)) N_DimDistance);取得dim尺寸的终点
    
12.     N_PerPoint (PerToLine N_GetPoint N_DimStart N_DimEnd)
    
13.     N_NewStartPoint (polar N_DimStart (angle N_PerPoint N_GetPoint) (distance N_PerPoint N_GetPoint))
    
14.     N_NewEndPoint (polar N_DimEnd (angle N_PerPoint N_GetPoint) (distance N_PerPoint N_GetPoint))
    
15.     N_EntList (subst (cons 14 N_NewStartPoint ) (assoc 14 (entget N_DimEntName)) (entget N_DimEntName))
    
16.     N_EntList (subst (cons 13 N_NewEndPoint ) (assoc 13 N_EntList) N_EntList)
    
17.   )
    
18.   (entmod  N_EntList)
    
19. )
    
20. (defun PerToLine (cp p1 p2 / norm)
    
21.   (setq norm (mapcar '- p2 p1)
    
22.     p1 (trans p1 0 norm)
    
23.     cp (trans cp 0 norm)
    
24.   )
    
25.   (trans (list (car p1) (cadr p1) (caddr cp)) norm 0)
    
26. )

;函数说明：选择一个标注、输入一点，修改所选择标注的脚点位置<br /> (defun c:tt ()<br />   (setq<br />     N_DimEntName (car (entsel))<br />     N_GetPoint (getpoint)<br />     N_DimStart (cdr (assoc 10 (entget N_DimEntName)));取得dim尺寸的起点<br />     N_DimStartPoint (cdr (assoc 14 (entget N_DimEntName)));取得dim尺寸脚的起点<br />     N_DimEndPoint (cdr (assoc 13 (entget N_DimEntName)));取得dim尺寸脚的起点<br />     N_DimDistance (cdr (assoc 42 (entget N_DimEntName)));取得dim尺寸的测量长度<br />     N_DimEnd (polar N_DimStart (+ (* 0.5 pi) (angle N_DimStart N_DimStartPoint)) N_DimDistance);取得dim尺寸的终点<br />     N_PerPoint (PerToLine N_GetPoint N_DimStart N_DimEnd)<br />     N_NewStartPoint (polar N_DimStart (angle N_PerPoint N_GetPoint) (distance N_PerPoint N_GetPoint))<br />     N_NewEndPoint (polar N_DimEnd (angle N_PerPoint N_GetPoint) (distance N_PerPoint N_GetPoint))<br />     N_EntList (subst (cons 14 N_NewStartPoint ) (assoc 14 (entget N_DimEntName)) (entget N_DimEntName))<br />     N_EntList (subst (cons 13 N_NewEndPoint ) (assoc 13 N_EntList) N_EntList)<br />   )<br />   (entmod  N_EntList)<br /> )<br /> (defun PerToLine (cp p1 p2 / norm)<br />   (setq norm (mapcar '- p2 p1)<br />     p1 (trans p1 0 norm)<br />     cp (trans cp 0 norm)<br />   )<br />   (trans (list (car p1) (cadr p1) (caddr cp)) norm 0)<br /> )

kele99kele

;函数说明：选择一个标注、输入一点，修改所选择标注的脚点位置
;万分感谢edata百忙之中抽出时间帮忙抓虫修改，问题完美解决。
(defun N::ReSetDim ()
        (setq
                N_DimEntName (car (entsel))
                N_GetPoint (getpoint)
                N_DimStart (cdr (assoc 10 (entget N_DimEntName)));取得dim尺寸的起点
                N_DimStartPoint (cdr (assoc 14 (entget N_DimEntName)));取得dim尺寸脚的起点
                N_DimEndPoint (cdr (assoc 13 (entget N_DimEntName)));取得dim尺寸脚的起点
                ;N_DimDistance (cdr (assoc 42 (entget N_DimEntName)));取得dim尺寸的测量长度
                N_DimDistance (distance (PerToLine N_DimEndPoint N_DimStart N_DimStartPoint) N_DimEndPoint)
                ;N_DimEnd (polar N_DimStart (+ (* 0.5 pi) (angle N_DimStart N_DimStartPoint)) N_DimDistance);取得dim尺寸的终点
                N_PerPoint (PerToLine N_GetPoint N_DimStart N_DimStartPoint)
                ;N_NewStartPoint (polar N_DimStart (angle N_PerPoint N_GetPoint) (distance N_PerPoint N_GetPoint))
                N_NewStartPoint N_PerPoint
                ang (angle (PerToLine N_DimEndPoint N_DimStart N_DimStartPoint) N_DimEndPoint)
                N_EntList (entget N_DimEntName)
                N_NewEndPoint (polar N_NewStartPoint ang  N_DimDistance)
                N_EntList (subst (cons 14 N_NewStartPoint ) (assoc 14 N_EntList) N_EntList)
                N_EntList (subst (cons 13 N_NewEndPoint ) (assoc 13 N_EntList) N_EntList)
        )
        (setq a (entget N_DimEntName))
        (entmod        N_EntList)
        (setq b (entget N_DimEntName))
        ;(command "line" N_DimStart N_NewStartPoint "" "line" N_DimEnd N_NewEndPoint "")
)
(defun PerToLine (cp p1 p2 / norm)
        (setq norm (mapcar '- p2 p1)
                p1 (trans p1 0 norm)
                cp (trans cp 0 norm)
        )
        (trans (list (car p1) (cadr p1) (caddr cp)) norm 0)
)