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

找一个矩形驱动小插件

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

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

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:37

(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:01

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:54

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

将两个42改成1试试

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

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

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

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

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


感谢大佬！我想加你扣扣，请问下其他问题
页: [1]
查看完整版本: 找一个矩形驱动小插件