[求助]：我的问题在哪

morecs

(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)
)

lsjjm

看不明白, 什么是"优化直线"? 能不能说说你究竟想达到什么目的, 再来分析程序?

morecs

就是根据需要改变直线的方向（起点与终点互换）
子程序可以实现单条，但我循环子程序来解决多条时，失败！！！
请多多指教！！！

luoyaya

(if (<= l1 l2)
(progn
(setq refer_point (polar end1_point 0 0));~~~~~~这里的变量refer_point没有放到COMMAND里面去啊,好像没有起到作用
;而且0度0距离不是还是end1_point没有变吧
(command "line" start1_point end1_point "")
)
(progn
(setq refer_point (polar start1_point 0 0))
(command "line" end1_point start1_point "")
)
)
不知道你要命令的作用是什么,如果是改变LINE线的起点和终点的话那应该POLAR也用不到呀?只要改改两点就行了啊


改变方向的话只要把END和START两个点对换一下就行了呀?不用POLAR的吧?而且我觉得那个
(setq num (getint "\n请输入优化直线的数量:"))
是多余的,你只要在(setq en1 (entsel "\n请选择直线:"))这里做个判断就行了,如果那个EN1为空就不继续,不空就继续,还有你在函数里没有局部变量,这样你多次调用该函数时就有可能出错:)

lsjjm

最初由 morecs 发布
[B]就是根据需要改变直线的方向（起点与终点互换）
子程序可以实现单条，但我循环子程序来解决多条时，失败！！！
请多多指教！！！ [/B]

你还是没说清楚, 根据什么需要?

luoyaya

我帮楼主改了一下,请长老看看有没什么不好地方~
(defun c:zz( / en1 ocmde n1 refer_point m1 start1_point end1_point l1 l2)
(setq ocmde (getvar "cmdecho"))
(setvar "cmdecho" 0)

(while (setq en1 (entsel "\n请选择直线:"))
  (setq        n1 (car en1)
        refer_point
         (cadr en1)
  )
  (setq m1 (entget n1))
  (if (= (cdr (assoc 0 m1)) "LINE")
    (progn
  (setq        start1_point (cdr (assoc 10 m1))
        end1_point   (cdr (assoc 11 m1))
  )
  (setq l1 (distance refer_point start1_point))
  (setq l2 (distance refer_point end1_point))
  (if (> l1 l2)
    (progn
      (setq m1 (subst (append '(10) end1_point) (assoc 10 m1) m1))
      (setq m1 (subst (append '(11) start1_point) (assoc 11 m1) m1))
      (entmod m1)
    )
  )
  (princ "\n修改完成!")
)
(princ "\n你选的不是LINE线!")    ))
(setvar "cmdecho" ocmde)
(princ)
)

lsjjm

最初由 luoyaya 发布
[B]我帮楼主改了一下,请长老看看有没什么不好地方...[/B]

不好意思, 还是不知道1楼到底想干什么? 你知道吗?
我运行了一下你的程序, 没什么反映呀?