befun 发表于 2020-4-18 15:26:46

怎么获取矩形多线段的坐标点？

本帖最后由 befun 于 2020-4-18 15:59 编辑

我想在A4打印框里添加全图的水印，防止被复印，但是不知道怎么添加文字,大概就像下图A4框3X6的水印，A3就是旋转90°放大的A4
-------------------------------------------
(defun c:addtk()
      (setvar "cmdecho" 0)
      (princ "选择要添加的矩形图框:")
      (setq ss (ssget))
      (setq rate (getreal "\n输入公司名称:"))
      (if (= rate nil) (princ "公司名不能为空")
      (setq n 0)
      (repeat (sslength ss)
            (setq ent (ssname ss n))
            (setq ent_data (entget ent))
            (setq ent_type (cdr (assoc 0 ent_data)))
                (setq ent_tuc (cdr (assoc 8 ent_data)))
            (if (= ent_type "LWPOLYLINE")
                (if (= ent_tuc "打印框")
               (if (= (cdr (assoc 70 ent_data)) 1)
                  
                  ;
                  
                )
                )
                )
            (setq n (1+ n))
            )
      (princ)
      )
--------------------------------


befun 发表于 2020-4-20 15:18:11

wx302008008 发表于 2020-4-23 14:34:49

获取矩形多段线的四个顶点坐标
(setq ptlist (Vlax-Get (Vlax-Ename->Vla-Object (car (entsel))) 'Coordinates )
       pt1 (list (car ptlist) (cadr ptlist))
       pt2 (list (caddr ptlist) (nth 3 ptlist))
       pt3 (list (nth 4 ptlist) (nth 5 ptlist))
       pt4 (list (nth 6 ptlist) (nth 7 ptlist))
)
页: [1]
查看完整版本: 怎么获取矩形多线段的坐标点？