请教一个关于lisp的小问题

andrewla · 发表于 2007-1-23 07:31:58

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

请问plot命令在lisp 里怎么用。最好能有个关于打印的lisp 原文件。让菜鸟来学学。谢谢了。

andrewla · 发表于 2007-1-23 18:53:52

怎么没人帮忙呢。谢谢了

andrewla · 发表于 2007-1-23 18:55:02

print命令也行。给讲讲怎么用就行，要是能举个例子就更好了

moonguy · 发表于 2007-1-23 20:46:26

在Lisp使用plot，关闭相应对话框就行了，利用命令行的形式操作，把plot改成-plot。或者在程序中改变相应南低扯曰翱虮淞恐担鹜嗽诔绦蚪崾被指幢淞恐怠?br />
复制一段帮助文件供参考:
某些命令在命令行和对话框中都能使用。大多数情况下，可在命令前键入连字符 (-) 来禁止显示对话框，而代之以命令行提示。例如，在命令行输入 layer 将显示图层特性管理器。在命令行键入 -layer 则显示等价的命令行选项。禁止此对话框对于兼容 AutoCAD® 早期版本以及使用脚本文件很有用。对话框和命令行中的选项可能略有不同。
以下这些系统变量也影响对话框的显示：

ATTDIA

INSERT

CMDNAMES

EXPERT

FILEDIA控制与读写文件命令一起使用的对话框的显示。例如，如果 FILEDIA 设置为 1，SAVEAS 命令将显示“图形另存为”对话框。如果 FILEDIA 设置为 0，SAVEAS 将显示命令行提示。此文档中的操作步骤假定 FILEDIA 设置为 1。即使在 FILEDIA 设置为 0 时, 用户也可以通过在第一个提示下输入波浪号 (~) 来显示文件对话框。

FILEDIA 和 EXPERT 在使用脚本执行命令时很有用。

关于-plot后面跟的参数，只要在命令行里操作一遍，就知道如何设置了。

这是以前一个朋友共享的打印Lisp，不过需要根据自己的打印机及图幅进行调整才能使用，参考一下吧。

;;;;;用于model的多张平面图,只有图框用3DFACE线,可以批打印如下:
(DEFUN C:A4()
  (setq myos(getvar "OSMODE"))
  (setvar "OSMODE" 0)
  (setvar "CMDDIA" 0)
  (setvar "cmdecho" 0)
  (SETQ S2 2.0
      S3 3.0
      S4 4.0
      S6 6.0
      X1 S3
      X2 S3
      Y1 S6
      Y2 S4
   )
  (IF(= P_SIZE "A3")
   (SETQ  X1 S3
         X2 S2
         Y1 S6
         Y2 S2)
   (SETQ P_SIZE "A4")
  );END IF
  (IF(= P_SIZE NULL)(SETQ P_SIZE ""))
  (SETQ SS(SSGET "X" '((0 . "3DFACE")))
      num(sslength ss)
      n -1
      )
  (repeat num
(setq n (+ 1 n)
      FACE (SSNAME SS n)
      FACE (ENTGET FACE)
      PNT1 (CDR (ASSOC '10 FACE))
      PNT2 (CDR (ASSOC '12 FACE))
      PNT1 (REVERSE (CDR (REVERSE PNT1)))
      PNT2 (REVERSE (CDR (REVERSE PNT2)))
      PT_LX (CAR PNT1)
      PT_LY (CAR (REVERSE PNT1))
      PT_UX (CAR PNT2)
      PT_UY (CAR (REVERSE PNT2))
      DIS_HOR (- PT_UX PT_LX)
      DIS_VER (- PT_UY PT_LY)
      DIS_HOR (ABS DIS_HOR)
      DIS_VER (ABS DIS_VER)
      PNT_1 PNT1
               PT_LX1 PT_LX
               PT_LY1 PT_LY
      P_ANG "L"
      )
;if repeat print cancel
(if(and(= 0 n)(= 1 tmp1))(setq value 0)
)
      ;END IF
  (IF(= 0 DIS_HOR)(SETQ DIS_HOR 1)) ;END IF
  (IF(AND(> (/ DIS_VER DIS_HOR) 1.30)(< (/ DIS_VER DIS_HOR) 1.48))
(PROGN
   (SETQ P_ANG "P"
         PT_LX (- PT_LX (* (/ X1 108) DIS_HOR))
         PT_LY (+ PT_LY (* (/ Y1 154) DIS_VER))
         PT_UX (+ PT_UX (* (/ X2 108) DIS_HOR))
         PT_UY (- PT_UY (* (/ Y2 154) DIS_VER))
         PT_LX (ATOF (RTOS PT_LX 2 3))
         PT_LY (ATOF (RTOS PT_LY 2 3))
         PT_UX (ATOF (RTOS PT_UX 2 3))
         PT_UY (ATOF (RTOS PT_UY 2 3))

         PNT1 (LIST PT_LX PT_LY)
         PNT2 (LIST PT_UX PT_UY)
         )
   )
)
(IF(< (/ DIS_VER DIS_HOR) 1.30)
(SETQ PT_LX (- PT_LX (* (/ Y1 154) DIS_HOR))
      PT_LY (- PT_LY (* (/ X1 108) DIS_VER))
      PT_UX (+ PT_UX (* (/ Y2 154) DIS_HOR))
      PT_UY (+ PT_UY (* (/ X2 108) DIS_VER))
      PT_LX (ATOF (RTOS PT_LX 2 3))
      PT_LY (ATOF (RTOS PT_LY 2 3))
      PT_UX (ATOF (RTOS PT_UX 2 3))
      PT_UY (ATOF (RTOS PT_UY 2 3))

      PNT1 (LIST PT_LX PT_LY)
      PNT2 (LIST PT_UX PT_UY)
      )
);END IF
(IF(AND(/= TEMP PNT_1)(> DIS_HOR 100)(> (/ DIS_VER DIS_HOR) 0.68)(< (/ DIS_VER DIS_HOR) 1.48))
      (IF(/= 0 value)
      (COMMAND "-PLOT" "Y" "" "HP Deskjet 1280" "A4，210x297 毫米" "M" P_ANG
               "N" "W" PNT1 PNT2 "F" "" "Y" "monochrome.ctb" "Y" "A" "N" "N" "y")
      )
  )
   (SETQ TEMP PNT_1)
   (if(= 0 n)(setq tmp1 1))

);repeat

  (setvar "CMDDIA" 1)
(setvar "cmdecho" 1)

)

[ 本帖最后由 moonguy 于 2007-1-23 20:49 编辑 ]

andrewla · 发表于 2007-1-25 08:10:20

谢谢moon了。你小小的指点对我来说可能很有用

		自动登录	找回密码
密码			注册

通知

[已解决] 请教一个关于lisp的小问题

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

评分