子程序没错，但循环子程序时出错了，请教问题出在哪？谢了！！！

morecs · 发表于 2003-12-13 09:30:00

(defun c:zzxyh()
         (setq ocmde (getvar "cmdecho"))
      (setvar "cmdecho" 0)
         (setq num (getint "\n请输入优化直线的数量:"))
         (setq n 1)
         (repeat num
               (zxyh)
               (setq n (+ n 1))
            )
         (setvar "cmdecho" ocmde)
         (princ)
)
(defun zxyh()
            (vl-load-com)
            (setq en1 (entsel "\n请选择直线:"))
            (setq n1 (car en1))
            (setq m1 (vlax-ename->vla-object n1))
            (setq start1_point (vlax-curve-getstartpoint m1))
            (setq end1_point (vlax-curve-getendpoint m1))
            (setq refer_point (getpoint "\n请输入靠近直线的起始点的一点:"))
            (setq l1 (distance refer_point start1_point))
            (setq l2 (distance refer_point end1_point))
            (if (<= l1 l2)
                  (progn
                        (setq refer_point (polar end1_point 0 0))
                     (command "line" start1_point end1_point "")
                  )
                  (progn
                        (setq refer_point (polar start1_point 0 0))
                        (command "line" end1_point start1_point "")
                  )
               )
               (command "erase" en1)
               (princ)
)

lockmyeye · 发表于 2003-12-13 23:41:00

(command "erase" en1)时没有退回到命令状态，应为(command "erase" en1 "")

子程序没错，但循环子程序时出错了，请教问题出在哪？谢了！！！

发表回复

精选推荐

浏览过的版块