[求助]：求助贱人兄和秋风兄

papayaa

贱人兄，我很需要你70个小命令里的实用标注，能否给个LISP文件。
秋风兄，我用你的批处理打印程序，看到打印时，在状态栏坐标那一格中显示“共几页，正打印第几页”，想求教怎么弄的。DIESEL语言一般都只能写在状态栏的左下角，写在坐标栏是怎么弄的？

贱人

(DEFUN C:edit11 ()
(INITGET 9)
(SETQ PT1 (GETPOINT "\n尺寸界限第一点 :"))
(INITGET 9)
(SETQ PT2 (GETPOINT PT1 "\n尺寸界限第二点 :"))
(COMMAND "_DIMLINEAR" PT1 PT2 PAUSE)
(SETQ ANG (CDR (ASSOC 50 (ENTGET (ENTLAST)))))
(COMMAND "_DIMCONTINUE")
(WHILE (SETQ PT3 (GETPOINT "\n第二点 :"))
  (IF (EQUAL ANG 0.0 1E-3)
   (SETQ PT3 (LIST (CAR PT3) (CADR PT2) 0.0))
   (SETQ PT3 (LIST (CAR PT2) (CADR PT3) 0.0))
  )
  (COMMAND PT3)
)
(COMMAND "" "")
(PRINC)
)

papayaa

谢兄台，能否加点小功能。第一个标注之后，只打开端点，这样方便捕捉。

贱人

(DEFUN C:edit11 ()
  (setq os (getvar "osmode"))
  (setvar "osmode" 1)
(INITGET 9)
(SETQ PT1 (GETPOINT "\n尺寸界限第一点 :"))
(INITGET 9)
(SETQ PT2 (GETPOINT PT1 "\n尺寸界限第二点 :"))
(COMMAND "_DIMLINEAR" PT1 PT2 PAUSE)
(SETQ ANG (CDR (ASSOC 50 (ENTGET (ENTLAST)))))
(COMMAND "_DIMCONTINUE")
(WHILE (SETQ PT3 (GETPOINT "\n第二点 :"))
  (IF (EQUAL ANG 0.0 1E-3)
   (SETQ PT3 (LIST (CAR PT3) (CADR PT2) 0.0))
   (SETQ PT3 (LIST (CAR PT2) (CADR PT3) 0.0))
  )
  (COMMAND PT3)
)
(COMMAND "" "")
  (setvar "osmode" os)
(PRINC)
)

秋枫

你可以直接下载源代码参考。明经与本站都有下载。