找一个矩形驱动小插件

15208 · 发表于 2023-4-8 17:25

点击cad标注识别数值点击长在点击宽形成一个四边形矩形。

xj6019 · 发表于 2023-4-8 17:25

15208 发表于 2023-4-9 10:44
改完后，操作提示报错了、

(defun C:NM (/ getdim ll pt pt1 ww)
(defun GETDIM (dxf / )
(setq zfc nil)
(setq zfc  (cdr (assoc 1 dxf)))
(if(= zfc "")
(setq zfc (rtos (cdr (assoc 42 dxf)) 2 1))
)
zfc
)
(if(and
   (setq LL(atof(getdim(entget (car(entsel "\n请拾取矩形的长度"))))))
   (setq WW(atof(getdim(entget (car(entsel "\n请拾取矩形的宽度"))))))
   (setq pt (getpoint "\n请指定起始点:"))
   )
(progn
(setq pt1 (mapcar '+ pt (list LL WW)))
(command "RECTANG" "_non" PT "_non" PT1)
)
)
(princ)
)

xj6019 · 发表于 2023-4-8 19:02

(defun C:NM (/ ll pt pt1 ww)
(if(and
   (setq LL(cdr(assoc 42 (entget (car(entsel "\n請拾取矩形的长度"))))))
   (setq WW(cdr(assoc 42 (entget (car(entsel "\n請拾取矩形的宽度"))))))
   (setq pt (getpoint "\n请指定起始点:"))
   )
(progn
(setq pt1 (mapcar '+ pt (list LL WW)))
(command "RECTANG" "_non" PT "_non" PT1)
)
)
(princ)
)

15208 · 发表于 2023-4-9 10:20

xj6019 发表于 2023-4-8 19:02
(defun C:NM (/ ll pt pt1 ww)
(if(and
(setq LL(cdr(assoc 42 (entget (car(entsel "\n請拾取矩形 ...

未能实现，识别标注中的数值变量。

xj6019 · 发表于 2023-4-9 10:39

15208 发表于 2023-4-9 10:20
未能实现，识别标注中的数值变量。

将两个42改成1试试

15208 · 发表于 2023-4-9 10:44

xj6019 发表于 2023-4-9 10:39
将两个42改成1试试

改完后，操作提示报错了、

15208 · 发表于 2023-4-9 11:05

xj6019 发表于 2023-4-8 17:25
(defun C:NM (/ getdim ll pt pt1 ww)
(defun GETDIM (dxf / )
(setq zfc nil)

感谢大佬！我想加你扣扣，请问下其他问题

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

找一个矩形驱动小插件

最佳答案

本帖子中包含更多资源

点评