[求助]：[求助]：帮帮忙，看看程序(问题已解决)

HLB_Konan

(defun c:lf (/ pt1 pt2 min max x1 x2
               y1 y2 pta ptb ptc ptd pt3 la ptx pty lcx cmd)
   (setq lcx (getvar "osmode"))
   (setq cmd (getvar "cmdecho"))
   (setq la (getvar "clayer"))
   (setvar "cmdecho" 0)
   (setq pt1 (getpoint "\nFirst point:"))
   (setq pt2 (getpoint pt1 "\nSecond point:"))
   (setvar "osmode" 0)
   (setq min (getvar "extmin"))
   (setq max (getvar "extmax"))
   (setq x1 (car min))
   (setq x2 (car max))
   (setq y1 (cadr min))
   (setq y2 (cadr max))
   (setq pta (list x1 y1))
   (setq ptb (list x1 y2))
   (setq ptc (list x2 y1))
   (setq ptd (list x2 y2))
   (setq ptx nil)
   (setq pty nil)
   (setq pt3 (inters pt1 pt2 pta ptb nil))
   (if (/= pt3 nil)
      (if (and (>= (cadr pt3) y1) (< (cadr pt3) y2))
         (setq ptx pt3)
      )
   )
   (setq pt3 (inters pt1 pt2 ptb ptd nil))
   (if (/= pt3 nil)
      (if (and (>= (car pt3) x1) (< (car pt3) x2))
         (if (= ptx nil)
            (setq ptx pt3)
            (setq pty pt3)
         )
      )
   )
   (setq pt3 (inters pt1 pt2 ptd ptc nil))
   (if (/= pt3 nil)
      (if (and (> (cadr pt3) y1) (<= (cadr pt3) y2))
         (if (= ptx nil)
            (setq ptx pt3)
            (setq pty pt3)
         )
      )
   )
   (setq pt3 (inters pt1 pt2 pta ptc nil))
   (if (/= pt3 nil)
      (if (and (> (car pt3) x1) (<= (car pt3) x2))
         (if (= ptx nil)
            (setq ptx pt3)
            (setq pty pt3)
         )
      )
   )
   (setvar "clayer" "fz")
   (command "line" ptx pty "")
   (setvar "clayer" la)
   (setvar "osmode" lcx)
   (setvar "cmdecho" cmd)
   (princ)
)
这个程序 在有的图中能用 有的图中就就说未知命令 不知道少了什么东西 希望高手指点 在新图中是不行的 线是图纸所在空间 新图中并没有图 所以本程序不行 （所以问题已解决）

carrot1983

我不知道你的程序是干嘛的！呵呵
1.max和min等函数，不能用来坐变量名！
2.(setvar "clayer" "fz")，这里如果你图中没有这个图层，就得在前面建立这个图层先！
3.ptx，pty是空值啊！肯定是你没进来这里啊：(setq ptx pt3) (setq pty pt3)

xyp1964

[php](defun c:test (/ pt1 pt2 min1 max1 x1 x2 y1 y2 pta ptb ptc ptd pt3 la ptx pty lcx cmd)
  (setq        lcx (getvar "osmode")
        cmd (getvar "cmdecho")
        la  (getvar "clayer")
  )
  (setvar "cmdecho" 0)
  (setq        pt1 (getpoint "\nFirst point:")
        pt2 (getpoint pt1 "\nSecond point:")
  )
  (setvar "osmode" 0)
  (setq        min1 (getvar "extmin")
        max1 (getvar "extmax")
        x1   (car min1)
        x2   (car max1)
        y1   (cadr min1)
        y2   (cadr max1)
        pta  (list x1 y1)
        ptb  (list x1 y2)
        ptc  (list x2 y1)
        ptd  (list x2 y2)
        ptx  nil
        pty  nil
  )
  (if (/= (setq pt3 (inters pt1 pt2 pta ptb nil)) nil)
    (if        (and (>= (cadr pt3) y1) (< (cadr pt3) y2))
      (setq ptx pt3)
    )
  )
  (if (/= (setq pt3 (inters pt1 pt2 ptb ptd nil)) nil)
    (if        (and (>= (car pt3) x1) (< (car pt3) x2))
      (if (= ptx nil)
        (setq ptx pt3)
        (setq pty pt3)
      )
    )
  )
  (if (/= (setq pt3 (inters pt1 pt2 ptd ptc nil)) nil)
    (if        (and (> (cadr pt3) y1) (<= (cadr pt3) y2))
      (if (= ptx nil)
        (setq ptx pt3)
        (setq pty pt3)
      )
    )
  )
  (if (/= (setq pt3 (inters pt1 pt2 pta ptc nil)) nil)
    (if        (and (> (car pt3) x1) (<= (car pt3) x2))
      (if (= ptx nil)
        (setq ptx pt3)
        (setq pty pt3)
      )
    )
  )
  (if (and ptx pty)
    ;;(setvar "clayer" "fz")
    (command "line" ptx pty "")
  )
  (setvar "clayer" la)
  (setvar "osmode" lcx)
  (setvar "cmdecho" cmd)
  (princ)
)[/php]

HLB_Konan

本人并不懂lsp，只是用别人的，知道在他的环境中 就没问题 fz 层我在一个小程序中已经设置好了 这个肯定没问题  我想可能是我仅仅拿出一个程序的缘故 这个程序是画辅助线 在你需要的方面点两下 就以这两点出来一条辅助线 （有点像射线） 然后还有一个程序 就是专门删除这些线的 不需要选 直接就删掉了 仍谢谢楼上的两位 就是不知道为什么 在有的图中运行就一点问题也没有 奇怪 打开一张空白图 设置好以后图层等 反而不可以