kzd2004 发表于 2023-11-22 14:12:17

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

现在画一个矩形


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


xj6019 发表于 2023-11-22 14:44:42

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

sunnylhj 发表于 2023-11-22 14:45:13

是直接想画一个矩形？

kzd2004 发表于 2023-11-22 15:06:34

本帖最后由 kzd2004 于 2023-11-22 15:13 编辑

sunnylhj 发表于 2023-11-22 14:45
是直接想画一个矩形？
我已知一个点的坐标，知道长和宽，过这个点画一个向右的矩形。

sunnylhj 发表于 2023-11-22 16:52:32

(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 发表于 2023-11-22 16:56:12

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


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

xj6019 发表于 2023-11-22 17:03:44

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 300p2)
        (princ)
)

kzd2004 发表于 2023-11-22 19:57:19

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


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

xj6019 发表于 2023-11-22 20:02:24

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

简写的计数呗，也就是10

xyp1964 发表于 2023-11-22 21:53:58

(command"rectang"(setq p1(getpoint))"d"250300(polar p1(* pi 0.25)10))
页: [1] 2
查看完整版本: 请问 需要左键点击用什么代码？