请问 需要左键点击用什么代码？

kzd2004

现在画一个矩形


(command "rectang" pt1 "d" 250 "" 300 ""  (到这儿需要鼠标左键在方向上单击确认))，请问这个用什么命令，谢谢大神了！！！

xj6019

这么玩？
(defun C:NM (/ pt1)
        (setq pt1 (getpoint "\n请指定起始点:"))
        (command "rectang" pt1 "d" 250 300  pause)
        (princ)
)

sunnylhj

是直接想画一个矩形？

kzd2004

sunnylhj 发表于 2023-11-22 14:45
是直接想画一个矩形？

我已知一个点的坐标，知道长和宽，过这个点画一个向右的矩形。

sunnylhj

(defun c:tt()
(setvar "osmode" 0)
(setq pt1 (getpoint "\nSpecify point:")
      pt2 (polar pt1 0 250 )
          pt3 (polar pt2 (angtof "90") 300 )
          pt4 (polar pt3 (angtof "-180") 250 )
          lst (list pt1 pt2 pt3 pt4 pt1)
          )
(entmake (append (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(100 . "AcDbPolyline") (cons 90 (length lst))) (mapcar '(lambda (pt)(cons 10 pt)) lst )) )
;(command "pline" pt1 pt2 pt3 pt4 "c") ;简单点可以用这个
)

sunnylhj

xj6019 发表于 2023-11-22 14:44
这么玩？
(defun C:NM (/ pt1)
        (setq pt1 (getpoint "\n请指定起始点:"))

我的理解是楼主不想动鼠标直接画出来吧？

xj6019

kzd2004 发表于 2023-11-22 15:06
我已知一个点的坐标，知道长和宽，过这个点画一个向右的矩形。

就是想省去第二个点击的动作呗
(defun C:NM (/ p2 pt1)
        (setq pt1 (getpoint "\n请指定起始点:"))
        (setq p2(polar pt1 (* 0.25 pi) 1e1))
        (command "rectang" pt1 "d" 250 300  p2)
        (princ)
)

kzd2004

xj6019 发表于 2023-11-22 17:03
就是想省去第二个点击的动作呗
(defun C:NM (/ p2 pt1)
        (setq pt1 (getpoint "\n请指定起始点:"))

请问大佬一下1e1是什么意思？谢谢

xj6019

kzd2004 发表于 2023-11-22 19:57
请问大佬一下1e1是什么意思？谢谢

简写的计数呗，也就是10

xyp1964

(command"rectang"(setq p1(getpoint))"d"250  300(polar p1(* pi 0.25)10))