[求助]：怎样编制绘制矩形过程的程序（LSP）？

TLHMQH · 发表于 2007-4-28 08:24:54

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

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

×

我在编制一个小程序过程中，有一个需要绘制矩形的步骤（为了取其坐标值）。
请问：怎样才能编制一个象原程序一样的程序。在绘制矩形时，在屏幕上指定一点后，屏幕上出现一个橡皮筋样的矩形；然后指定第二点，这个橡皮筋的矩形便固定在屏幕上了。
有请高手指点。

snoopychen · 发表于 2007-4-28 08:41:35

(setq a (getpoint) b (getcorner a)) ？

hhhhyyyyzzzz · 发表于 2007-4-28 17:04:30

;;;;加载后命令名为 rect

(defun c:rect(/ sp ep x1 x2 y1 y2
         sb temp p)
(setq sp (getpoint "\nFirst corner:"))
(set 'x1 (car sp))
(set 'y1 (cadr sp))
      (setq ep (getcorner (list x1 y1) "\nOther corner:"))
(set 'x2 (car ep))
(set 'y2 (cadr ep))
(setq sb (getvar "blipmode"))
(setq temp (getvar "osmode"))
(setvar "blipmode" 0)
(setvar "cmdecho" 0)
(setvar "osmode" 0)
(COMMAND "PLINE"
      (setq p (list x1 y1))
    (setq p (list x1 y2))
    (setq p (list x2 y2))
      (setq p (list x2 y1))
"c"
)
(setvar "blipmode" sb)
(setvar "osmode" temp)
(princ)
)

TLHMQH · 发表于 2007-4-28 20:39:35

谢谢hhhhyyyyzzzz ！
程序短小精悍，实用。
欲赠爱心币，以示感谢。然论坛规定你的爱心币必须在250以上。

账号		自动登录	找回密码
密码			立即注册

[求助] [求助]：怎样编制绘制矩形过程的程序（LSP）？

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子