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

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 300 pause)
(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请指定起始点:"))

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

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 300 p2)
(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"250 300(polar p1(* pi 0.25)10))

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

[函数] 请问需要左键点击用什么代码？

评分

本帖子中包含更多资源

[函数] 请问 需要左键点击用什么代码？

评分

本帖子中包含更多资源

[函数] 请问需要左键点击用什么代码？