[求助]请帮看看错在哪？

chen15712854187

;;;-----------------------------行列约束----------------------------------------------
(defun ysbz_x (obj_listt zfbl /        sd se side_f EntityName1 pypt1 EntityName2 pypt2 dwpt1 oripoint_pt endpoint_pt dwpt2 pyptx pyptn pyptz pyptv pyptm pyptu pypto
               pypti carobj1 carobj2)
(setq sd 0
       se 1
) ;_ 结束setq
(setq obj_listt (reverse obj_listt));图元表
(setq side_f (length obj_listt))
(repeat (- side_f 1)
  (setq EntityName1 (nth sd obj_listt))
  (setq pypt1 (cdr (assoc 10 (entget (vlax-vla-object->ename EntityName1)))))
  (setq EntityName2 (nth se obj_listt))
  (setq pypt2 (cdr (assoc 10 (entget (vlax-vla-object->ename EntityName2)))))
  (if (= zfbl "h")
   (progn (setq pyptx (list (car pypt1) (+ (cadr pypt1) 200) (caddr pypt1)))
          (setq pyptn (list (car pypt2) (+ (cadr pypt2) 200) (caddr pypt2)))
          (setq dwpt1 (list (- (car pypt2) (car pypt1)) (- (cadr pypt1) 800) 0.0))
          (vl-cmdf "dimconstraint" zfbl pyptx  pyptn dwpt1 "")
   ) ;_ 结束progn
   (progn (setq pyptz (list (+ (car pypt1) 500) (cadr pypt1) (caddr pypt1)))
          (setq pyptv (list (+ (car pypt2) 500) (cadr pypt2) (caddr pypt2)))
          (setq dwpt1 (list (- (car pypt1) 800) (- (cadr pypt2) (cadr pypt1)) 0.0))
          (vl-cmdf "dimconstraint" zfbl pyptz pyptv  dwpt1 "")
   ) ;_ 结束progn
  ) ;_ 结束if
  (setq sd (1+ sd))
  (setq se (1+ se))
) ;_ 结束repeat
(setq oripoint_pt (cdr (assoc 10 (entget (vlax-vla-object->ename (car obj_listt))))))
(setq endpoint_pt (cdr (assoc 10 (entget (vlax-vla-object->ename (last obj_listt))))))
(if (= zfbl "h")
  (progn (setq pyptm (list (car oripoint_pt) (+ (cadr oripoint_pt) 400) (caddr oripoint_pt)))
         (setq pyptu (list (car endpoint_pt) (+ (cadr endpoint_pt) 400) (caddr endpoint_pt)))
         (setq dwpt2 (list (- (car endpoint_pt) (car oripoint_pt)) (- (cadr oripoint_pt) 1600) 0.0))
         (vl-cmdf "dimconstraint" zfbl pyptm  pyptu  dwpt2 "")
         (setq carobj1 (vlax-vla-object->ename(car obj_listt)))
         (vl-cmdf  "geomconstraint" "f" pyptm)
  ) ;_ 结束progn
  (progn (setq pypto (list (+ (car oripoint_pt) 600) (cadr oripoint_pt) (caddr oripoint_pt)))
         (setq pypti (list (+ (car endpoint_pt) 600) (cadr endpoint_pt) (caddr endpoint_pt)))
         (setq dwpt2 (list (- (car oripoint_pt) 1600) (- (cadr endpoint_pt) (cadr oripoint_pt)) 0.0))
         (vl-cmdf "dimconstraint" zfbl pypto  pypti  dwpt2 "")
         (setq carobj2 (vlax-vla-object->ename(car obj_listt)))
         (vl-cmdf  "geomconstraint" "f"  pypto)
  ) ;_ 结束progn
) ;_ 结束if
(princ)
) ;_ 结束defun
执行后，有时会丢失部分行、列标注约束，请帮看看错在哪？

ZZXXQQ

把捕捉关了试试，或在程序开头加一句(setvar "OSMODE" 0)

chen15712854187

关了捕捉也不行。